Consulta de dos tablas por registros (select depen)

[tammander]

Yo lo haria asi (no lo he comprobado pero deberia funcionar)

Código:

<form name=formulario>
 <p align="left"><strong>N&ordm; Salida:</strong>
 <select name=IdSalidas class="fc_main" onChange="location.href('vis_listas.asp?IdSalidas=' + formulario.IdSalidas.options[formulario.IdSalidas.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = MM_cnx_salidas_STRING

' DEFINICION DE VARIABLES
Dim RS_insc, SQL_insc, IdSalidas
' Para no forzar a la BD (buscar todos los campos, etc) ponemos
' solo los campos que nos interesan
SQL_insc="select idSalidas from salidas order by IdSalidas asc"
' Chequeamos la peticion GET
IdSalidas = request.querystring("IdSalidas")

set RS_insc=createobject("ADODB.Recordset")
RS_insc.open SQL_insc,conn

do while not RS_insc.eof
    response.write("<option value="""&IdSalidas & """")
     if IdSalidad = RS_inc("idSalidas") then response.Write(" selected")
    response.Write(">"&IdSalidas&"</option>")
    RS_insc.movenext
loop

RS_insc.close
set RS_insc = nothing
%>
</select>
<%
' Ya cogimos el dato antes
' Igual que la conexión. Basta con una por página / BD
if IdSalidas <> "" then %>
     
<%
    Dim RS_dat, RS_buzos
    Dim SQL_dat, SQL_buzos
    ' Aqui si queremos todos los campos. Supongo que IdSalidas
    ' es un campo con valor unico  
    SQL_dat="select * from salidas where IdSalidas="&IdSalidas&" order by Fecha asc"
    set RS_dat=createobject("ADODB.Recordset")
    
    RS_dat.open SQL_dat,conn
    if not RS_dat.eof then
    %> 
  &nbsp;&nbsp;Fecha: 
       <input type="text" class="fc_main" value="<%=RS_dat("Fecha")%>" size="15" readonly="true">
 &nbsp;&nbsp;Hora: 
       <input type="text" class="fc_main" value="<%=RS_dat("Hora")%>" size="9" readonly="true">
  &nbsp;&nbsp;Lugar: 
       <input type="text" class="fc_main" value="<%=RS_dat("Destino")%>" size="25" readonly="true">
  &nbsp;&nbsp;Barco:
       <input type="text" class="fc_main" value="<%=RS_dat("Barco")%>" size="17" readonly="true"><br><br>
  <strong>Incidencias:</strong> 
       <input type="text" class="fc_main" value="<%=RS_dat("Incidencias")%>" size="35" readonly="true">
</p>
<strong>Buceadores:</strong><br>
         
<%
        ' Aqui, sin embargo, si que va a devolvernos un array de datos
        SQL_buzos="select * from buzos_incl where IdSalidas="&IdSalidas&" order by Socio asc"
        set RS_buzos=createobject("ADODB.Recordset")
        RS_buzos.open SQL_buzos,conn
        do while not RS_buzos.eof
 
%>
 
       <input type="text" class="fc_main" value="<%=RS_buzos("Socio")%>" size="8" readonly="true">
&nbsp;&nbsp;
       <input type="text" class="fc_main" value="<%=RS_buzos("Nombre")%>" size="50" readonly="true">
&nbsp;&nbsp;
       <input type="text" class="fc_main" value="<%=RS_buzos("DNI")%>" size="10" readonly="true">
&nbsp;&nbsp;
       <input type="text" class="fc_main" value="<%=RS_buzos("TIT")%>" size="20" readonly="true">
       <br />
  
<%
            RS_buzos.movenext
        loop
        RS_buzos.close
        set RS_buzos = nothing
    end if

RS_dat.close

set RS_dat = nothing

%>
<% end if 

Conn.close()
Set Conn = nothing
%>     
</form>

Espero que te sirva



Un saludo