Cari amici,
ho nuovamente bisogno di voi perchè sto quasi impazzendo.
Sto realizzando un servizio di newsletter per un mio cliente.
Si appoggia su un server piccolino del sud.
Come componente uno CDOsys in quanto il suo Server è un Windows 2003 server.
In questa mail mando in autocomposizione tramite asp un listino prodotti (circa 6 prodotti con foto e descrizioni)
Quando mando si blocca.
Se invece mando una newsletter semplice con la sola scritta ciao la manda a tutti e 7210 utenti.
Come posso fare a mandare la mail a tutti ?
lo script che utilizzo è il seguente:
<%
listinoscelto = request.form("listino")
testomail = request.form("testomail")
intestazione = "<div align='center'><center><table border='0' cellspacing='1' width='100%'><tr><td width='31%'><img border='0' src='http://www.onlicomstaff.com/images/logoonlicom.gif' width='194' height='66'></td></center><td width='69%'><p align='right'><a href='http://www.onlicomstaff.com'><font face='Verdana' size='3' color='#CC3300'><b>www.onlicomstaff.com</b></font></a></td></tr><center><tr><td width='100%' style='background-color: #EFEFEF; border: 1 solid #C0C0C0' colspan='2'><div align='center'><table border='0' cellspacing='1' width='100%'><tr><td width='100%' style='font-family: Verdana; font-size: 10 pt; color: #000000'>Newsletter offerte</td></tr></table></div></td></tr></table></center></div><br>"
recipiente = "<html><head><title>OnLiCom Megastore Corato</title></head><body>" & intestazione & "<br>" & testomail & "</body></html>"
Server.ScriptTimeout=250000
connn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("mdb-database/ilmiodatabase.mdb") & ";PWD=;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connn
set RS = Server.CreateObject("ADODB.Recordset")
set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
cdoMessage.From = qui metto la mail del cliente
cdoMessage.Subject = qui l'oggetto
cdoMessage.HtmlBody = recipiente
mySQL = "SELECT * FROM newsletter WHERE listino = '" & listinoscelto & "'"
RS.Open mySQL,conn,3,3
do UNTIL RS.eof
On error resume next
cdoMessage.To = RS("email")
cdoMessage.Send
response.write(RS("email") & "<br>")
RS.movenext
loop
RS.close
set cdoMessage = Nothing
set cdoConfig = Nothing
Set RS = nothing
conn.close
Set conn = nothing
%>
AIUTATEMI :(
