Pequeño error en código para entrar con passwords

Fr@Nc3$c0 · #1 (**permalink**) 19/06/2002, 10:18

Tengo este breve código para conseguir crear entrar con password a la página web, pero no puedo, me da error en la línea 8: "ERROR DE SÍNTAXIX EN LA CADENA USUARIO='PEPE' "

<% nom = Request.Form("login")
password = Request.Form("password")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "bms.es.bms"
SQLQuery = "SELECT Usuario FROM datauser WHERE usuario='" & nom & ""
Set RS1 = Conn.Execute(SQLQuery)

If RS1.BOF AND RS1.EOF then
Response.Redirect("error_usuario.htm")
End If

SQLQuery = "SELECT Clave FROM datauser WHERE Clave='" & password & ""
Set RS2 = Conn.Execute(SQLQuery)

If RS2.BOF AND RS2.EOF then
Response.Redirect("error_password.htm")
End If

Response.Redirect("entrada_aceptada.htm" )

RS1.Close
RS2.Close
Conn.Close
%>

Por favor si alguien puede modificar o hacer alguna mejora o ayudarme en el código este que no lo dude, gracias de antemano.

Yo al llamar al RS1 no la utilizo, en vez de llamarla no se podría comparar directamente con el de la base de datos, como lo harían ustedes señores, un reto xDD.

Fr@Nc3$c0

ElAprendiz · #2 (**permalink**) 19/06/2002, 10:22

veo que te falta una comilla simple aqui:

SQLQuery = "SELECT Clave FROM datauser WHERE Clave='" & password & ""
y aqui

SQLQuery = "SELECT Usuario FROM datauser WHERE usuario='" & nom & ""

ojala sea eso..

bakanzipp · #3 (**permalink**) 19/06/2002, 10:23

Código:

  

Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Conn.Open &quot;bms.es.bms&quot;
SQLQuery = &quot;SELECT Usuario FROM datauser WHERE usuario='&quot; &amp; nom &amp; &quot;' and Clave='&quot; &amp; password &amp; &quot;' &quot;
Set RS1 = Conn.Execute(SQLQuery)

If RS1.BOF AND RS1.EOF then
Response.Redirect(&quot;error_usuario.htm&quot;)
else
 Response.Redirect(&quot;entrada_aceptada.htm&quot;)
End If

Fr@Nc3$c0 · #4 (**permalink**) 19/06/2002, 10:27

APRENDIZ: No veo con claridad dónde dices que me falta una comilla, puedes EXPRESARTE MEJOR?? gracias.

BAKANZIP: Eso ya lo había pensado, aunque no lo he probado y estoy seguro de que sí funcionaría, quiero hacer una pijada y saber cuando es fallo del USUARIO y cuando es fallo del PASSWORD.
Gracias de todos modos.

Debe exisitir algún comando que compare o que si existe en la base de datos....no sé, necesito ayuda porfavor.

bakanzipp · #5 (**permalink**) 19/06/2002, 10:38

bueno entonces haszle caso a aprendiz

Código:

  
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Conn.Open &quot;bms.es.bms&quot;
SQLQuery = &quot;SELECT Usuario FROM datauser WHERE usuario='&quot; &amp; nom &amp; &quot;' &quot;
Set RS1 = Conn.Execute(SQLQuery)

If RS1.BOF AND RS1.EOF then
Response.Redirect(&quot;error_usuario.htm&quot;)
End If

SQLQuery = &quot;SELECT Clave FROM datauser WHERE Clave='&quot; &amp; password &amp; &quot;' &quot;
Set RS2 = Conn.Execute(SQLQuery)

If RS2.BOF AND RS2.EOF then
Response.Redirect(&quot;error_password.htm&quot;)
End If

Response.Redirect(&quot;entrada_aceptada.htm&quot;)

se faltaba una comilla simple al cerrar la variable nom y password

bakanzipp · #6 (**permalink**) 19/06/2002, 10:41

pero mi duda es:

SUPONGAMOS QUE TIENES ESOTS DOS REGISTROS:

USER PWD
JUAN AAA
PEDRO AAA

Primero vas a buscar al user JUAN...esta?..
SI ESTA..

despues vas a buscar la clave AAA...esta?..
SI ESTA..

Pero a cual de los dos usuarios va a loguear a JUAN o a PEDRO?.

la ultima consulta la vas a tener que hacer comparando usuario y clave sino no la veo eficiente

;)

Fr@Nc3$c0 · #7 (**permalink**) 19/06/2002, 10:55

BAKANZIP: Pues el resultado de esa comilla simple no ha hecho efecto, me dice el mismo mensaje.

En cuanto a los password repetidos, en mi base de datos no se repiten puesto que tengo que se genere solo, nunca repetido, pero aún así, haré una comparativa al final entre usuario y password.

Más posibles fallos u erroreS?!?

Gracias de antemano

bakanzipp · #8 (**permalink**) 19/06/2002, 10:57

ke te parece si le haces un response.write a las dos consultas antes de ejecutarlas para ver que es lo que muestra el sql?.

