<%
Response.Buffer = True
Response.Expires = 0
%>
<%
Function displayErrorMSG(theErrNum)
Dim theMSG
Select Case Trim(theErrNum)
Case "1"
theMSG = "Error: Usuario no existe"
Case "2"
theMSG = "Error: Clave incorrecta"
Case ""
theMSG = " "
End Select
displayErrorMSG = theMSG
End Function
%>
<%
If Trim(Request.Form("Flag")) = "1" Then
theUserNameDefValue = "PROFESORES" 'Este es el nombre de usuario asignado a todos los usuarios (PUEDE SER MAYUSCULA O MINUSCULA).
thePassWordDefValue = "SANTILLANA" 'Esta es la contraseña que deberán utilizar todos los usuarios (PUEDE SER MAYUSCULA O MINUSCULA).
TheUserName = UCase(Trim(Request.Form("username")))
ThePassWord = UCase(Trim(Request.Form("password")))
If TheUserName = theUserNameDefValue And ThePassWord = thePassWordDefValue Then
Response.Redirect("url_documentos.asp") 'Esta es la página a la que debe ir el programa si el login es exitoso.
Else
If TheUserName <> theUserNameDefValue Then
Response.Redirect("login.asp?errNum=1")
End If
If TheUserName = theUserNameDefValue And ThePassWord <> thePassWordDefValue Then
Response.Redirect("login.asp?errNum=2")
End If
End If
End If
Function closeMyRS()
myRS.Close
Set myRS = Nothing
End Function
%>
Login Usuarios