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

[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

%>