Ciao a tutti
da anni uso questo script per mandare mail a circa 3000 utenti.

Da ieri sto notando che le mail non le manda più.
Magari è un blocco momentaneo (aruba)

Pero' magari mi dareste un occhio ?

Grazie



<%
Server.ScriptTimeout = 1500
%>
<%

dim stringa_conn
stringa_conn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("rizzoli.mdb")
dim conn
set conn = server.createobject("adodb.connection")
conn.open stringa_conn

count=0


if request.form("mail")="invia mail" then

oggetto=request.form("oggetto")
testo=request.form ("testo_messaggio")

val1=split(request.form("id"),",")

for each val1 in val1

count=count+1


Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "info@thomasart.it"
MiaMail.To = val1
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
MiaMail.Subject = oggetto
MiaMail.htmlBody =testo
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
'MiaMail.Fields("urn:schemas:httpmail:importance") .Value = 2
'MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
next

response.write count & " E-mail inviati"

else

val=split(request.form("id"),",")

for each val in val

count=count+1

sql="delete * from corsisti where LINK='"&val&"'"

conn.execute(sql)


next
response.write count & " eliminati"
end if
%>