<% USU=Request.Form("USUA") ACC=Request.Form("PSS") openstr = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("usuariosbiblio.mdb") Set cn = Server.CreateObject("ADODB.Connection") cn.Open openstr sql = "SELECT USUAR, PASSW, NOMB1, NAC, DIRE1, DIRE2, POBLA, POBLA2, CP, PAIS, TEL1, MAIL, RFC, NIVEL, CURRI1, CURRI2, CIVIL, HIJOS " & _ "FROM SOCIOS_TODOS WHERE USUAR='" & USU & "' " & _ "AND PASSW='" & ACC & "' " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 1, 1 If rs.EOF or rs.BOF then Response.clear Response.redirect "no.asp" End if On Error Resume Next rs.MoveFirst Session("USUARIO")=USU Session("ACCESO")=ACC rs.Close Set rs = Nothing cn.Close Set cnn1 = Nothing Response.redirect "porta_biblio.asp" %>