Brug af page

Jeg har rodet meget med dette her script for at få pagning på, men kan godt nok ikke få det til at virke ..
Er der ikke nogen som vil hjælp her, jeg giver 100 kg for hjælpen.
Det må meget gerne være pagning på samme måde som her
http://www.lund.dk/fonts/main.asp?menu=fonts&side=fonts&sort=E
________________________________________
<%
' Connection til database
    Set Conn = Server.CreateObject("ADODB.Connection")
    DBPath = "DBQ=" & server.mappath("/flaskepost/news.mdb")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
    Sql = "SELECT TOP 5 * FROM nyheder ORDER BY dato DESC"
    Set rs =  Conn.Execute(Sql)
%>

<% Do While Not rs.EOF
SQL2 = "select count(*) as antal from kommentarer WHERE nyhedsId = " & rs("id")
Set TheCount = Conn.Execute(Sql2)   
antal = TheCount("antal")
%>

<font style="font-size: 11px; font-family: tahoma, arial;"><i><img src="/gfx/node.gif"> <%=rs("Title")%></i></font><br>
      <font style="font-size: 11px; font-family:Trebuchet MS, tahoma, arial;text-transform: case;">
      <b><%= WeekdayName(Weekday(rs("Dato")))%>&nbsp;<%= FormatDateTime(rs("Dato"),1)%></b><br>
      <% = replace(RS("nyhed"), vbcrlf, "<br>") %>  <br>
<a href="java script:window.open('kommentar.asp?id=<%=rs("id")%>','Detaljer','toolbar=0,status=0,scrollbars=yes,resizable=no,width=270,height=400,top=50,left=50').focus();void(0)">Kommentarer (<%=antal%>)</a>
<%
tal = 0
if not rs("Pic1") = ""  then %>
| <a href="java script:window.open('pic.asp?id=<%=rs("id")%>','Pic','toolbar=0,status=0,scrollbars=yes,resizable=no,width=370,height=400,top=50,left=50').focus();void(0)">Billeder</a></a>
<% end if %>
<br><br>
     

<%
rs.MoveNext
Loop
%>