mailing list: verificare se email esiste già

[massimo67]

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:

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

[optime]

cerca prima di inserire!

select quello che vuoi from tabella where email=ecc

se ti risponde rs.eof=true vuol dire che NON c'è

[massimo67]

Originariamente inviato da optime
cerca prima di inserire!

select quello che vuoi from tabella where email=ecc

se ti risponde rs.eof=true vuol dire che NON c'è

non sono pratico di Asp , guarderò un pò in giro

[cavicchiandrea]

Prova cosi:

<%
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
Set oMailinglistCk = sConnString.execute("SELECT * FROM tblMailingList WHERE SubscriberEmail='" & sEmail & "'")
If oMailinglistCk.Eof Then
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
else
Response.Write "<div align='center'>

Email già presente nella nostra mailing list.</div>" 
oMailinglistOk.Close
Set oMailinglistOk = Nothing
End if
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

non l'ho testato.

[massimo67]

grazie andrea per l'aiuto, ho provato mi da questo errore

Microsoft VBScript runtime  error '800a01a8'

Object required: 'sConnString'

/public/newsletter/includes/functions.asp, line 11

ecco parte di codice con la riga 11 in bold
funziona anche in cancellazione, verifica se esiste l'email? esempio. "email inesistente nel nostro database" (pensi sia utile)

<%
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
Set oMailinglistCk = sConnString.execute("SELECT * FROM tblMailingList WHERE  
SubscriberEmail='" & sEmail & "'")
If oMailinglistCk.Eof Then
sSQL="INSERT INTO tblMailingList(SubscriberEmail,dateAdded, IPAddress) VALUES " & _
"('" & sEmail & "',Now(),'" & sIPAddy & "')"

grazie

[cavicchiandrea]

<%
Sub Subscribe()
Dim oMailingListConnection, sSQL, sEmail, oMailinglistCk
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
Set oMailinglistCk = oMailinglistConnection.execute("SELECT * FROM tblMailingList WHERE SubscriberEmail='" & sEmail & "'")
If not oMailinglistCk.Bof Then
Response.Write "<div align='center'>

Email già presente nella nostra mailing list.</div>" 
else
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
Set oMailinglistOk = 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
%>

[massimo67]

mi dice questo:


Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/public/newsletter/includes/functions.asp, line 24

elseif sRdbOption="UnSubscribe" AND BlnValidEmail Then 'If radiobutton unsubscribe ticked and valid email
^

[cavicchiandrea]

Ultimo tentativo, poi mettici un po del tuo:

<%
Sub Subscribe()
Dim oMailingListConnection, sSQL, sEmail, oMailinglistCk
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
Set oMailinglistCk = oMailinglistConnection.execute("SELECT * FROM tblMailingList WHERE SubscriberEmail='" & sEmail & "'")
If not oMailinglistCk.Bof Then
Response.Write "<div align='center'>

Email già presente nella nostra mailing list.</div>" 
else
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
Set oMailinglistOk = Nothing
End if
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
%>