codice:
<td colspan="3" valign="top" bgcolor="#FFFFFF"> 
<select name="Type" size="1" class="inputbox" id="Type" value=""> 
<option></option> 
<% 
sql = "SELECT IdType,Type FROM TypeMessage ORDER BY Type" 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, conn ,3,3 
'rs.movefirst 
Dim passaggio 

Passaggio = Request.Form("Type") 
if Passaggio="" then Passaggio=0 
dim prova 
do while not(rs.eof) 
%> 
<option value="<%=rs.fields("Type")%>">   
<% 
prova=rs(0) 
if cint(prova)=cint(passaggio) then response.write " selected " 
%> 


><%=rs.fields("Type")%></option> 
<% 
rs.movenext 
loop 
rs.Close 
set rs = Nothing 
%> 
</select></td>