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