Database loop og Jmail

Hvordan laver man et udtræk fra en database og laver et loop, så den henter alle poster og sender dem med Jmail
Jeg har prøvet med nedenstående kode, men den sender ingen mail og der kommer ingen fejl :-?

------------------------------------------------

If Request.Querystring("Submit2") = "opdater" then
mode = Request.QueryString("fdato")
mode2 = Request.QueryString("tdato")
Set con = Server.CreateObject("ADODB.Connection")
con.Open strDSN
sql = "SELECT * FROM chat WHERE ddato between '" & mode & "' AND '" & mode2 & "' ORDER BY tid asc"
Set RS = Con.Execute(Sql)
fra = RS("fra")
til = rs("til")
besked = rs("besked")
tid = rs("tid")
fradato = Request.QueryString("fdato")
tildato = Request.QueryString("tdato")

response.write fra & til & besked & tid & fradato & tildato

Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = mailserver
        JMail.Sender = mailsender
        JMail.SenderName = mailsendername
    JMail.Subject = "Chatlog fra: " & fradato & " til: " & tildato
    JMail.AddRecipient mail
    JMail.Body = "Hej " & vbcrlf & vbcrlf    '
    JMail.Body = JMail.Body & "Her er den log du lige har bestilt" & vbcrlf & vbcrlf
if rs.eof then
    JMail.Body = JMail.Body & "der er ingen log" & vbcrlf & "tjek de datoer du har bestilt log fra og til :) "
Do While Not RS.EOF
    JMail.Body = JMail.Body & tid & " - " & fra & " - " & til & vbcrlf
    JMail.Body = JMail.Body & besked & vbcrlf & vbcrlf
    RS.MoveNext
    Loop
    JMail.Priority = 1
    'JMail.silent = false
    JMail.Execute
    JMail.Close
    Set JMail = Nothing   


rs.close
set rs = Nothing
end if
end if

%>