404
« en: Miércoles 29 de Mayo de 2002, 11:06 »
Por lo que he observado en tu código la consulta sql que utilizas para comprobar si el usuario existe esta mal.
Esta es tu consulta:
sql = "SELECT * FROM tabla1 WHERE Usuario="'&user&'""
Tienes que utilizar el like para comprobar cadenas no puedes utilizar un igual para comparar dos cadenas.
La consulta quedaria de la siguiente forma:
sql = "SELECT * FROM tabla1 WHERE Usuario LIKE '" & user & "'"
RS.Open sql, oConn, 1, 1
Luego es simplemente con un If. Seria:
If Not RS.EOF
'Es que ya existe en la base de datod por lo tanto le redireccionas a la pagina que quieras
Else
'Le introduces en la base de datos
oConn.execute ("INSERT INTO tabla1(Usuario,Clave,Pregunta,Respuesta) VALUES("'&user&'","'&pass&'","'&pregunta&'","'&respuesta&'")" )
Espero q te funcione con lo que te he dicho sino avisame y te paso el codigo entero de como hacerlo.