Vis kun 5 records!

Hejsa eksperter!

Jeg har et godt script forneden som viser nogle kategorier samt underlæggende sider! jeg vil dog meget gerne nu have den til at kun vise de sidste 5 underliggende sider under hver kategori plus et link til de næste 5 (forrige - næste). jeg har en kode som efter sigende skulle være god, men efter flere timers forsøgen prøver jeg nu her:

min kode som virker som er.............

<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open  MM_multiforum_STRING
SQL = "SELECT forumcategory.FCID, forumcategory.FCheadline, forumtopic.FTcatkey, forumtopic.FTHEadline, forumtopic.FTID FROM forumcategory LEFT JOIN forumtopic ON forumcategory.FCID=forumtopic.FTcatkey ORDER BY forumcategory.FCID ASC"
Set rs = Conn.Execute(SQL)

lastID = ""
response.write "<table width=""100%"">"
colPrRow = 0
maxPrRow = 2
do while not rs.EOF
  if colPrRow = 0 then Response.write "<tr>"

  if lastID <> rs("FCID") then
    Response.Write "<td valign=""top"">"
    response.write "<table width=""100%"">"
    response.write "<tr><td><b>" & "<img src='replies/images/category.gif' align='absmiddle'><a href='showcategory.asp?FCID=" & rs("FCID") & "'>" & rs("FCheadline") & "</b></td></tr>"
    lastID = rs("FCID")
    colPrRow = colPrRow + 1
  end if
  if not rs.EOF then
  response.write "<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & "<a href='topics/showtopic.asp?FTID=" & rs("FTID") & "&FCID=" & rs("FTcatkey") & "'>" & rs("FTHEadline") &  "</td></tr>"
  rs.Movenext
    end if
  if not rs.EOF then
    if lastID <> rs("FCID") then
      Response.Write "</table>"
      Response.Write "</td>"
    end if
  else
    Response.Write "</table>"
    Response.Write "</td>"
  end if

  if colPrRow = maxPrRow then
    colPrRow = 0
    response.write "</tr>"
  end if
loop
if colPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>

loop funktionen som jeg ikke kan finde ud af:O-----

<%
startrecord = request.querystring("startrecord")

For i = 1 to startrecord
    rs.movenext
next

For i = 1 to 5
if finished = false then
    response.write "Record " & rs.fields(1) & "<BR>"
    rs.movenext
    if rs.eof then finished=true
end if
next
%>

<%if startrecord > 0 then%>
<a href="index.asp?startat=<%=startrecord - 5%>">Prev</a>
<%end if%>

<%if finished = false then%>
<a href="index.asp?startat=<%=startrecord + 5%>">Next</a>
<%end if%>