ASPMail

Jag har koden nedan för att skicka ett nyhetsbrev. Jag har förstått att jag borde flytta ut skapandet av objektet utanför loopen. Hur skall det se ut? Jag måste väl på något sätt tömma innehållet mellan varje utskick?

sql_select = "select email from users"
data_source = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\databases\email.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source

While Not rs.EOF
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "Sven Svensson"
Mailer.FromAddress= "sven@svensson.com"
Mailer.RemoteHost = "mail.svensson.org"
Mailer.AddRecipient "", rs("email")
Mailer.Subject = Request.Form("subject")
Mailer.BodyText = message & rs("email")
Mailer.SendMail
Set mail = Nothing
rs.MoveNext
Wend
rs.Close
Set rs = Nothing

------------------
http://www.gratistavlingar.com