Controllo mail esistente

[J.Lankart]

<%
Dim nome, email, testo, tuamail, conn

strConn="driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mio.mdb")
set conn=server.createobject("ADODB.Connection")
conn.open strConn

Dim sql, rs
sql = "SELECT * FROM miatabella"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3



rs.AddNew
rs("nome") = Request.Form("nome")
rs("email") = Request.Form("email")
rs.Update


testo = "mio messaggio di testo"
Set tuamail = Server.CreateObject("CDONTS.Newmail")
tuamail.from = "mail mittente"
tuamail.to = rs("email")
tuamail.bcc = "destinatario2, destinatario3, destinatario4"
tuamail.subject = "testo soggetto mail"
tuamail.body = testo
tuamail.BodyFormat = 0
tuamail.MailFormat = 0
tuamail.send


Set tuamail = Nothing
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Questa paginetta è collegata ad un'altra contenente un piccolo form per iscriversi ad una newsletter.
Pensavo: posso fare in modo di non permettere l'iscrizione se la mail che passa esiste già nel db?
Grazie!!

[mexican]

strsql="Select * From tuatabella where email=" emaildacontrollare
rs.open strsql, conn
if not rs.eof then

esiste già e mandi un'alert o quello che vuoi

else
fai l'inserimento
end if

[J.Lankart]

Grazie!!
ora ci provo!!