codice:
modello = Request.Form("sel_categoria")
If len(modello) = 0 and (not isNumeric(modello)) then
modello = 1 
End If 
...
...
...
<% 
While (NOT rsCategoria.EOF) 
%> 
<option value="<%=(rsCategoria.Fields.Item("IDCATEGORIA").Value)%>" 
<%
If rsCategoria.Fields.Item("IDCATEGORIA").Value = modello Then
Response.Write(" SELECTED")
End if
%>><% Response.Write(rsCategoria.Fields.Item("CATEGORIA").Value)
%></option> 
<% 
rsCategoria.MoveNext
Wend 
%>