non riesco a fare un passaggio: verificare se l'email esiste già nel database sia in Iscrizione che in cancellazione dalla mailing list.

posto il codice:

codice:
<%
Sub Subscribe()
Dim oMailingListConnection, sSQL, sEmail
Dim sRdbOption, sIPAddy, BlnSubscribed
Dim BlnValidEmail, BlnUnSubscribed
sEmail=Request.Form("txtEmail")
sRdbOption=Request.Form("rdbMailingList")
sIPAddy=Request.ServerVariables("REMOTE_ADDR")
BlnValidEmail=IsValidEmail(sEmail)
If sRdbOption="Subscribe" AND BlnValidEmail Then 'If radiobutton subscribe ticked and valid email
sSQL="INSERT INTO tblMailingList(SubscriberEmail,dateAdded, IPAddress) VALUES " & _
"('" & sEmail & "',Now(),'" & sIPAddy & "')"
Response.Write "<div align='center'>

Grazie, l'iscrizione è avvenuta con successo.</div>" 
Set oMailinglistConnection=Server.CreateObject("ADODB.Connection")
oMailinglistConnection.Open sConnString
oMailinglistConnection.execute sSQL
oMailinglistConnection.Close
Set oMailinglistConnection = Nothing
Elseif sRdbOption="UnSubscribe" AND BlnValidEmail Then 'If radiobutton unsubscribe ticked and valid email
sSQL="DELETE * FROM tblMailingList WHERE SubscriberEmail='" & sEmail & "'"
Set oMailinglistConnection =Server.CreateObject("ADODB.Connection")
Response.Write "<div align='center'>

La sua email è stata rimossa dalla nostra mailing list.</div>" 
oMailinglistConnection.Open sConnString
oMailinglistConnection.execute sSQL
oMailinglistConnection.Close
Set oMailinglistConnection = Nothing
Else
Response.Write "<div align='center'>

La sua email non è valida.</div>" 
End If
End Sub
grazie