ayuda duplicados en base de datos

[trunder]

hola, tengo una paguina de registros que en teoria si registran un imeil que esta en la base de datos ya introducido te manda a otra paguina que te da un mensage de imeil ya introducido, pero no se que tengo mal pero no te manda a la otra paguina si no que mete otro registro con ese imeil, el codigo es este aver si alguien ve algo que este mal.

'Recupero los datos del formulario y los introduzco en sus respectivas variables
ses=session("inses")
nombre=request.form("nombre")
apellidos=request.form("apellidos")
email=request.form("email")
nick=request.form("nick")
pass=request.form("pass")
direccion=request.form("direccion")
ciudad=request.form("ciudad")
provincia=request.form("provincia")
pais=request.form("pais")
telf=request.form("telf")
cp=request.form("cp")
estadocivil=request.form("estadocivil")
sexo=request.form ("sexo")
ocupacion=request.form("ocupacion")
intereses=request.form("intereses")

'response.write(email & "<br>")

'si telf, ocupacion o intereses estan vacios añade un &nbsp;
if telf=""then telf="&nbsp;"end if
if ocupacion="" then ocupacion="&nbsp;" end if
if intereses=""then intereses="&nbsp;" end if

'consulta SQL
'SQL="Select EMAIL From USUARIOS where EMAIL="&email
'creo el objecto ADOB
'Set conexion=Server.CreateObject("ADOB.Connection")
'abro la conexion
'conexion.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
'Ejecuto la Consulta SQL
'response.write(SQL)
'set Registros.execute(SQL)

'si no encuantra coincidencia
'if Registros.eof or Registros.bof then

'inserto la consulta sql en la variable Consul
Consul="INSERT INTO USUARIOS (NOMBRE,APELLIDOS,EMAIL,DIRECCION,CIUDAD,PROVINCIA ,PAIS,CP,TELF,OCUPACION,SEXO,ESTADOCIVIL,INTERESES ,NICK,PASS) VALUES ('"&nombre&"','"&apellidos&"','"&email&"','"&direc cion&"','"&ciudad&"','"&provincia&"','"&pais&"','" &cp&"','"&telf&"','"&ocupacion&"','"&sexo&"','"&es tadocivil&"','"&intereses&"','"&nick&"','"&pass&"' )"
'Creo el objeto conexion
Set Conn=Server.CreateObject("ADODB.Connection")
'Abro la conexion a la base de datos
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
'Ejecuto la consulata Sql de entrada de datos
set rs=Conn.execute(Consul)
'cierro conexion
Conn.close
set rs=nothing
set conn=nothing

'si no redirecciono
'else
'response.Redirect("plantilla.asp")
'end if

'cierro conecexion
'conexion.close

[trunder]

no ai nadie que me pueda decir lo que me falla del codigo

[debspain]

hola trunder!
será porque la instruccion en que consultas si el email existe está comentada? Bueno, de hecho hay varias lineas:

'SQL="Select EMAIL From USUARIOS where EMAIL="&email
...
'Set conexion=Server.CreateObject("ADOB.Connection")
...
'conexion.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
...
'set Registros.execute(SQL)
...
'if Registros.eof or Registros.bof then
...

Yo diria que deberias descomentar esas lineas

[trunder]

perodana mi ignorancia pero que quieres decir con descomentar?

[meru-kun]

Pues se refiere a quitar el caracter <b>'</b> de delante de las cadenas, caracter que se utiliza en ASP para comentar código, es decir, para poner explicaciones, comentarios, etc.

[trunder]

ya e quitado los comentarios pero me sige aceptando un
imeil que ya este en la base de datos

[MartYn]

mejor ponle al campo (email) de la base de datos NO ACEPTAR DUPLICADOS

en la tabla

y listo, no te dejara aceptar el formulario si ya existe

[trunder]

ya eso ya lo ice pero entonces el explorer le da un mensage de error y lo que yo quiero es que lo mande a otra paguina mia

[trunder]

aver para mi es dificil saber lo que falla por que toy empezando y esta paguina me la izo un amigo, pero tiene que aver alguien que sepa que esta mal en el codigo, por fabor necesito ayuda ya no se donde mirar ni donde preguntar

[debspain]

hola trunder!
Si has quitado los comentarios... no encuentro el fallo. Ademas si te inserta registros en la BD es que no funciona mal... Podrias poner el codigo entero que tienes ahora en la pagina? Es que yo he hecho una prueba con el mismo codigo (en ensencia) que tienes tu, y me funciona perfecto. Deja otra vez el codigo y a ver si te puedo ayudar.
CHao!

[trunder]

que quieres el codigo entero de la paguina?

[Myakire]

A ver, prueba esto:

Set conexion=Server.CreateObject("ADOB.Connection")
conexion.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db0001/db0001.mdb")
set adoRs = Server.CreateObject("adodb.recordset")
SQL="Select EMAIL From USUARIOS where EMAIL='"&email &"'"
adoRs.Open SQL,conexion
if adoRs.EOF Then
......todo lo demás ...

Saludos

[debspain]

hola!
No creo que sea lo de las comillas, Myakire, si no le habría dado un error de que falta un operador en la sentencia. Y segun trunder, el registro lo inserta bien, asi que una de dos, o en realidad la pagina no le está funcionando porque le faltan las comillas o no la tiene tal que así . Bueno trunder, si aun asi no te funciona podrias pasarnos el codigo entero de la pagina. Chaoooo!

[trunder]

ya lo e solucionado, gracias por la ayuda a todos

[debspain]

a ti trunder!