<%
Dim Rs,strSQL
Dim Error
session("login") = ""
session("admin") = ""
session("Usuario") = ""
Sub Main()
On Error Resume Next
If Request("Usuario")<>"" AND Request("Password")<>"" Then
Set Rs = Server.CreateObject("adodb.RecordSet")
strSQL = "SELECT * from Usuarios WHERE login ='"& Trim(Request("Usuario")) &"' "
strSQL = strSQL & " AND Password='"& Trim(Request("Password")) &"'"
Rs.Open strSQL, getcConn,3,3
If Not Rs.EOF Then
session("login") = "loggedin"
session("admin") = Rs("admin")
session("Usuario") = Rs("login")
session("id_usuario") = Rs("id_usuario")
Response.Write("")
Else
Error = "El Usuario es Incorrecto, Favor de Intentarlo Nuevamente"
End If
End If
If Err.number <> 0 Then
Error = "Ucurrio Un Error, Favor De Intentarlo Nuevamente"
End If
End Sub
Sub Fin()
Set Rs = Nothing
Set getcConn = Nothing
End Sub
%>
<%
'************************************************************************************************
Main()
'************************************************************************************************
%>
Guerra Castellanos y Asociados
