ayuda duplicados en base de datos

trunder
20 de Junio del 2004
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 aade un
if telf=""then telf=""end if
if ocupacion="" then ocupacion="" end if
if intereses=""then intereses="" 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&"\',\'"&direccion&"\',\'"&ciudad&"\',\'"&provincia&"\',\'"&pais&"\',\'"&cp&"\',\'"&telf&"\',\'"&ocupacion&"\',\'"&sexo&"\',\'"&estadocivil&"\',\'"&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