<select name="sel_scat" class="inputtext" onChange="document.scateg.submit();" >
<option value="">Seleziona
<%
SQLsc = " SELECT * FROM Scategorie WHERE ID ORDER BY Scategoria ASC"
Set RSsc = Conn.Execute(SQLsc)
if not RSsc.EOF then
RSsc.MoveFirst
Do While Not RSsc.EOF
%>
<option value="<%= RSsc("ID") %>" ><%= RSsc("Scategoria") %>
<%
RSsc.MoveNext
Loop
End If
%></select>
</form></td>
<td width="4"></td>
<td width="176" valign="top">
<form name="categ" action="?visual=true" method="post">Cat <%= catx %>
<select name="sel_cat" class="inputtext" onChange="document.categ.submit();">
<option value=null>Seleziona
<%
SQLc = " SELECT * FROM categorie WHERE SCategoria LIKE '%" & scatx & "%' ORDER BY Scategoria ASC"
Set RSc = Conn.Execute(SQLc)
if not RSc.EOF then
RSc.MoveFirst
Do While Not RSc.EOF
%>
<option value="<%= RSc("ID") %>"><%= RSc("categoria") %>
<%
RSc.MoveNext
Loop
End If
%></select></td>
<td></td>