Cita:
Iniciado por Cbas
Y hacé un select con los datos que querés agregar, si el recordset te devuelve registros, no lo agregás, sino hacés el insert...
Por ejemplo
sSQL = "SELECT * FROM usuarios where email = '" & email & "'"
oRc.open sSQL, conn
if orc.eof then
sSQL = "INSERT INTO usuario....."
else
response.write "El email ya existe"
end if
No sé.. algo así se me ocurriría
SALUDOS!
hola de nuevo, pues hice algo como lo que mencionas pero me manda un mensaje de error:
ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.
Código:
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.Createobject("ADODB.RecordSet")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("\db\"+"usuarios.mdb") & ";" & "PWD="
squery = "SELECT * FROM usuarios where email= '" & sEmail & "'"
rs.open squery,cn
if rs.eof then
cn.execute "INSERT INTO usuarios(username,password,fullname,email,usdate) VALUES('"&sUser&"','"&Password&"','"&sNombre&"','"&sEmail&"','"&dfecha&"')"
else
response.Write "EL usuario y/o correo electrónico ya existen"
end if
cn.Close
Set cn = nothing
rs.Close
Set rs = nothing