Ciao,
non so che medoto attualmente utilizzi per l'invio delle mail visto che ASP prevede 2 metodi CDONTS e CDOSYS.
Se ho capito bene, lo script che utilizzi ora invia tutte le mail singolarmente... ti incollo qui sotto un esempio che invia tutte le mail con l'esecuzione dello script una sola volta.

<%
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "mittente@mittente.it"
miaMail.To = "destinatario@destinatario.it"


'Se sono più destinatari visibili
'miaMail.cc = "webmaster@freeasp.it, info@freeasp.it"

'Se sono più destinatari nascosti
'miaMail.bcc = "webmaster@freeasp.it, info@freeasp.it"

miaMail.Subject = "Oggetto della mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = "Testo della mail"
miaMail.Send

Set miaMail = Nothing
%>

ecco invece un esempio di invio mail a destinatari multipli con il metodo CDOSYS


<%
Dim objMessage, objConfig

'Crea gli oggetti per il messaggio e per la configurazione
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

'Configurazione server smtp
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "server_smtp" ' in genere localhost
objConfig.Fields(cdoSMTPServerPort) = 25

'Aggiornamento configurazione
objConfig.Fields.Update
Set objMessage.Configuration = objConfig

'crea il messaggio
objMessage.To = " technt@alicomitalia.it "
objMessage.Cc = " destinatario1@alicom.com ; destinatario2@tol.it "
objMessage.Bcc = " tech@alicom.com "
objMessage.From = """NT"" < technt@alicomitalia.it >"
objMessage.ReplyTo = " technt@alicomitalia.it "
objMessage.Subject = "Invio Email CDOsys"
'objMessage.TextBody = "messaggio in formato testuale"
objMessage.HtmlBody = "<html><body>messaggio in formato
HTML</body></html>"

' gestione errori
On Error Resume Next

' Send the CDOSYS Message
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing

'visualizza un messaggio di ok in caso di invio senza problemi
'altrimenti visualizza il messaggio di errore
If Err.Number = 0 Then
Response.Write "Il messaggio è stato inviato; nessun errore!<hr>"
Else
Response.Write Err.Description & "<hr>"
Err.Number = 0
End If
On Error Goto 0

%>