<form name="scateg" action=" " method="post">


<td >
<p align="right"><font face="Verdana" size="2">Tipologia
</font>: </td>
<td align="center" width="155">
<select name="chi" class="inputtext" onChange="document.scateg.submit();" >
<option value="<%= chi %>">Seleziona
<%
SQLScheda = " SELECT * FROM Scategorie WHERE ID LIKE '%" & val & "%' ORDER BY Scategoria ASC"

Set RSScheda = Conn4.Execute(SQLScheda)

if not RSScheda.EOF then

RSScheda.MoveFirst
Dim val

Do While Not RSScheda.EOF
val = RSmagazzino("scat")

%>
<option value="<%= RSScheda("ID") %>"><%= RSScheda("Scategoria") %>
<%
RSScheda.MoveNext
Loop
End If
%>
</select></td>
<td align="left" width="148">
<select name="chi0" class="inputtext" onChange="document.scateg.submit();">
<option value=null>Seleziona
<option value="%">Tutti
<%
SQLScheda = " SELECT * FROM categorie WHERE ID LIKE '%" & val0 & "%' AND SCategoria LIKE '%" & val & "%' ORDER BY Scategoria ASC"

Set RSScheda = Conn4.Execute(SQLScheda)

if not RSScheda.EOF then

RSScheda.MoveFirst
Dim val0

Do While Not RSScheda.EOF
val = cate
val0 = RSmagazzino("cat")

%>
<option value="<%= RSScheda("ID") %>"><%= RSScheda("categoria") %>
<%
RSScheda.MoveNext
Loop
End If
%>
</select></td>
<td align="left" width="58"><input type="submit" value="Cerca" class="bottoni"> </td>
</tr>

</form>
mi funziona tutto regolarmente solo che le SELECT non mi rimangono selezionate dopo il SUBMIT, una cavolata ma mi server per capire dove sono :-))

GRAZIE