como mostrar un mensaje que me diga la direccion email ya existe.

[mrjhon]

hola amigos la cosa es que deseo saber como hago para que me diga si la direccion de email que ingreso en un formulario me diga que ya esta registrada pero que verdadera mente este en la base de datos ..

mejor dicho si ya existe que me saque un mensaje y sino existe se guarda normal.. gracias

[El_Metallick]

bueno primero tienes que buscar en la base de datos por el campo de email e ir comparando si encuentra la igualdad devolver la página con error si no ingresar el registro...

Lo de rrecorrer un campo de una tabla de la base de datos es basico asique me imagino que lo sabes hacer el condicional seria algo asi:

Código:

<%
...
do while not rs.eof

If request.form("mail") = rs("mail") Then
   response.redirect("formulario.asp")
else
sql = "Insert into tabla........

espero se entienda... saludos

[mrjhon]

gracias viejo vere que puedo hacer se ve facil .. si algo nos bemos mas tarde. jeje bye

[Myakire]

<%
...
do while not rs.eof

If request.form("mail") = rs("mail") Then
response.redirect("formulario.asp")
else
sql = "Insert into tabla........

hijoles!!, no vayas a hacer literalmente eso.

La idea de El_Metallick es correcta, pero su ejemplo, sino sabes exactamente lo que hace, te dará problemas, por que te insertará tantas veces como registros haya antes de que se cumpla la condición.

Deberías hacer algo como:

Rs.Open "select * from tabla where mail = '" & request.form("mail") & "'", Objconn
if Rs.EOF Then
Response.write "No existe"
Else
sql = "Insert into tabla ...." 'ahora si
End If

o también podrías validarlo con un filter o con un ciclo pero validando el problema anterior, etc.

Saludos

[mrjhon]

amigos sera que esto sirve..

<% email=request.form("email")

Set Conna = Server.CreateObject("ADODB.Connection")
Conna.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Marketing.mdb"))

set ra=createobject("ADODB.Recordset")
sqltxt="SELECT email,fecha from correos where email='"&trim(request.form("email"))&"'"
ra.CursorType = adOpenKeyset
ra.LockType = adLockOptimistic

ra.open sqltxt,conna
'comprobación de las cuatro posibilidades
if request.form("suscribir")="si" then
if ra.EOF then
ra.addnew
ra("email")=request.form("email")
ra("fecha")=date()
ra.update
msg="correo añadido a la lista"
else
msg="correo ya existente"
end if
else
if ra.EOF then
msg="correo no perteneciente a la lista"

else
ra.delete
ra.update
msg="correo suprimido de la lista"

end if


end if


ra.close
set ra=nothing
conna.close
set conna=nothing

%>

[El_Metallick]

Ups... no me habia fijado en eso... gracias por la correccion Myakire en todo caso como lo planteas tu es mas facil no lo habia pensado asi ^^ saludos amigo

[mrjhon]

hola amigos digamen porfavor donde esta mi error

me dice que se esperaba un "end"
en la linea 147 y la linea 147 es set conexion = nothing


<%

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Marketing.mdb")&"")

set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "loginuser", Conn, 2, 3

Rs.Open "select * from tabla where mail = '" & request.form("mail") & "'", Objconn
if Rs.EOF Then
Response.write "Ya existe"
Else


RS.AddNew
rs("nombre")=request.form("nombre")
rs("apellidos")=request.form("apellidos")
rs("email")=request.form("email")
rs("fecha")= date()
rs("mes")= month(date())
rs("dia")= day(date())
rs("anyo")= year(date())

RS.Update
RS.Close
conn.Close
set conn = nothing
set conexion = nothing
%>

[El_Metallick]

claro pues no cierras el if... prueba con esto:

Código:

 <%
 
 set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Marketing.mdb")&"")
 
 set RS = Server.CreateObject("ADODB.RecordSet")
 RS.Open "loginuser", Conn, 2, 3
 
 Rs.Open "select * from tabla where mail = '" & request.form("mail") & "'", Objconn
 if Rs.EOF Then
 Response.write "Ya existe"
 Else
 
 
 RS.AddNew
 rs("nombre")=request.form("nombre")
 rs("apellidos")=request.form("apellidos")
 rs("email")=request.form("email")
 rs("fecha")= date()
 rs("mes")= month(date())
 rs("dia")= day(date())
 rs("anyo")= year(date())
   
 RS.Update
 RS.Close
 conn.Close
 set conn = nothing
 End if
 %>

saludos

[mrjhon]

hola metallink mira me sale el siguiete erro en esta linea

Rs.Open "select * from tabla where email = '" & request.form("email") & "'", Objconn
if Rs.EOF Then
Response.write "Ya existe"
Else

ADODB.Recordset error '800a0e79'

La operación solicitada por la aplicación no está permitida si el objeto está abierto.

[El_Metallick]

Claro pues fijate que habres 2 veces el RS

Código:

...
RS.Open "loginuser", Conn, 2, 3

  Rs.Open "select * from tabla where email = '" & request.form("email") & "'", Objconn
...

saludos