Salve ho un database che si chiama mailing che contiene una tabella che si chiama data e all'interno un campo che si chiama email...

Poi ho questo codice:

codice:
<%
Set vConn = Server.CreateObject("ADODB.Connection")
vConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_private/mailing.mdb")

vsql = "SELECT * FROM Data" 

Set vrs = Server.CreateObject("ADODB.Recordset")
vrs.Open vsql, vconn

'Inserisco dentro la variabile bcc tutti i destinatari
x = 0
do until vrs.eof
x = x + 1
if x = 1 then
bcc = vrs("email")
else
bcc = bcc & ", " & vrs("email")
end if
vrs.moveNext
loop
vrs.close
Set vrs = Nothing

'creo l'oggetto
set oMail= server.CreateObject("CDO.Message")
'creo la mail in base al web
omail.CreateMHTMLBody("http://www.tuo_sito.com/letter.asp")
'metto il from
omail.from="Me medesimo <info@mio_sito.it>"
'metto il destinatario
omail.To="Iscritti alla Mailing list <"& bcc &">"
'oggetto mail
omail.Subject = "Newsletter de sto circo"
'spedisco
omail.Send()

vconn.Close
Set vConn = Nothing
%>
ma quando provo mi da questo errore:
CDO.Message.1 error '800c0005'

The system cannot locate the resource specified.

/mailing.asp, line 28

PS è giusto questo codice per inviare le e-mail a tutti gli indirizzi presenti nel campo email? (saranno circa 1000)

Grazie