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>