Vise max antal sider

Hej!

Jeg har følgende kode:

<%

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/udrykninger.mdb")

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

SQLstmt = "SELECT * FROM udrykninger ORDER BY Dato desc;"

rs.Open SQLstmt, conn, 1
%>
<%

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

  Do While Not rs.EOF And intRecCount > 0
    ID = rs("ID")
    Dato = rs("dato")
    Sted = rs("sted")
    Melding = rs("melding")
    Tekst = rs("tekst")
    Fra = rs("fra")
    PicID = rs("picid")
%>
<%
   
If PicID = 0 Then

    strBillede = "<img border='0' src='isl/nopicture.jpg' width='135' height='101'>"
    strLink = strBillede   

else

   
    strBillede = "<img border='0' src='isl/" & rs("picid") & "/thumbnail.jpg' width='135' height='101'>"
    strLink = "<a href='isl/" & rs("picid") & "/index.html'>" & strBillede & "</a>"
   
End If

%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="740" id="AutoNumber4">
  <tr>
    <td width="160"><h2><center><%
Response.Write strLink
%></center></h2></td>
    <td width="565">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="535" id="AutoNumber5">
      <tr>
        <td width="171">
        <h2><u><%=dato%></u><br>
&nbsp;</h2>
        </td>
        <td width="364">
        <h2><%=fra%> - <%=melding%><br>
        <%=sted%></h2>
        </td>
      </tr>
    </table>
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="535" id="AutoNumber6">
      <tr>
        <td>
        <h2><%=tekst%></h2>
        </td>
      </tr>
    </table>
    </td>
    <td width="15">&nbsp;</td>
  </tr>
  <tr>
    <td width="160">&nbsp;</td>
    <td width="565"><img border="0" src="images/streg.jpg" width="535" height="3"></td>
    <td width="15">&nbsp;</td>
  </tr>
</table>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
  LOOP
End if
RS.Close


'Her udskrives << 1 2 3 4 >>  altså link til siderne man kan gå til.
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If


conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Kan jeg få den til på en eller anden måde, kun at vise de 25 nyeste poster i databasen? Har prøvet at ændre SELECT * til SELECT top 25 men det virker ikke...

Nogen der ved hvordan det kan laves?

Vh
Rasmus!