<% If Request.Form("Usuario")=Empty Then %>
<% Else
Session("Autentificado")=False
Session("G_Id_Empresa") = "PS"
Session("G_Empresa") = "Id_Empresa='" & Session("G_Id_Empresa") & "'"
set rsUsuarios = Server.CreateObject("ADODB.Recordset")
rsUsuarios.open "SELECT basusuarios.*,basareas.Nombre_Area FROM basusuarios, basareas " & _
" Where Id_Usuario='" & UCase(Request.Form("Usuario")) & "'" & _
" AND basusuarios.Id_Area=basareas.Id_Area " ,xBase
' rsUsuarios.open "SELECT * FROM Afiliados Where Socio=" & Request.Form("Usuario"),xBase
If Not rsUsuarios.EOF THEN
If UCase(RTrim(rsUsuarios("Password"))) = UCase(RTrim(Request.Form("Password"))) THEN
Session("Autentificado")=True
Session("G_Id_Usuario") = rsUsuarios("Id_Usuario")
Response.Cookies("G_Id_Usuario")=rsUsuarios("Id_Usuario")
Session("G_Nombre_Usuario") = rsUsuarios("Nombre_Usuario")
Session("G_Id_Area") = rsUsuarios("Id_Area")
Session("G_Nombre_Area") = rsUsuarios("Nombre_Area")
Session("G_Id_Nivel") = rsUsuarios("Id_Nivel")
Response.Cookies("G_Id_Nivel")= rsUsuarios("Id_Nivel")
'str=rsUsuarios("Sucursal_Comprobante")
'Response.Cookies("G_Sucursal_Comprobante")= cStr(rsUsuarios("Sucursal_Comprobante"))
%>
Se ha Identificado Correctamente !!!
Bienvenido <%=Session("G_Nombre_Usuario")%>
<%
If Session("Pagina_Destino")<>Empty then
Response.Redirect("redirect.asp")
End If
End If
End If
If Session("Autentificado")=False Then
%>
Usuario y/o Contraseņa Incorrectos
Por favor intente de nuevo.
<%
End If
End If
%>