Problemer med JMail

Hvordan skal jeg få det her til at virke:

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.viborgnet.dk"
JMail.Sender = "test@test.dk"
JMail.Subject = "Whatever"
JMail.AddRecipient "test@test.dk"
JMail.Body = Do While Not rs.EOF
Response.Write rs("tabelnavn")
rs.MoveNext
loop
JMail.Priority = 3
JMail.Execute

Jeg får en syntax fejl i JMail.Body