<% 'CONSULTA PARA OBTENER LOS DATOS Dim Conn, RS, RS1 Dim i i=0 Dim usu,pas,sesion 'conectamos a la tabla. Set Conn = Server.CreateObject ("ADODB.Connection") DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; " ' concatenando DSNtest=dsntest & "DBQ=" & Server.MapPath("congreso1.mdb") Conn.Open DSNtest 'Abrmios el RecordSet (accedemos a los datos de la BD). Set RS = Server.CreateObject ("ADODB.RecordSet") Set RS1 = Server.CreateObject ("ADODB.RecordSet") %>


LISTA DE TRABAJOS RECIBIDOS
<% 'entre " " va el nombre de la tabla, y luego de la "," se indica la BD que contiene esa tabla. 'El número que le sigue, el "1", es la forma de abrir la tabla. Sql= "SELECT cod_trab, codgen_pas, titulo, autores, institucion, area FROM trabajos ORDER BY cod_trab" rs.Open Sql, Conn do while not rs.eof x=x+1 %>
<%=rs("cod_trab")%>
 
 
 <%=rs("titulo")%>
<% Sql2= "SELECT nom_par, ape_par FROM contactenos WHERE codgen_pas='"&rs("codgen_pas")&"'" rs1.Open Sql2, Conn do while not rs1.eof dato=rs1("nom_par") & " " & rs1("ape_par") rs1.movenext loop rs1.close response.Write(dato) %>
<%=rs("institucion")%>
<%rs.movenext loop rs.close %>