Io ho usato questo codice:

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

'cambia questo indirizzo con un valido indirizzo SMTP del tipo mail.nomediminio o mette l'indirizzo IP
'Mailer.RemoteHost = "mail.xxx.it"
Mailer.RemoteHost = "xxx.xxx.xxx.xxx"
Mailer.FromName = "xxxx"
Mailer.FromAddress = "info@xxxx.it"


set rss=server.CreateObject("ADODB.Recordset")
sql="select xxxx from xxxxx where xxxx"
rss.open sql,conn,3,1
if rss.recordcount>0 then
while not rss.eof

Mailer.AddBCC "xxxxx", rss("in_email")

rss.movenext
wend
end if

rss.close
Set rss = Nothing

Mailer.ConfirmRead = true
Mailer.Subject = k_titolo
Mailer.ContentType = "text/html"
Mailer.BodyText = messaggio



if not Mailer.SendMail then
response.write "Errore"
end if

bye bye