JMail problem

Mit lille JMail-script skal sende alle beskeder nyere end en bestemt dato til alle på maillisten. Det sender godt nok, men kun den første post i db'en bliver sendt. Hvordan får jeg det til at sende alle posterne som opfylder betingelsen?

StrSQL = "Select * from mailliste"
    set rs = Conn.execute(strSQL)
   
    Dato1 = date()
    minus = "7"
   
    SQL = "SELECT tekst,startdato,id FROM ugebrev WHERE meddeler='" & session("brugernavn") & "' AND startdato>DATE()-"&minus
    Set rs2 = Conn.Execute(SQL)
 

    Do While Not (rs.Eof or rs.Bof)
    Do While Not (rs2.Eof or rs2.Bof)

    strEmail  = rs("email")
   
    strBesked = rs2("tekst")

   
    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType = ""
    JMail.ServerAddress = "xxx.dk"
    JMail.Sender = "xxx@x.dk"
    JMail.AddRecipientEx "" & strEmail & "", "" & strEmail & ""
    JMail.Subject = "Ugebrev"
    JMail.Body = "" & strbesked & ""
    JMail.Execute
    Set JMail = Nothing


    response.write "" & strEmail & " - Afsendt korrekt<br>"


      rs.MoveNext
    Loop

    rs2.MoveNext
    Loop

    response.write "<br><br><b>Alle beskeder blev afsendt korrekt.</b>"

    Conn.Close

    %>