<%
Session("BusquedaStatus") = ""
session("Buscar")= false
Session("BusquedaNombre")= ""
Session("BusquedaNoE")= ""
Session("BusquedaApellidoP")= ""
session("LPVRS") = ""
session("RegporLlevar") = ""
session("UtlRegLlevado") = ""
session("RegresoReg") = ""
session("Termina") = ""
session("Contador") = ""
session("Inicio") = ""
session("P")=""
session("Huella")=""
session("Nombre") = ""
Session("requestedPage")="NoPasoLogin"
if Request("Verifica")="True" then
if request("txtLogin") <> "" then
Login = request("txtLogin")
else
Login = 0
end if
if request("txtPassword") <> "" then
Password = request("txtPassword")
else
Password = 0
end if
Session("EnviaMensaje")="NO"
Session("requestedPage")="NoPasoLogin"
SQL= "select * from Empleado Where Usuario = '" & Login & "'"
Set rs = Server.Createobject("ADODB.Recordset")
rs.open SQL,MyConn
if not rs.EOF then
Login1 = Login
rs.close
SQL = "select IdPerfil from EMPLEADO Where Usuario = '" & Login1 & "' and Pwd = '" & Password & "'"
Set rs =Server.Createobject("ADODB.Recordset")
rs.Open SQL,MyConn
if not rs.EOF then
Vrs = rs.getrows(rs.recordcount)
rs.Close
Session("Perfil") = Vrs(0,0)
Perfil = Session("Perfil")
if cint(Perfil)=1 then 'Administrador
Session("requestedPage")="PasoLogin"
session("Buscar")= false
session("P")="Lista"
Response.Redirect "ListaU.asp"
end if
Session("EnviaMensaje")="NO"
else
Session("requestedPage")="NoPasoLogin"
Session("EnviaMensaje")="SI"
end if ' end if de primer query
else
Session("EnviaMensaje")="SI"
Session("requestedPage")="NoPasoLogin"
end if ' end if de primer query
end if 'El end if de if Verifica
%>
Administración