eccolo:
codice:
<form name="form1" method="post" action="salvataggio_codici_fatturazione.asp">
<select name="cliente">
<%dim ocjbonn, objrs, strsql, valore
valore = session(strsessioncli)
set objconn = server.createobject("adodb.connection")
objconn.connectionstring = "dsn=database.dsn"
objconn.open
strsql = "select * from integrazione order by cliente "
set objrs = server.CreateObject("adodb.recordset")
objrs.open strsql, objconn, 1
do while not objrs.eof%>
<option value=<%=objrs("cliente")%><% if cstr(objrs("cliente")) = cstr(valore) then %>selected<% end if %>><%=objrs("cliente")%>
<%objrs.movenext
loop
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing%>
</select>
<input type="submit" name="Submit" value="INVIA">
</form