Ciao a tutti
da anni utilizzavo questa pagina asp per mandare migliaia di mail

<%
Server.ScriptTimeout = 3000
%>
<%

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
%>




Da un po' di settimane ormai le mail non vengono più inviate
sembrerebbe di si ma di fatto non le invia


Ho chiesto ad aruba ed hanno detto che non si possono più inviare tante mail insieme x problemi di spam


Voi sapevate qualcosa in merito?

Come si puo' risolvere ?