Ragazzi, ho un problema con una newsletter scaricata da html.it.
Il codice è composto da un form che serve all'iscrizione nel database di un nuovo utente, poi c'è una pagina dal quale si crea l'email che passa il tutto ad una pagina che da l'anteprima dell'email che a sua volta consente di mandare 'email ad una sola persona o a tutto il database.
Praticamente funziona tutto bene ma al momento dell'invio c'è un errore nella pagina send.asp che dovrebbe mandare l'email a tutti gli utenti del database e nella pagina email.asp che dovrebbe mandare l'email ad una sola persona.
Questo il codice per la pagina send.asp:
<html>
<head>
<title>Spedizione E-mail</title>
<head>
<body bgcolor="black" link="#ffcc00" vlink="#ffcc00" alink="#ffcc00">
<%
Set cn = Server.CreateObject("ADODB.Connection")
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT Email FROM Mailing ORDER BY Email"
rs.Open strSQL,cn
tipo=request("Tipo")
email=request("Email")
mittente=request("Mittente")
oggetto=request("Oggetto")
if tipo="html" then
do while not rs.eof
Set objMail = Server.CreateObject("CDONTS.NewMail") **in questa riga c'è l'errore**
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
else
do while not rs.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From=mittente
objMail.To=rs("Email")
objMail.Subject=oggetto
objMail.Body=email
objMail.Send
Set objMail = nothing
rs.movenext
loop
end if
set cn = nothing
set rs = nothing
%>
<center><font face="Verdana" color=#ffcc00 size=4>I messaggi sono stati spediti correttamente
<font size=3>Torna alla lista delle email</font></center>
</body>
</html>
Rispondi quotando
