Ciao ragazzi,
la priva volta che sono qui e non so se sto postando nella sezione giusta. Chi mi aiuta??
ho installato una mailinglist in ASP e non riesco a fare partire le mail..... o meglio, chi si registra dovrò ricevere mail di conferma per la registrazione o la cancellazione. Posto il vodice :-( dove sta l'errore????
Mailing = lcase(request("Mailing"))
If Mailing = "add" then
on error resume next
Body = "Ciao "&request("name") & vbCrlf & vbCrlf
Body = Body &"Per favore conferma questo indirizzo e-mail per essere inserito nella MailingList di "& Live_server & vbCrlf & vbCrlf
Body = Body &"Se invece questa e-mail ti giunge per errore per favore ignorala grazie" & vbCrlf & vbCrlf
Body = Body &"Per la tua conferma clicca il collegamento qui sotto grazie "& vbCrlf
Body = Body &"Link : " & ServerURL & "mail.asp?action=add&nome="&nome&"&email="&request("email")
email = request("email")
Set cdoConfig = CreateObject("CDO.Configuration")
Mail.MailFormat = html
Mail.BodyFormat = 1
Mail.from = email_iscr
Mail.to = email
Mail.Subject = Og_Iscrizione
Mail.Body = Body
Mail.Send
Response.Write("<div align=""center""><TABLE WIDTH=""100%"" BORDER=""0"" HEIGHT=""1"" BORDERCOLOR=""#000000"" CELLSPACING=""0"" CELLPADDING=""0""><TR>" & vbcrlf)
Response.Write("<td width=""553""><DIV ALIGN=""CENTER""><font color=""#990000"" face=""Arial"" size=""4"">" & vbcrlf)
Response.Write("Richiesta salvata<br></font>Per verificare l'autenticità della tua e-mail controlla la tua" & vbcrlf)
Response.Write("casella di posta e poi esegui le istruzioni che trovi nella e-mail che ti è stata inviata" & vbcrlf)
Response.Write("per confermare la tua<font color=""#800000""> Iscrizione </font>" & vbcrlf)
Response.Write("<br>Grazie</DIV></TR></TABLE></div>")
End if
If Mailing = "cancellami" then
on error resume next
Body = "Ciao "&request("name")& vbCrlf
Body = Body &"Per favore conferma la tua cancellazione alla Mailing List di "& Live_server & vbCrlf & vbCrlf
Body = Body &"Se invece questa e-mail ti giunge per errore per favore ignorala grazie "& vbCrlf & vbCrlf
Body = Body &"Per la tua conferma clicca il collegamento qui sotto grazie "& vbCrlf
Body = Body &"Link : " & ServerURL &"mail.asp?action=cancellami&nome="&nome&"&email="&request("email")
email = request("email")
Set cdoConfig = CreateObject("CDO.Configuration")
Mail.MailFormat = html
Mail.BodyFormat = 1
Mail.from = email_can
Mail.to = email
Mail.Subject = Og_cancellazione
Mail.Body = Body
Mail.Send
Response.Write("<div align=""center""><TABLE WIDTH=""100%"" BORDER=""0"" HEIGHT=""1"" BORDERCOLOR=""#000000"" CELLPADDING=""0"" CELLSPACING=""0"">" & vbcrlf)
Response.Write("<TR><td width=""554""><DIV ALIGN=""CENTER""><font color=""#990000"" face=""Arial"" size=""4"">" & vbcrlf)
Response.Write("Richiesta salvata<br></font>Per verificare l'autenticità della tua e-mail controlla la tua" & vbcrlf)
Response.Write("casella di posta e poi esegui le istruzioni che trovi nella e-mail che ti è stata inviata" & vbcrlf)
Response.Write("per confermare la tua <font color=""#800000""> Cancellazione </font>" & vbcrlf)
Response.Write("<br>Grazie</DIV></TR></TABLE></div>")
End if
DoLcase= request("action")
Action = lcase(DoLcase)
if Action = "add" then
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT email FROM Mailing WHERE email='"& request("email")&"'"
RS.open sql,Conn
MI AIUTATE?????????
la priva volta che sono qui e non so se sto postando nella sezione giusta. Chi mi aiuta??
ho installato una mailinglist in ASP e non riesco a fare partire le mail..... o meglio, chi si registra dovrò ricevere mail di conferma per la registrazione o la cancellazione. Posto il vodice :-( dove sta l'errore????
Mailing = lcase(request("Mailing"))
If Mailing = "add" then
on error resume next
Body = "Ciao "&request("name") & vbCrlf & vbCrlf
Body = Body &"Per favore conferma questo indirizzo e-mail per essere inserito nella MailingList di "& Live_server & vbCrlf & vbCrlf
Body = Body &"Se invece questa e-mail ti giunge per errore per favore ignorala grazie" & vbCrlf & vbCrlf
Body = Body &"Per la tua conferma clicca il collegamento qui sotto grazie "& vbCrlf
Body = Body &"Link : " & ServerURL & "mail.asp?action=add&nome="&nome&"&email="&request("email")
email = request("email")
Set cdoConfig = CreateObject("CDO.Configuration")
Mail.MailFormat = html
Mail.BodyFormat = 1
Mail.from = email_iscr
Mail.to = email
Mail.Subject = Og_Iscrizione
Mail.Body = Body
Mail.Send
Response.Write("<div align=""center""><TABLE WIDTH=""100%"" BORDER=""0"" HEIGHT=""1"" BORDERCOLOR=""#000000"" CELLSPACING=""0"" CELLPADDING=""0""><TR>" & vbcrlf)
Response.Write("<td width=""553""><DIV ALIGN=""CENTER""><font color=""#990000"" face=""Arial"" size=""4"">" & vbcrlf)
Response.Write("Richiesta salvata<br></font>Per verificare l'autenticità della tua e-mail controlla la tua" & vbcrlf)
Response.Write("casella di posta e poi esegui le istruzioni che trovi nella e-mail che ti è stata inviata" & vbcrlf)
Response.Write("per confermare la tua<font color=""#800000""> Iscrizione </font>" & vbcrlf)
Response.Write("<br>Grazie</DIV></TR></TABLE></div>")
End if
If Mailing = "cancellami" then
on error resume next
Body = "Ciao "&request("name")& vbCrlf
Body = Body &"Per favore conferma la tua cancellazione alla Mailing List di "& Live_server & vbCrlf & vbCrlf
Body = Body &"Se invece questa e-mail ti giunge per errore per favore ignorala grazie "& vbCrlf & vbCrlf
Body = Body &"Per la tua conferma clicca il collegamento qui sotto grazie "& vbCrlf
Body = Body &"Link : " & ServerURL &"mail.asp?action=cancellami&nome="&nome&"&email="&request("email")
email = request("email")
Set cdoConfig = CreateObject("CDO.Configuration")
Mail.MailFormat = html
Mail.BodyFormat = 1
Mail.from = email_can
Mail.to = email
Mail.Subject = Og_cancellazione
Mail.Body = Body
Mail.Send
Response.Write("<div align=""center""><TABLE WIDTH=""100%"" BORDER=""0"" HEIGHT=""1"" BORDERCOLOR=""#000000"" CELLPADDING=""0"" CELLSPACING=""0"">" & vbcrlf)
Response.Write("<TR><td width=""554""><DIV ALIGN=""CENTER""><font color=""#990000"" face=""Arial"" size=""4"">" & vbcrlf)
Response.Write("Richiesta salvata<br></font>Per verificare l'autenticità della tua e-mail controlla la tua" & vbcrlf)
Response.Write("casella di posta e poi esegui le istruzioni che trovi nella e-mail che ti è stata inviata" & vbcrlf)
Response.Write("per confermare la tua <font color=""#800000""> Cancellazione </font>" & vbcrlf)
Response.Write("<br>Grazie</DIV></TR></TABLE></div>")
End if
DoLcase= request("action")
Action = lcase(DoLcase)
if Action = "add" then
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT email FROM Mailing WHERE email='"& request("email")&"'"
RS.open sql,Conn
MI AIUTATE?????????