Saludos y de antemano gracias por su ayuda.

Código:
<select size="1" name="scrs_lista" class="menu">
<% sSQL = "select des_descripcion from ES_SEG_DESCRIPCION "
Set rs = cn2.Execute(sSQL)
While Not rs.EOF
nDescrip = CInt(rs.Fields("des_descripcion"))
Response.Write ("<OPTION value='" & nDescrip & "'></OPTION>")
rs.MoveNext
Wend
rs.Close
Set rs = Nothing %>
</select>

