select dinamiche asp

[fanigliuloa]

select dinamiche asp

Salve
Ho il seguente database ni ASP
**Tabella Brani:
**Id brano categoria subcategoria File Brano Note
Vorrei realizzare due select dinamica in ASP per permettere all'utente di fsare una ricerca sul database.
Una volta selezionata la categoria mediante la prima select, nella select della subcategoria devono comparire solo le subcategorie relative.
Ho il seguente codice ma non mi funziona. Dove sbaglio? Grazie
　
<form action="brani2.asp" method="get" id=categoria name=fcategoria>
<select name="categoria" onChange="document.forms['fcategoria'].submit()">
<option value="tuttecategorie">Tutte le Categorie</option>
<%
sql = "Select DISTINCT Categoria from Brani order by Categoria asc"
Set rs = conn.execute(sql)
do until rs.eof
%>
<option value="<%=rs("Categoria")%>"><%=rs("Categoria")%></option>
<%
rs.MoveNext
loop
rs.Close
Set rs = Nothing
conn.close
set conn = NOTHING
%>
</select>
<select name="subcategoria" >
<option value="tuttesubcategorie">Tutte le SubCategorie</option>
<%
Dim categoriarichiesta
categoriarichiesta = Replace(Request.Form("categoria"), "'", "''")
sql = "Select DISTINCT SubCategoria from Brani Where Categoria = '"&categoriarichiesta&"' "
Set rs = conn.execute(sql)
do until rs.eof
%>
<option value="<%=rs("SubCategoria")%>"><%=rs("SubCategoria")%></option>
<%
rs.MoveNext
loop
rs.Close
Set rs = Nothing
conn.close
set conn = NOTHING
%>
</select>
</form>
<form action="ricbrani.asp" method="post" id=subcategoria name=subcategoria>
<input type="submit" value="CERCA">
</form>