jMail loop ?!?!

Jeg forsøger at lave en side hvor man kan sende et billede til alle i en DB.

Jeg har lavet 2 poster i min db(begge mig selv)
i nummer 2 mail jeg får er billedet der 2 gange ??

Og her er koden:
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.Mappath("../webshop/db/webshop.mdb") & ";"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnection
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objconn




Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("d:\home\lachicadk\www\ny\ad\newspic\")



for each file in Upload.Files



if file.imagewidth>750 then
    Response.Write "<center>Billedet er for bredt</center>"
    Response.End
end if



strbillednavn = File.ExtractFileName

fileExt = LCase(Right(File.ExtractFileName, 3))

if fileExt = "jpg" then

Response.Write strbillednavn

else
    file.delete
    Response.Write "IKKE OK"
    Response.End
end if
NEXT



strEmne = Upload.Form("emne")
Response.Write strEmne

SQL1 = "SELECT * FROM Newsletter ORDER by id DESC"

objRS.Open  SQL1


        If objRS.EOF Then
        Response.Write "<font color=red><b> - </b></font>"
            Else
                Response.Write "<UL>"
       
                Do while not objRS.EOF


'********************************************************************************
'**********************HER SENDER JEG MAILEN ************************************
               
                strNavn = objRS("Navn")
                strMail = objRS("Email")

Response.Write strMail & "<br>"


Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient ""& strMail &"", ""& strNavn &""
jmail.From = "admin@lachica.dk"

jmail.Subject = strEmne
jmail.Body = "<a href=http://www.lachica.dk/>LA CHICA</a>"

' The return value of AddAttachment is used as a
' reference to the image in the HTMLBody.
contentId = jmail.AddAttachment("d:\home\lachicadk\www\ny\ad\newspic\"& strbillednavn &"")

jmail.HTMLBody = "<html><body>"
jmail.appendHTML "<img src=""cid:" & contentId & """>"
jmail.appendHTML "</body></html>"

jmail.Body = "Too bad you can't read HTML-mail."
jmail.appendText " There would have been a nice picture for you"

jmail.Send( "websmtp.lachica.dk" )
    set JMail = nothing


                objRS.Movenext
                Loop

End if

file.delete
NEXT


objRS.Close
set objRS = Nothing
objConn.Close
set objConn = Nothing