Ciao Lo script invia una email in html ad alcuni indirizzi di posta presi da un db.
Convertendo lo script perfettamente funzionante su cdont a cdo ho notato che agli utenti gli arriva l'email ma in successione.
Mi spiego: l'email arriva solo che poi è come se ci fosse un problema di loop, alla fine dell'email ricomincia ancora l'html, quindi arriva mettiamo che ci sono 30 utenti nel db, l'ultimo indirizzo nel db si trova una email con 30 copie...
Mi potete aiutare a capire il problema?
Grazie, ciao.
ecco il codice:
<%response.buffer=true%>
<%
testo=request.form("testo")
dim cn,rs
Set cn=Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & Server.MapPath("blr.mdb") & ";Persist Security Info=False"
Set rs=Server.CreateObject("ADODB.recordset")
cn.Open
dim SQL
SQL="Select email FROM prova"
Set Rs = cn.Execute(SQL)
do while not rs.EOF
strHTML = strHTML & "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">" & NL
strHTML = strHTML & "<html>"
strHTML = strHTML & "<head>"
strHTML = strHTML & "<title>Untitled Document</title>"
strHTML = strHTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
strHTML = strHTML & "</head>"
strHTML = strHTML & "<body>"
strHTML = strHTML & "<div id=""box"">"
strHTML = strHTML & "<div id=""sopra"">"
strHTML = strHTML & "<div align=""left""><img src=http://www.aedservice.it/nuovologo.jpg>"
strHTML = strHTML & "</div>"
strHTML = strHTML & "</div>"
strHTML = strHTML & "<div id=""center"">"
strHTML = strHTML & "<div class=""titoli""></div>"
strHTML = strHTML & "<div class=""testo"">"& request.form("testo")&"</div>"
strHTML = strHTML & "</DIV>"
strHTML = strHTML & "</div>"
strHTML = strHTML & "</body>"
strHTML = strHTML & "</html>"
Set CDOmail = server.CreateObject("CDO.message")
cdomail.From="info@pipo.it"
cdomail.to=chr(34) & chr(34) &"<"& rs("email")&">"
cdoMail.Subject="NEWSLETTERS DEL" & date
cdomail.htmlbody=strhtml
cdomail.send()
set cdomail=nothing
rs.Movenext
loop
rs.close
Set rs = NOTHING
cn.close
Set Cn=nothing
%>
Rispondi quotando
