Valorizzare variabile con l'onChange di un Select?

[d_d_s]

<select name="Subcategoria" id="Subcategoria"><%

Call FncRSSubcategorie("SELECT * FROM SUBCATEGORIE WHERE CATEGORIA = " & Request.QueryString("t") & " ORDER BY SUBCATEGORIA ASC") 'Questo è il richiamo alla funzione che mi crea il recordset RSSubcategorie

If RSSubcategorie.RecordCount > 0 Then

While NOT RSSubcategorie.EOF%>

<option value="<%=RSSubcategorie("ID")%>"><%=RSSubcategori e("SUBCATEGORIA")%></option><%

RSSubcategorie.MoveNext

Wend

RSSubcategorie.Close

End If %>

</select>