Info omkring hvilken mail den er nået til

Hej,

Jeg sidder og prøver at udvikle et lille nyhedsbrevs-script, men når jeg når til over 20 medlemmer, står mit script bare og "tygger" og jeg får ingen melding om hvilken mail-add der er nået til. Jeg vil gerne have at jeg får den til at skrive hvem der er sendt til så snart mailen er afsendt.

server.ScriptTimeout = 100000

' Upload selected file....

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save("D:\www2\eliteweb\wwwroot\")

For Each File in Upload.Files
    FileToSend = File.Path
next

' Connect to database

    Set conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\www2\eliteweb\access\b2b.mdb"
           
    strSQL = "SELECT * From b2btest order by id desc"
    set rs = conn.execute(strSQL)
   
    while not rs.eof or rs.bof
   
        Set JMail = Server.CreateObject ("JMail.SMTPMail")
       
        ' This is my local SMTP server
        JMail.ServerAddress = "mail.xxx.dk:25"
       
        ' This is me....
        JMail.Sender = "no-reply@xxx.dk"
        JMail.silent = true
   
        JMail.Subject = upload.Form("Subject")
        JMail.AddRecipient rs("EMail")
        JMail.Body = upload.Form("Body")
        JMail.Priority = 1
       
        JMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
       
        JMail.AddAttachment FileToSend
        ' Send it...
        JMail.Execute
   
    response.Write("Mail sendt til:" & rs("Name") & "<br>")
   
    rs.movenext
    wend
    set rs = nothing
    conn.close