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

[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
%>