Nyhedsbrev sendt med CDO mail

Hejsa.

Jeg har et problem med at få mit nyhedsbrev til at virke med CDOMAIL - Jeg benytter normalt JMail men min udbyder understøtter desværre ikke JMail

Jeg har nogle brugere i en MYSQL DB som jeg gerne vil have hentet ud som modtagere af denne mail.

Dette har jeg gjort i et loop - Mit problem er, at den kun henter og sender første post i DB'en

Mit script ser sådan ud:

    strOverskrift = Request.Form("Overskrift")
    strIndhold = Request.Form("Indhold")
   
    Set objMail = Server.CreateObject( "CDONTS.NewMail" )   
   
    Do While Not rs.EOF
    objMail.To = "" & rs("Brugernavn") & ""
    rs.MoveNext
Loop
   
    objMail.From = "AFSENDER"
    objMail.Subject = "SUBJECT SKRIVES HER"
    objMail.Body = objMail.Body & "INDHOLDET I MAILEN SKRIVES HER" & vbcrlf & vbcrlf
    objMail.Body = objMail.Body & strOverskrift & vbcrlf & vbcrlf
    objMail.Body = objMail.Body & strIndhold & vbcrlf & vbcrlf
    objMail.Host = "mailout.one.com"
    objMail.Send
   
    Set objMail = Nothing       

Hvad gør jeg forkert?