Bueno, no soy muy experta, pero supongo k podrás poner el combo basado en un recordset, y el segundo poner en el where la condición de que sea igual al valor del recordset anterior, es decir, así definir el combo:
Cita: <select name="estprin" id="estprin">
<option value="0" <%If (Not isNull((rstclie.Fields.Item("estprinc").Value))) Then If ("0" = CStr((rstclie.Fields.Item("estprinc").Value))) Then Response.Write("SELECTED") : Response.Write("")%>></option>
<%
While (NOT rstcliest.EOF)
%>
<option value="<%=(rstcliest.Fields.Item("clave").Value)%> "
<%If (Not isNull((rstclie.Fields.Item("estprinc").Value))) Then
If (CStr(rstcliest.Fields.Item("clave").Value) = CStr((rstclie.Fields.Item("estprinc").Value)))
Then Response.Write("SELECTED") : Response.Write("")%> >
<%=(rstcliest.Fields.Item("nombre").Value)%></option>
<%
rstcliest.MoveNext()
Wend
If (rstcliest.CursorType > 0) Then
rstcliest.MoveFirst
Else
rstcliest.Requery
End If
%>
</select>
Aquí hay 2 recordserts, rstcliest y rstclie, y le estoy diciendo que cree un combo con un valor '0' y luego los datos del recordset rstcliest pero que me seleccione el valor que es igual en rstclie..
en éste código las sql están definidas así:
Cita: <%
Set rstcliest = Server.CreateObject("ADODB.Recordset")
rstcliest.ActiveConnection = MM_conexion_STRING
rstcliest.Source = "SELECT * FROM clientes"
rstcliest.CursorType = 0
rstcliest.CursorLocation = 2
rstcliest.LockType = 1
rstcliest.Open()
%>
<%
Set rstclie = Server.CreateObject("ADODB.Recordset")
rstclie.ActiveConnection = MM_conexion_STRING
rstclie.Source = "SELECT DISTINCT clientes.*,clie.*
FROM (clientes LEFT JOIN clientes AS clie ON clientes.estprinc =clie.pk_clave)
rstclie.CursorType = 0
rstclie.CursorLocation = 2
rstclie.LockType = 1
rstclie.Open()
%>
Si no hay datos en el combo siempre puedes poner el valor estático en vez de '0', como valor null y etiqueta "no hay items"..
espero k t sirva de algo..