cdosys mass mail script

Hejsa...

Er det virkelig ikke muligt, at få cdosys, det indbygget e-mail script, til at sende til mere end 1 e-mail adresse...

jeg har prøvet at smide det ind i et loop, som ser sådan her ud

dim mailsys, modtagere
set mailsys = conn.execute("Select * from bruger where lvl <= 4 and mailsys = 'ja'")


strMsg = strMsg& "Hej "

do until mailsys.eof

dim CDOmail, CDOmailConf
set CDOmail = server.createobject("cdo.message")
set CDOmailConf = server.createobject("cdo.configuration")

CDOmailConf.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
CDOmailConf.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.dk"
CDOmailConf.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CDOmailConf.fields.update

CDOmail.subject = "ClanWar Announcer!!!"
CDOmail.from = "cw@gop-clan.dk"
CDOmail.to = mailsys("email")
CDOmail.htmlbody = strMsg

CDOmail.Configuration = CDOmailConf
CDOmail.Send
Set CDOmailConf = Nothing
Set CDOmail = Nothing
mailsys.movenext
LOOP

men det lader ikke til at virke korrekt, nogen der kan hjælpe mig her