Visa 5 nyheter

Antagligen en lätt fråga för den som kan ASP!
Hur gör jag för att visa de 5 senaste nyheterna istället för 3 som det är nu?

Jag har självklart testat att ändra 3:an till en 5:a men det hjälpte inte.

<!--#include file="funktion.inc"-->
<!--#include file="adovbs.inc"-->
<%
On Error Resume Next

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT top 3 * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, 3, 2

DO Until RecSet.EOF OR X = 3
X=X+1
%>
<table width="320" border="0" cellpadding="5" cellspacing="5"> <tr> <td BACKGROUND="graphic/bg_diag.gif"> 
<b><%=RecSet("rubrik")%></b></td></tr><tr><td><%
Response.Write fixa_text(RecSet("text"))
%></td></tr> </table><%
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%> <TABLE WIDTH="320" BORDER="0" CELLPADDING="5" CELLSPACING="5"><TR>
    <TD><a href="javascript:popup1();">&Auml;ldre Nyheter</a></TD>
  </TR></TABLE>

	Addera = "SELECT top 5 * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, 3, 2

DO Until RecSet.EOF OR X = 5

Om du har ett räknarfält i tabellen kan du lägga till det som sekundär sorteringsordning (ORDER BY DATUM DESC, ID DESC), och då kan du ta bort OR-delen i loopen (OR X = 5), samt allt annat som har med X att göra.

mvh

Tack!