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