Hvorfor modtager jeg to email?

Hejsa

Jeg kan sgu ikke dreje denne.

Jeg har en database med modtagere, jeg kører et loop, der sender en mail til hver modtager. jeg burde kun modtage een mail pr modtager - men jeg modtager to mails pr. modtager.

Det mest underlige er at første gang jeg sender til listen modtager jeg kun een pr. modtager - efterfølgende modtager jeg to mails pr. modtager

Kan nogen regne ud hvorfor?


<%


htmlformatering = "Hej med dig, Ole"

Select Case request("liste")

Case "ikke_klub"
        Set hent_alle = Conn.Execute("Select epost from test_modtagere where afmeldt='tilmeldt' AND (klub Is Null)")
 
Case "klub"
          Set hent_alle = Conn.Execute("Select epost from test_modtagere where afmeldt='tilmeldt' AND klub='checked'")
   
Case "alle"
          Set hent_alle = Conn.Execute("Select epost from test_modtagere where afmeldt='tilmeldt'")
End Select

Do While Not hent_alle.EOF
Set msg = Server.CreateOBject( "JMail.Message" )
modtager=hent_alle("epost")

msg.Silent = True
msg.From = "lars@xxx.dk"  'Afsender E-mail
msg.FromName = "xxxx"
msg.Charset = "iso-8859-1"

msg.AddRecipient modtager

msg.Subject = emne
msg.Body = htmlformatering

if not msg.Send("mail.xxxx.dk" ) then
  Response.write "<pre>" & msg.log & "</pre>"
else
  Response.write "Meddelelsen er nu sendt til:" & modtager & antal
end if
Set msg = nothing
modtager=""
hent_alle.MoveNext
       
Loop

Set hent_alle = nothing
Conn.Close

%>