Ciao a tutti,
ho fatto un modulo per l'invio di newsletter con cdosys ma ho un problema che non riesco a risolvere: dopo un numero variabile (a volte 200/300, a volte anche 2000/3000) di invii qualcosa si blocca e non parte più nulla.
Il sistema è sviluppato così:
invio le mail una per una , poi ogni 50 invii faccio una pausa e ricarico la pagina, quindi invio le successive 50.

ecco il codice:

'------------------------------------------

blocco = Request.QueryString("blocco")

Dim rsutenti
Set rsutenti = Server.CreateObject("ADODB.Recordset")
rsutenti.Open "SELECT * FROM Utenti WHERE Conferma = 1", dbc, 3, 3

if blocco = "" then blocco = 0
send = (blocco*50)

rsutenti.move(send)
bloccosend = 0

Do While not rsutenti.eof
on error resume next
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverdiposta"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 300
.Fields.update
End With
Set objMail.Configuration = objConfig
objMail.From = "newsletter@miosito.it"
objMail.To = rsutenti("UtentiMail")
objMail.Subject = oggettonewsletter
objMail.HTMLBody = newsletter
objMail.Send()
Set objMail = nothing
bloccosend = bloccosend + 1
if (bloccosend) = 50 then
dbc.close
set dbc = nothing
For i = 1 to 140000
Response.write "wait... "
Next
Response.Redirect("send_nl.asp?blocco=" & blocco + 1)
end if
rsutenti.movenext
Loop

Response.Redirect("newsletterinviata.asp")

'------------------------------------------

a volte mi tocca addiritura riavviare i servizi internet sul server perchè non si riprende nemmeno chiudendo il browser... come posso fare per risolvere la questione?
Grazie...