selectboxar som följs åt

Jag har försökt göra en lösning där två selectboxar skall vara kopplade till varandra.

Selectbox 1 innehåller huvudkategorierna i ett menysystem. Om man gör ett val i selectbox 1, och den kategorin innehåller någon underkategori, så skall selectbox 2 visas, och lista rätt underkategorier. Så långt fungerar det också. Men, när jag gjort ett val i selectbox 1 så hoppar den tillbaka till "Välj kategori", jag vill ju självfallet att valet i föregående selectbox skall fortsätta visa det val man gjort.

Så jag tänkte att kanske fler ögon är bättre än mina två dåliga ögon.

	<form method="post" name="kategori">
		<strong>Kategori:</strong><br>
		<select name="kategoriID" style="font: 10px Verdana, Tahoma;width: 150px; margin: 0 0 10 0;" onchange=kategori.submit()>
		<%	Set RS = Conn.Execute("SELECT * FROM kategorier WHERE parentID = '0'")
			If RS.EOF Then
				Response.Write "<option><i>Inga kategorier ännu</i></option>"
			Else
				If Request.Form("kategoriID") = "" Then
					Response.Write "<option>Välj kategori</option>"
					Do Until RS.EOF %>
						<option value="<%=RS("kategoriID")%>"><%=RS("kategoriNamn")%></option>
<%					RS.MoveNext
					Loop
				Else
					Response.Write "<option>Välj kategori</option>"
					Do Until RS.EOF %>
						<option value="<%=RS("kategoriID")%>" <% If RS("kategoriID") = Request.Form("kategoriID") Then Response.write " selected"%>><%=RS("kategoriNamn")%></option>
<%					RS.MoveNext
					Loop
				End If
			End If 
			RS.Close %>
		</select>
	</form>
<%	If Request.Form("kategoriID") <> "" Then %> 
	<form method="post" name="underkategori">
	<%	Set RS = Conn.Execute("SELECT * FROM kategorier WHERE parentID = '" & Request.Form("kategoriID") & "'")
		If RS.EOF Then 

		Else %>
		<select name="underkategoriID" style="font: 10px Verdana, Tahoma;width: 150px; margin: 0 0 10 0;" onchange=underkategori.submit()>
<%			Response.Write "<option>Välj underkategori</option>"
			Do Until RS.EOF
				Response.Write "<option value="& RS("kategoriID") &">" & RS("kategoriNamn") & "</option>"
			RS.MoveNext
			Loop
		End If 
		RS.Close %>
		</select>
		<input type="hidden" name="kategoriID" value="<%=Request.Form("kategoriID") %>">
	</form>
<%	End If %>
		KategoriID = <%=Request.Form("kategoriID") & "<br>"%>
		UnderkategoriID = <%=Request.Form("underkategoriID") & "<br>"%>

Någon som hittar något fel? Eller kan komma med ett bättre sätt att lösa detta på.

Som sagt, det funkar, men det fungerar inte tillfredsställande :)

Värt att nämna är också att om jag exempelvis ändrar

<option value="<%=RS("kategoriID")%>" <% If RS("kategoriID") = Request.Form("kategoriID") Then Response.write " selected"%>><%=RS("kategoriNamn")%></option>

till

<option value="<%=RS("kategoriID")%>" <% If RS("kategoriID") = "3" Then Response.write " selected"%>><%=RS("kategoriNamn")%></option>

Så fungerar det med den kategori som har ID 3. Vilket jag även tycker ovanstående borde göra, eftersom

Response.Write Request.Form("kategoriID")

skriver ut det ID som valts