il codice che invia le e-mail è questo forse cìè qualcosa di sbagliato
codice:
<%
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
dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
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
%>