Guerra Castellanos y Asociados

<% 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