Dati su seconda select in base alla prima

[Dirk Pitt]

Ciao a tutti.
Di sicuro se ne è già parlato, ma non ho trovato niente sul forum (anche se se ne è già parlato :master: ): in una form di inserimento record nel db come faccio dopo aver selezionato una voce da una select ricaricare la pagina, recuperare i dati fin lì già inseriti e valorizzare la seconda select in base alla prima?

Il problema è passare i dati del form quando si fa il refresh.
Ho fatto così, ma ovviamente non funziona, in quanto i dati del form non vengono passati:

<%
data_ins = request.form("data_ins") ' i dati da recuperare 
code = request.form("code")
cat = request.form("cat")
%>
<tr>
<td class="form">CATEGORY</td><td class="dati">
<select name="cat" onchange="gotourl();">
<option>Choose one...</option>

<%
sqlstring = "SELECT * FROM category ORDER BY cat" ' questa select viene creata perfettamente 
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.ActiveConnection = objConn
objRs.Open sqlstring

Do While not objRs.EOF
	If cat = "" then
		response.write "<option value=""" & objRs("id") & """>" & objRs("cat") & "</option>"
	Else
		response.write "<option value=""" & objRs("id") & """" & SELECTED(objRs("id"), cat) & ">" & objRs("cat") & "</option>"
	End If
objRs.Movenext
Loop

objRs.Close
Set objRs = Nothing
%>
</select>
</td>
</tr>
<tr>
<td class="form">SUBCATEGORY</td><td class="dati">
<select name="cat">
<option>Choose one...</option>
<%
sqlstring = "SELECT * FROM subcategory WHERE cat = '" & cat & "' ORDER BY subcat" ' questa select non funziona in quanto non recupera i dati del form 
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.ActiveConnection = objConn
objRs.Open sqlstring

Do While not objRs.EOF
	response.write "<option value=""" & objRs("id") & """>" & objRs("cat") & "</option>"
objRs.Movenext
Loop

objRs.Close
Set objRs = Nothing
'objConn.Close
'Set objConn = Nothing
%>
</select>

Idee?