<% Session("activo")=true %> <% Dim oConn, RS 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("../../db/modelo.mdb") Conn.Open DSNtest 'Abrmios el RecordSet (accedemos a los datos de la BD). Set RS = Server.CreateObject ("ADODB.RecordSet") '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. RS.Open "SELECT a.aspefam, a.apellido, a.nombre, a.universidad, u.nomuni, a.sexo, a.domicilio, a.email FROM aspefam as a, universidades as u where a.aspefam='"& Request.Form("aspefam") &"' and a.universidad="& Request.Form("uniaspefam") &" and u.coduni="& Request.Form("uniaspefam") &"", Conn, adOpenDynamic do while not rs.eof i=i+1 aspefam=rs("aspefam") universidad=rs("universidad") nuniversidad=rs("nomuni") apepatpos=rs("apellido") nompos=rs("nombre") sexo=rs("sexo") domicilio=rs("domicilio") email=rs("email") rs.movenext loop rs.close %>

		<% if (i=1) then %> <% else %> <% end if%> ADVERTENCIA! La información ingresada no concuerda con nuestra Base de Datos. Por favor verifique sus datos e intente de nuevo. Para cualquier consulta escríbanos a cpem@aspefam.org.pe