Send til flere med Jmail

Jeg kan ikke få Jmail, til at sende til flere på en gang.
Den tager kun den første i mit Recordset
--------------------------
<%
set rsLogin = Server.CreateObject("ADODB.Recordset")
rsLogin.ActiveConnection = MM_connDongklubben_STRING
rsLogin.Source = "SELECT * FROM Personer"
rsLogin.CursorType = 0
rsLogin.CursorLocation = 2
rsLogin.LockType = 3
rsLogin.Open()
rsLogin_numRows = 0
%>
<%
set rsManeder = Server.CreateObject("ADODB.Recordset")
rsManeder.ActiveConnection = MM_connDongklubben_STRING
rsManeder.Source = "SELECT * FROM Maneder"
rsManeder.CursorType = 0
rsManeder.CursorLocation = 2
rsManeder.LockType = 3
rsManeder.Open()
rsManeder_numRows = 0

Dim rsMail
Dim rsMail_numRows



Set rsMail = Server.CreateObject("ADODB.Recordset")
rsMail.ActiveConnection = MM_connDongklubben_STRING
rsMail.Source = "SELECT Emailadresse, Personer, Personer.Personer  FROM Personer  ORDER BY Emailadresse"
rsMail.CursorType = 0
rsMail.CursorLocation = 2
rsMail.LockType = 1
rsMail.Open()
%><%
rsMail_numRows = 0




' *** Mail Uploaded Files 1.5.0
If (CStr(Request.QueryString("GP_upload")) <> "") Then
  Dim MUF_path, MUF_FromName, MUF_FromEmail, MUF_ToName, MUF_ToEmail, MUF_Bcc, MUF_Subject, MUF_Body, MUF_SendHtml, MUF_checkErrors, MUF_RedirectURL, MUF_SmtpServer, MUF_MailerType


  MUF_path = ""
  MUF_FromName = rsPersoner.Fields.Item("Titelnavn").Value
  MUF_FromEmail = "postmaster@fcweb.dk"
  MUF_ToName = "Tommy"
do while not rsMail.eof
    on error resume next
MUF_ToEmail = rsMail("Emailadresse")
rsMail.movenext
loop
  MUF_Bcc = ""
  MUF_Subject = "Test"
  MUF_Body = "ssss"
  MUF_SendHtml = true
  MUF_checkErrors = false
  MUF_RedirectURL = "databasen_er _opdateret.asp"
  MUF_SmtpServer = "mail.rackserv.com"
  MUF_MailerType = "JMail"
  MailUploadedFiles MUF_path, MUF_FromName, MUF_FromEmail, MUF_ToName, MUF_ToEmail, MUF_Bcc, MUF_Subject, MUF_Body, MUF_SendHtml, MUF_checkErrors, MUF_RedirectURL, MUF_SmtpServer, MUF_MailerType


end if
%>
-----------------------