<%
cadena="select * from tabla order by nombre_campo asc"
Set rs_lista = Server.CreateObject("ADODB.Recordset")
rs_lista.Open cadena,connStr
%>
<select name="lista1">
<%while not rs_lista.eof%>
<option value="<%=rs_lista("id_campo")%& gt;"> <%=rs_lista("nombre_campo")%>&l t;/option>
<%rs_lista.movenext
wend%>
</select>
donde id_campo podria ser el identificador de ese registro si lo necesitas, y nombre campo el campo correspondiente.
Espero que te sirva y si no sabes algo pregunta ;)
<pre><tt>
<font size="+1" color="#FF2F4E">Moncherote en assión![/CODE]</tt></pre>