kan ikke få styr på det med loop

jeg har et script som kan ses neden for..
det er med loop for det skal vise nyheder på en fortiden MEN det skal ikke køre loop det skal kun vises 4-5 gang men kan ikke få det til at virke?? nogen der vil være et godt menneskede og hjælpe mig

script:
<table border="0" width="556" cellspacing="0" cellpadding="2">
    <%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strQuery = "SELECT * FROM news Order By id Desc"
Set rs = Conn.Execute(strQuery)

Do While Not rs.EOF
%>

    <tr>
      <td width="100%" style="border-left: 1 solid #9f9f9f; border-right: 1 solid #9f9f9f; border-top: 1 solid #9f9f9f" bgcolor="#9f9f9f"><font face="verdana" size="2"><b><%=rs("overskrift").Value %></b></font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#d5d5d5" style="border: 1 solid #d5d5d5"><font face="verdana" size="1" color="#000000"><%=rs("tekst").Value %></font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#9f9f9f" style="border-left: 1 solid #9f9f9f; border-right: 1 solid #9f9f9f; border-bottom: 1 solid #9f9f9f"><font face="verdana" size="1"><b>Skrevet af</b> <%=rs("forfatter").Value %></a>  <b>d.</b> <%=rs("dato").Value %></font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#d5d5d5" style="border: 1 solid #d5d5d5"></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#d5d5d5" style="border: 1 solid #d5d5d5"></td>
    </tr>
<%
rs.MoveNext
Loop
rs.Close
Conn.Close
Set Conn = Nothing
Set rs = Nothing
%>
  </table>