Send en mail ad gangen.

Hjælp til et array som sender en mail af gangen, istedet for 100 mail på en gang.
Jeg har ASPmail. på min server. Sådan ser det ud som jeg bruger nu. Det virker fint.MEN............

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.xxx.dk"
Mailer.FromName = "Fra"
Mailer.FromAddress = "xxx@xxx.dk"
'-------------------------------------------------
Set myconn = Server.CreateObject("ADODB.Connection")
myConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("mail.mdb")
SQL = "SELECT email FROM email"
Set rs = myconn.Execute(SQL)
While Not rs.EOF
Mailer.AddRecipient rs("email")
rs.Movenext
Wend
myconn.Close
Set myConn = Nothing
rs.close

Dette virker også når jeg skal sende nyhedsbrev men alle der får en mail kan se til hven
nyhedsbrevet også sendes til (ikke særligt smart).
Jeg har kikket på et eksempel fra Activeserverpages. men kan ikke få flg til at virke.

    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open tempConn
    strSQL = "SELECT Email FROM eMail"
    Set rs = myConn.Execute(strSQL)
    arrEmail = rs.GetRows()<-- Samler op i et array til senere udskrift-->
    myConn.Close
    Set myConn = Nothing

  Set objMailer = Server.CreateObject("ASPMail.ASPMailCtrl.1")
    For num = 0 to Ubound(arrEmail,2)
        strResult = objMailer.SendMail(strMailserver, arrEmail(0, num), strSender, strSubject, strMessage)
    Next
    Set objMailer = Nothing
    strMode = "messagessendt"

    '// Her sletter vi alt buffered output, og redirecter siden, med et parameter der fortæller at vi har sendt til listen
    Response.Clear
    Response.Redirect("mailliste.asp?mode=finish")
End If
%>
får bla. flg fejl.  Server.CreateObject Failed eller
Object not a collection: 'objMailer.SendMail'

Der er 300 point til den som kommer med en løsning der virker.