pub

<% Response.Expires=0 %> <% NEWURL=R("NEWURL") If NEWURL="" Then NEWURL="Universo.asp" src=Request.ServerVariables("SCRIPT_NAME") Function R(campo) R=""&trim(Request(Campo)) End function Sub P(str) Response.Write str End sub if Request.Form<>"" then %><% strSQL="SELECT Identificador,Nombre,Apellido1,Apellido2 FROM Usuarios Where Identificador='"&R("USUARIO")&"' and Password='"&R("PASS")&"' " Set rsSocio=CNA.Execute(strSQL) if rsSocio.Eof and rsSocio.Bof then ErrorStr="No existe el socio o la contraseña no es correcta" Session("EFLogon")=false rsSocio.Close else Session("EFLogon")=true Session("EFUsuario")=rsSocio("Identificador") Session("EFNombre")=rsSocio("NOMBRE") Session("EFApellido1")=rsSocio("APELLIDO1") Session("EFApellido2")=rsSocio("APELLIDO2") rsSocio.Close Finaliza 'Response.Redirect NEWURL End if End If 'Pide datos de entrada %> pub