aca les pongo el codigo completo (gracias Al zuwaga por tu aporte) asi ya lo tienen. Es para CARGAR DINAMICAMENTE UN SELECT Y ADEMAS SELECCIONAR EL VALOR ACTIVO EN LA DB.
Saludos y gracias por su ayuda
Código HTML:
<% ' aca conecto a la base (sql server en este caso)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=MT14647;Database=peregrina_db;Uid=administrativo;Pwd=madb8107"
set rs = Server.CreateObject("ADODB.Recordset")
set rs_e_viv = Server.CreateObject("ADODB.Recordset")
set rs_comision = Server.CreateObject("ADODB.Recordset")
set rs_categoria = Server.CreateObject("ADODB.Recordset")
user= request.form("nombre_usuario") ' aca recogo una variable string (nombre usuario que viene de un formulario previo, y necesito para ejecutar la busqueda)
'consulta de tablas relacionales
sql ="SELECT * from socios INNER join comisiones on socios.id_comision=comisiones.id_comision INNER join estado_vivienda on socios.id_e_vivienda=estado_vivienda.id_e_vivienda INNER join categorias_user on socios.id_categoria_user=categorias_user.id_categoria_user WHERE socios.nombre_user_i = '"&user&"'"
rs.Open sql, Conn
%>
''''' hasta aca va antes que cualquier cosa (<html>)
' aca va el codigo del select (en el body por supuesto, donde quieras poner el select)
<select name="comision" id="select"><% ' combo comision
comision ="SELECT * from comisiones order by id_comision asc"
rs_comision.Open comision, Conn
do while not rs_comision.eof
%>
<option value="<%=rs_comision("id_comision")%>"<% if CInt(rs_comision("id_comision")) = CInt(rs("id_comision")) then response.write "selected" %>><%="("&rs_comision("s_comision")&") "&rs_comision("descripcion")%></option>
<%rs_comision.movenext
loop
set rs_comision=nothing
%>
</select>