something like this.... vecchio ma "rock-solid"
tieni presente che difficilmente - per queste select - vado a gestire montagne di records....
codice:
Sub List_xxxx (preSel)
' lettura tabella xxxxx
sSql = "SELECT * FROM txxxxx ORDER BY Codice"
rs.Open sSql, cn
Response.Write "<option value='title'>-- Selezionare il Tipo di xxxxxxxxxx --"
Do While Not Rs.Eof
Response.Write "<option value='"
Response.Write Left(rs("Codice") & Space(4), 4) & "|" & rs("Descrizione")
Response.Write "'"
If preSel = rs("Codice") Then
Response.Write " selected"
End If
Response.Write ">"
Response.Write rs("Descrizione")
Response.Write vbcrlf
Rs.MoveNext
Loop
Response.Write "</select>"
rs.Close
End Sub
se dici "per voi esperti" ti escludi dal "nostro" club, molto elitario. sta' attento