Fr@Nc3$c0 · #9 (**permalink**) 19/06/2002, 10:58

El error mas concretamente que me da igualmente es:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/verificacion_password.asp, line 8

bakanzipp · #10 (**permalink**) 19/06/2002, 11:03

es problema de la construccion del sql..haz esto con los dos sql para verlos

Código:

  
SQLQuery = &quot;SELECT Usuario FROM datauser WHERE usuario='&quot; &amp; nom &amp; &quot;';&quot;

response.write SQLQuery

Set RS1 = Conn.Execute(SQLQuery)

Fr@Nc3$c0 · #11 (**permalink**) 19/06/2002, 11:04

BAKANZIP: Cómo quieres que haga el response.write, no sé muxo perdoname.

Fr@Nc3$c0 · #12 (**permalink**) 19/06/2002, 11:13

BAKANZIP: He puesto este código

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "zop.es.zop"
SQLQuery = "SELECT Usuario FROM datauser WHERE Usuario='" & nom & "' "
Response.Write SQLQuery
Set RS1 = Conn.Execute(SQLQuery)

If RS1.BOF AND RS1.EOF then
Response.Redirect("error_usuario.htm")
End If

SQLQuery = "SELECT Clave FROM datauser WHERE Clave='" & password & "' AND usuario='" & nom & "' "
Response.Write SQLQuery
Set RS2 = Conn.Execute(SQLQuery)

Y en el error del explorer me sale lo mismo, esto:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/verificacion_password.asp, line 9

Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Página:
POST 49 bytes to /verificacion_password.asp

Datos de POST:
login=PEPE5&password=M3f45&enviar=Entrar

Hora:
jueves, 20 de junio de 2002, 3:05:06

Que opinas?

Más información:
Soporte técnico de Microsoft

urjose · #13 (**permalink**) 19/06/2002, 11:19

Cita:

Pocos parámetros. Se esperaba 1.
/verificacion_password.asp, line 9

En la Query SQL estas mencionando algún campo que no existe, bueno al menos en mi experiencia ese error es por ello.

Saludos

<center><a href="http://www.comunidadguru.com">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

bakanzipp · #14 (**permalink**) 19/06/2002, 11:19

pero amigo...

¿te imprime esto ?

Response.Write SQLQuery

deberia imprimirte algo asi

SELECT Usuario FROM datauser WHERE Usuario='PEPE'

VES ESO?

Fr@Nc3$c0 · #15 (**permalink**) 19/06/2002, 11:27

URJOSE!: Cuánto tiempo carai! Que puedo hacer para solucionar este problema, necesito terminar esto....

BAKANZIP: No imprimió nada, simplemente error de página.

EL Código COMPLETO del web es el siguiente, porfavor estoy harto de mirarlo constamente durante todo el día desde la 8:00 ..... ayudarmmeeeee:

<% nom = Request.Form("login")
password = Request.Form("password")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "zop.es.zop"
SQLQuery1 = "SELECT Usuario FROM datauser WHERE Usuario='" & nom & "' "
Set RS1 = Conn.Execute(SQLQuery1)

If RS1.BOF AND RS1.EOF then
Response.Redirect("error_usuario.htm")
End If

SQLQuery2 = "SELECT Clave FROM datauser WHERE Clave='" & password & "' "
Set RS2 = Conn.Execute(SQLQuery2)

If RS2.BOF AND RS2.EOF then
Response.Redirect("error_password.htm")
End If

Response.Redirect("entrada_aceptada.htm" )

RS1.Close
RS2.Close
Conn.Close
%>

Yolanda · #16 (**permalink**) 19/06/2002, 11:33

Hola!!

perdona q me meta asi x medio de vuestra discusion.
Mi consejo: Prueba a poner tu un valor válido a la variable nom, a ver si el error viene xq no te llega con contenido o algo asi??

Y bueno, dime si funciona...ok?

un saludo

AlZuwaga · #17 (**permalink**) 19/06/2002, 11:35

Para depurar, poné On error resume next como primer línea del código (o justo antes de la línea que da error) y luego si imprimí en pantallas las consultas:

Response.Write SQLQuery1
Response.Write SQLQuery2

Fr@Nc3$c0 · #18 (**permalink**) 19/06/2002, 11:42

YOLANDA: Te refieres a que coloque el valor bueno del usuario en el codigo? Poner el nombre del usuario en el código sustituyendo NOM ?

DAZUAGA: He colocado RESPONSE.WRITE SQLQuery1 delante del error, justamente despues de llamar a la Base de Datos y el error es el mismo, en la linea 8, falta un parametro...

PORFAVOR QUE ALGUIEN ME AYUDE

Fr@Nc3$c0 · #19 (**permalink**) 19/06/2002, 11:44

YOLANDA: Cuando hago eso que me pides me da el error siguiente:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/verificacion_password.asp, line 7, column 59

Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Página:
POST 49 bytes to /verificacion_password.asp

