Databaseudtræk - første post vises 2 gange

Hej!

Jeg har nedenstående kode, som jeg bruger til at lave en mailto: link, indeholdende alle e-mail adresser fra en database.

Problemet er at den første e-mail adresse kommer med 2 gange! Nogen, der kan forklare hvor mit problem i koden er?

---  kode start ---

              <%
If Not (objRs.BOF Or objRs.EOF) Then
        Response.Write "<A HREF='mailto:"&objRs("Email") & ";"
        Do While Not objRs.EOF
        Response.Write objRs("Email") & ";"
        objRs.MoveNext
        Loop
        Response.Write "'>Send an e-mail to all participants</A>"
    Else
        Response.Write "No participants registered yet in the database"
    End If
    objConn.Close
Set objConn = Nothing
%>

--- kode stop ---