Udskriv 5 nyheder, virker ikke ordentligt!

Hej, jeg har en strSQL string der gør sådan at man kun udksriver 5 nyheder.. Men den udskriver godt nok de 5 nyheder, men det er ikke den nyeste kun den anden nyeste og derefter..
Script Start--->

<%
          objRs.Close
    Set objRs = Nothing
    objConn.Close
    Set objConn = Nothing
   

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("forum.mdb")

strSQL = "SELECT TOP 6 * FROM Entries order by id desc"
'Hvis jeg sætter den til 5 udskriver den kun 4
Set objRs = objConn.Execute(strSQL)


Function CutStr(Str, NumOfChars)
If Len(Str) > NumOfChars Then
Str = Left(Str, InStrRev(Str, " ",NumOfChars))
End If
CutStr = Str
End Function


'Do While Not objRs.EOF %>
            <br>
            <table style="border-bottom: 1 dotted #000000; width="348" cellpadding="0" cellspacing="0" align="left" border="0" height="12" width="344">
              <tr>
                <td valign="top" width="86%" height="4">
                  <div align="left"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">-5
                    nyeste Forum indl&aelig;g</font></div>
            </table>
            <% While Not objRs.EOF %>
            <div align="left">
              <table style="border-bottom: 1 dotted #000000; width="348" cellpadding="0" cellspacing="0" align="left" border="0" height="12" width="344">
                <tr>
                  <td valign="top" width="86%" height="4">
                    <div align="left"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0066CC">
                      <%
               
                sArtikel = objrs("comment")
                'Replace med Smiley
    'HTML
    sArtikel = replace(sArtikel, "Www", "www")
    sArtikel = replace(sArtikel, "wWw", "www")
    sArtikel = replace(sArtikel, "wwW", "www")
    sArtikel = replace(sArtikel, "WWW", "www")
    sArtikel = replace(sArtikel, "&lt;b&gt;", "<b>")
    sArtikel = replace(sArtikel, "&lt;/b&gt;", "</b>")
    sArtikel = replace(sArtikel, "&lt;i&gt;", "<i>")
    sArtikel = replace(sArtikel, "&lt;/i&gt;", "</i>")
    sArtikel = replace(sArtikel, "&lt;u&gt;", "<u>")
    sArtikel = replace(sArtikel, "&lt;/u&gt;", "</u>")
    sArtikel = replace(sArtikel, "&lt;p&gt;", "<p>")
    sArtikel = replace(sArtikel, "&lt;/p&gt;", "</p>")
    sArtikel = replace(sArtikel, "&lt;center&gt;", "<center>")
    sArtikel = replace(sArtikel, "&lt;/center&gt;", "</center>")
    sArtikel = replace(sArtikel, "&lt;br&gt;", "<br>")
               
                'Fjerner kommaer da det ikke ser så smart ud med et komma til sidst i en sætning
    sArtikel = Replace(sArtikel,",","")

    'Fjerner breaks
    sArtikel = Replace(sArtikel,"<br>"," ")
   
    if objrs("replyid") = "0" then
    strLink = "default.asp?page=viewmsg.asp&id=" & objrs("id") & "&ForumID=" & objrs("forumid") & ""
    else
    strLink = "default.asp?page=viewmsg.asp&id=" & objrs("replyid") & "&ForumID=" & objrs("forumid") & ""
    end if
   
    response.write "<a href="&strLink&"  style=text-decoration:none;>"& CutStr(sArtikel,50)&"...</a>"

%>
                      </font> </div>
              </table>
             
<--- Script End

/Mjall0w-