Foros del Web » Programando para Internet » ASP Clásico »

duda con validacion de paginas para usuarios registrados

Estas en el tema de duda con validacion de paginas para usuarios registrados en el foro de ASP Clásico en Foros del Web. buenas nuevamente, les comento: ya he creado (gracias a este foro ) un sistema de registro de usuarios ahora quiero que ingresen a zonas privadas ...
  #1 (permalink)  
Antiguo 06/11/2005, 01:16
 
Fecha de Ingreso: abril-2005
Mensajes: 112
Antigüedad: 20 años
Puntos: 0
duda con validacion de paginas para usuarios registrados

buenas nuevamente, les comento: ya he creado (gracias a este foro ) un sistema de registro de usuarios ahora quiero que ingresen a zonas privadas tengo un codigo armado pero me marca el sigueinte error
Error de compilación de Microsoft VBScript error '800a0401'
Se esperaba un final de instrucción
/login.asp, línea 30
Set obj_Connection = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.Recordset")
------------------------------------------------------------^
el codigo es este:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
IF Request.Form("login")="" AND request.form("password")="" THEN
%>
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="post" action="login.asp">
<p> login
<input name="login" type="text" id="login">
</p>
<p> password
<input name="password" type="text" id="password">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<p>&nbsp;</p>
<p>
<%
ELSE
Session("login")=request.form("login")
Session("password")=request.form("password")

Set obj_Connection = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.Recordset")

strSQL_N = "SELECT * FROM Usuarios WHERE login ='" & Request.Form("login") & "' AND password = '" & Request.Form("password") & "';"

obj_Connection.Open "Usuarios.mdb","",""

rs.Open strSQL_N, obj_Connection,2,2

IF NOT(rs.BOF AND rs.EOF) THEN
Dim aceptado
Session("aceptado")="SI"
Response.redirect "OK.asp"
ELSE
response.redirect "login.asp"
END IF

END IF
%>

</p>
</body>
</html>

la verdad no se a que se refiere ese error (si alguien los sabe nuevamente agradecido a este foro!!!!! perdon por la insistencia!!!!
  #2 (permalink)  
Antiguo 06/11/2005, 08:46
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses
Puntos: 535
Simplemente colocalo en 2 líneas!

Set obj_Connection = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
__________________
...___...
  #3 (permalink)  
Antiguo 06/11/2005, 12:08
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses
Puntos: 98
Pues sera muy compatible, pero yo te la censuraria nomas porque no entiendo naa!

Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:30.