Ciao mi sono accorto di una cosa
questo è lo script che DA ANNI funzionava (con questo script mandavo circa 3500):


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



come ti dicevo ieri adesso non funziona più.
Nel senso che fino a 2-3 mail le manda
ma quando le seleziono tutte e 3500 mi appare questa scritta:

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/public/gestionali_scuola_dansalsa/newgestionale_solo_spedizione_mail_e_prelievo_cell x2/spedisci_mail.asp, line 39

Ti sarei molto grato se mi aiutassi a risolvere sto problema.
Io lavoro con le mail, e tutta sta faccenda mi sta creando davvero problemi

Grazie infinite