Kan ikke gennemskue resultatet efter loop

Jeg har en email funktion og min test skulle resultere i at der bliver sendt 2 email. Ligenu skriver jeg bare resultatet ud på skærmen i stedet for at sende. Men jeg kan simpelhen ikke forstår hvorfor det står der 3 gange, men min tæller siger at det kun bliver sendt til 2 brugere (som er det rigtige). Jeg har stirret mig blind på det tror jeg.

<!--#include file="db.inc"-->
<%
aktiv = "nej"

ID = Request.QueryString("id")

if session("brugernavn")="" then
    nubruger=Request.Cookies("LoginInfo")("Brugernavn")
else
    nubruger=session("brugernavn")
End If


strSQL = "SELECT email, brugernavn as tilbrugernavn FROM bruger WHERE send_email=true AND brugernavn<>'"& nubruger & "'"

set rs = Conn.Execute(strSQL)

strSQL1 = "SELECT forfatter, overskrift FROM blog WHERE id="& id
set rs1 = Conn.Execute(strSQL1)

'num variablen skal tælle hvor mange brugere vi sender til
num = 0

while not rs.eof
if rs("email") <> "" then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ServerAddress = "localhost"
        JMail.ContentType = "text/html"
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
        JMail.Sender = "robot@familiencaroe.dk"
        JMail.Subject = "Der er oprettet en nyhed på familiencaroe.dk"
        JMail.AddRecipient rs("email")
        JMail.HTMLBody = "Hej "& rs("tilbrugernavn") & "<br><br>Der er oprettet en nyhed af <b><i>"& rs1("forfatter") & "</i></b> med overskriften <b><i>"& rs1("overskrift") & "</i></b><br>Log på <a

href=""http://www.familiencaroe.dk/default.asp?sitepage=blogview_indlag&id="&id&""">http://www.familiencaroe.dk</a> og læs nyheden.<br><br>Mvh Kristian"
        JMail.Priority = 3
        JMail.Silent = True
        JMail.Logging = True
          If aktiv="ja" then
        JMail.Execute
          End if

sWrite=sWrite&"<pre>" & JMail.Log & "</pre>"
sWrite=sWrite&rs("email")
sWrite=sWrite&"<br>"
sWrite=sWrite&JMail.ServerAddress
sWrite=sWrite&"<br>"
sWrite=sWrite&jmail.htmlbody
sWrite=sWrite&"<br>"

Response.Write sWrite
Conn.Execute("INSERT INTO [log] ([log],logtype) VALUES ('"&Replace(sWrite,"'","''")&"','send_email')")
   
    set JMail = nothing
else
End If
    rs.MoveNext
    num = num + 1 ' tilføjer 1 til varariablen for hvert gennemløb
Wend

Response.write "<span class='text' align='center'>Nyhedsmailen blev sendt til <b>" & num & " </b> brugere<br>"


'Reset server objects
Conn.Close
Set Conn = Nothing
Set rs  = Nothing
Set rs1  = Nothing

'Response.Redirect "default.asp?sitepage=blogview_indlag&id=" & id

%>

Resultat

kri@privat.dk
localhost
Hej Kristian

Der er oprettet en nyhed af Test med overskriften Det var da
Log på http://www.familiencaroe.dk og læs nyheden.

Mvh Kristian


kri@privat.dk
localhost
Hej Kristian

Der er oprettet en nyhed af Test med overskriften Det var da
Log på http://www.familiencaroe.dk og læs nyheden.

Mvh Kristian


jet@mail.dk
localhost
Hej Niels

Der er oprettet en nyhed af Test med overskriften Det var da
Log på http://www.familiencaroe.dk og læs nyheden.

Mvh Kristian
Nyhedsmailen blev sendt til 2 brugere