Estoy por montar un nuevo portal para la intranet que manejo. Quiero hacerlo de tal forma que dependiendo el usuario se muestre una versión del portal especial, según quien se loguee.
Buscando en las FAQ encontré un sitio donde te hablan de autentificación de usuarios, lo bajé y lo probé, incluso haciéndole algunos cambios en la base de datos, puesto que la base de datos que deseo consultar no es acces sino SQL. Pero no he logrado hacerlo andar. El error que me da es el siguiente:
Error Type:
Microsoft JScript compilation (0x800A03F7)
Unterminated string constant
C:\INETPUB\WWWROOT\PRUEBAS\VER2\../../Connections/Login.asp, line 2, column 41
Al ir a la línea 2 encuentro el include que realicé para la conexión a la base de datos Login.
<!--#include file="../../Connections/Login.asp" -->
Seguramente el error está en que no he arreglado bien el código para adaptarlo a SQL, voy a colocar el código de la página login2.asp a ver si me pueden ayudar a encontrar qué está mal
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="../../Connections/Login.asp" -->
<%
Response.Expires = -1000
Response.Buffer = True
Dim Error_Msg
login = Request.Form("login")
If login = "login_again" Then
Session("UserLoggedIn") = ""
ShowLogin
Else
If Session("UserLoggedIn") = "true" Then
AlreadyLoggedIn
Else
If login = "true" Then
CheckLogin
Else
ShowLogin
End If
End If
End If
Sub ShowLogin
Response.Write(Error_Msg & "<br>")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name=form1 action=file:///C|/Domi/Version2/protectedpage.asp method=post>
User Name : <input type=text name=Nombres><br>
Password : <input type=Password name=Password><br>
<input type=hidden name=login value=true>
<input type=submit value="Login">
</form>
</body>
<%
End Sub
Sub CheckLogin
Dim Conn, cStr, sql, RS, Nombres, Password
Nombres = Request.Form("Nombres")
Password = Request.Form("Password")
Set Conn = Server.CreateObject("ADODB.Connection")
cStr = "dsn=Call Center;uid=intranet;pwd=carlosja;"
Conn.Open(cStr)
sql = "SELECT * FROM dbo.personal where Nombres = '" & LCase(Nombres) & "'"
sql = sql & " and Password = '" & LCase(Password) & "'"
Set RS = Conn.Execute(sql)
If RS.BOF And RS.EOF Then
Error_Msg = "Login Failed. Try Again."
ShowLogin
Else
Session("UserLoggedIn") = "true"
Response.Redirect "protectedpage2.asp"
End If
End Sub
%>
</html>
La otra cosa que cambié fue los nombres de los campos de la tabla por que en mi caso se llaman Password y Nombres.
****
Si saben de algo que me pueda servir para realizar esto sería buenísimo, ya que además de loguearse quiero que se le muestre solo lo que a su perfil se le debe mostrar, así que lo que hay es trabajo! Gracias