Datos de POST:
login=PEPE&password=M343&enviar=Entrar

Hora:
jueves, 20 de junio de 2002, 3:38:46

Más información:
Soporte técnico de Microsoft

Gracias de aNteManO

AlZuwaga · #20 (**permalink**) 19/06/2002, 11:45

Cita:

DAZUAGA: He colocado RESPONSE.WRITE SQLQuery1 delante del error, justamente despues de llamar a la Base de Datos y el error es el mismo, en la linea 8, falta un parametro

si, 'ta bien... pero pusiste el on error resume next ? sin este, siempre va a dar error y no va a mostrar nada

urjose · #21 (**permalink**) 19/06/2002, 11:52

Coloca el Nombre de tus campos de la Base de datos EXACTAMENTE .

Despues nos colocas la Query

Saludos

<center><a href="http://www.comunidadguru.com">
<img border="0" src="http://pcmasmas.com.ar/foro/images/avatars/043.gif"></a></center>

Fr@Nc3$c0 · #22 (**permalink**) 19/06/2002, 11:54

DAZUAGA: He hecho lo que me decias, y he colocado esa linea justo antes de la linea que daba error.

Pues el resultado es que me va a la página que habia definido como error de USUARIO inexistente o MAL ESCRITO.

Que es lo que hago mal pues, no llegan bien los datos?

Gracias, muchas gracias de antemano

Fr@Nc3$c0 · #23 (**permalink**) 19/06/2002, 11:58

Campos? las columnas:

Usuario, Clave, Nombre, Apellidos....
eso?

bakanzipp · #24 (**permalink**) 19/06/2002, 13:22

jaaa...
me voy a almorzar y parecen que estan todos ayudandote...para que veas que las ganas de ayudar sobran...

esto esta raro...haz esto para ver en que linea se esta cayendo definitivamente

Código:

  
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)

response.write &quot;crea la conexion&quot;

Conn.Open &quot;zop.es.zop&quot;

response.write &quot;abre la conexion&quot; esto es medio raro

SQLQuery1 = &quot;SELECT Usuario FROM datauser WHERE Usuario='&quot; &amp; nom &amp; &quot;' &quot;

response.write &quot;hace el SQL&quot;+SQLQuery1

Set RS1 = Conn.Execute(SQLQuery1)

response.write &quot;ejecuta el SQL&quot;

avisa que te muestra en pantalla

:Py no desesperes que va a salir

Yolanda · #25 (**permalink**) 19/06/2002, 16:16

Chicos que estres!!!!

si q es raro lo q te pasa, a ver q es lo q sale como resultado de lo q te ha dicho bakanzipp por que yo tambien estoy mu intrigada en ver q es lo q pasa.
Ya flipo con q poniendo un valor correcto en la select te siga dando un error :(

Creo q lo q debe fallar es la conexión con la base de datos...

Pero bueno, no adelantemos acontecimientos.....

Hasta prontoooooooo

Yolanda

(continuara..........jeje)

Fr@Nc3$c0 · #26 (**permalink**) 20/06/2002, 02:29

BAKANZIP y YOLANDA tras varios intentos mios, sigo un día mas sin poder conseguirlo y en breve os diré el resultado de la prueba de BAKANZIP, admiro mucho vuestro interés por ayudar.

Fr@Nc3$c0

Fr@Nc3$c0 · #27 (**permalink**) 20/06/2002, 02:33

Chicos, el resultado de BAKANZIP tras haber puesto esto:

<%
nom = Request.Form("login")
password = Request.Form("password")

Set Conn = Server.CreateObject("ADODB.Connection")
response.write "crea la conexion"
Conn.Open "zop.es.zop"
SQLQuery1 = "SELECT Usuario FROM datauser WHERE Usuario='" & nom & "' "
Response.Write "hace el SQLQuery1"
Set RS1 = Conn.Execute(SQLQuery1)

---------------------------------

Es el siguiente error: (porque no muestra nada):

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/verificacion_password.asp, line 11

Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Página:
POST 49 bytes to /verificacion_password.asp

Datos de POST:
login=1002Gutierrez45&password=M251&enviar =Entrar

Hora:
jueves, 20 de junio de 2002, 18:27:07

Más información:

Fr@Nc3$c0 · #28 (**permalink**) 20/06/2002, 02:47

Muchas gracias a todos:

ELAPRENDIZ
BAKANZIPP
URJOSE
GARCIAGA...
YOLANDA...

Era un error MUY TONTO en la BASE DE datos, en la lectura de los CAMPOS (gracias URJOsÉ).
En Vista Diseño en los nombres de campos me aparecian... USUARIO, CLAVE... pero en vista de Hojas de Datos los nombres eran diferentes: User, Password...

Algo que no entiendo, pero visto que la tabla no era mia y estaba echa con ACCES 97.... no le doy mas vueltas

Gracias de nuevo

Fr@Nc3$c0

AlZuwaga · #29 (**permalink**) 20/06/2002, 11:31

PLOP!

bueno, menos mal que ya todo se solucionó