Ciao ragazzi, scrivo per l'ennesimo problemino con cdosys.
Ho creato una newsletter dinamica ( con database access ) che invio con cdosys.
Precedentemente creavo la pagina web statica ( in html ) e la inviavo con questo script
codice:
<% 
Server.ScriptTimeOut = 300
'Mi collego al db ed estraggo gli indirizzi email 
Dim rs, conn, sql 
Set rs = Server.CreateObject("ADODB.Recordset") 
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/mailinglist.mdb")
sql = "SELECT * FROM email" 
rs.Open sql, conn 



do until rs.EOF
invioA = rs("iscritto")


' Creo la mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

' invio mail	
mittente = "MaGmA <info@magmaweb.it>"
oggetto = ".:: MaGmA Newsletter ::." 
'messaggio = "Invio con CDOSYS" 

With iMsg 

'Assegnazione delle configurazioni 
Set .Configuration = iConf 

.From = mittente 
.To = invioA
.Bcc = ""
.Subject = oggetto 

'Formato HTML 
'.HTMLBody = messaggio 
'Formato testo (scegliere) 
'.TextBody = messaggio 

'Invio di una pagina web 
.CreateMHTMLBody "http://www.miosito.it/newsletter/newsletter.html"


'Invia l'email 
.Send() 

end with 

set Flds = Nothing 
set iConf = Nothing 
set iMsg = Nothing 
rs.MoveNext
loop
rs.close 
Set rs = Nothing 
%>
Funzionava tutto correttamente, ma successivamente al cambio del sistema di creazione della newsletter ( dinamica appunto ) e l'acquisto del pacchetto antispam ( il server è hostato da aruba ) non riesco più ad inviarla. Cioè comincia l'invio ed alle prime sicuramente arriva ( non ho modo di verificarlo direttamente ) ma si blocca con l'errore:

CDO.Message.1 error '80040212'
The transport lost its connection to the server.
/admin/newsletter/newsletter_engine.asp, line 883

ecco il codice:
codice:
%>

<%

Server.ScriptTimeOut = 400


Conn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tbl_mailinglist"
rs.Open sql, conn,3,3 

do until rs.EOF
invioA = rs("iscritto")


' Creo la mail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields


Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.it" 
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mia@email.it"
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"
Flds.update 
'Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

' invio mail	
mittente = "mia@email.it"
oggetto = ".::  Newsletter ::." 

'messaggio = "Invio con CDOSYS" 

With iMsg 

'Assegnazione delle configurazioni 
Set .Configuration = iConf 

.From = mittente 
.To = invioA
.Bcc = ""
.Subject = oggetto 

'Invio di una pagina web 
.CreateMHTMLBody  "http://www.miosito.it/newsletter_nuova.asp?id=" & id  & "&user=" & invioA



'Invia l'email 
.Send() 

end with 

set Flds = Nothing 
set iConf = Nothing 
set iMsg = Nothing 
rs.MoveNext
loop

Vi chiedo un aiuto.... grazie!
Almeno un commento o una dritta