udskriver tre gange?

Hvorfor udskrives denne nyhed tre gange nå den kan findes én gang?

<%
Dim rs_nyhed
Dim rs_nyhed_numRows

Function MakeSQLDate(DKDate)
    MakeSQLDate = Year(DKDate) & "-" & Right("0" & Month(DKDate), 2) & "-" & Right("0" & Day(DKDate), 2)
    If InStr(DKDate, " ") > 0 Then
        MakeSQLDate = Right("0" & Month(DKDate), 2) & "-" & Right("0" & Day(DKDate), 2) & "-" & Year(DKDate)
    End If
End Function

Set rs_nyhed = Server.CreateObject("ADODB.Recordset")
rs_nyhed.ActiveConnection = MM_STRING

rs_nyhed.Source = "SELECT *  FROM hent_forside_nyhed  WHERE forenings_id = " + Replace(rs_nyhed__MMColParam, "'", "''") + " AND arkiveres > #" & MakeSQLDate(Now) & "#  ORDER BY oprettet DESC"


... længere nede


<%
While ((Repeat5__numRows <> 0) AND (NOT rs_nyhed.EOF))
%>
                    <span class="Mellemrubrik"><a href="index.asp?nyheds_id=<%=(rs_nyhed.Fields.Item("nyheds_id").Value)%>"><%="oprettet: "&(rs_nyhed.Fields.Item("oprettet").Value)& " : "&(rs_nyhed.Fields.Item("overskrift").Value)%></a></span><br>
                    <%
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  rs_nyhed.MoveNext()
Wend
%>