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

[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