<% noMenu = -1 %>

<% Usuario = Replace(Trim(Request.Form("Usuario")), "'", "''") PassWord = Replace(Trim(Request.Form("password")), "'", "''") If Len(Usuario) < 1 Then %>

<% Response.write Session("error")%> <% Else If Usuario = "" OR Password = "" Then Session("failed") = True Response.Redirect "default.asp" End If STR = "Select Usuario, Password, Nombre From Usuarios WHERE Usuario ='"&Usuario&"'" Response.Write STR RS.Source = STR RS.Open() If Not RS.EOF Then If PassWord = Trim(RS("Password")) Then Session("allow") = True Session("error") = "" Session("nombre") = Trim(RS("Nombre")) Session("Usuario") = Trim(RS("Usuario")) RS.close() Response.Redirect "inicio.asp" Else Session("allow") = False Session("error") = "

PASSWORD INCORRECTO

" RS.close() Response.Redirect "default.asp" End If Else Session("allow") = False Session("error") = "

Ese usuario no existe

" RS.close() Response.Redirect "default.asp" End If End If Function openlink(link) %> <% End Function %>

Si aún no te has registrado Regístrate ahora