here is what I use to do mass mailings for clients
Server.ScriptTimeout = 3600
db_open(Application("ConnectionString"))
set email = db_query("SELECT * FROM emails")
Set textStreamObject = fs.OpenTextFile(Application("BasePath") & "templates\email.html",1,false,0)
strBody = textStreamObject.ReadAll
Set filetxt = fs.CreateTextFile(Application("BasePath") & "templates\emails_sent.txt",true,false)
do until email.eof
SendMailHTML email("email"), Application("OwnerEmail"), "Subject", strBody
filetxt.WriteLine(email("email"))
email.movenext
loop
filetxt.close
db_close