Flere sider til links!!

Jeg er ved at lave en hjemmeside og kommer til at få en masse informationer(nyheder, links osv) og jeg vil derfor gerne gøre så jeg kan opdele f.eks. links siden til at skrive 10 links per side og derefter gå til næste..
I bunden vil jeg gerne have noget som følger:
<--Tilbage 1 2 3 4 .. Frem-->
Jeg er bare desværre på herrens mark hvad angår det, det er sikkert så simpelt som at klø sig i nakken, meeen ;)
Hvis der er nogen der vil hjælpe mig så er den kode der viser linksene her..:
<!-- Start Main -->
<%
SubKatID = Clng(request.querystring("KatID"))
SubKat_ID = Clng(request.querystring("SubKat_ID"))
Set rsLink = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblLinks WHERE LinkID=" & SubKat_ID
    rsLink.Open strSQL, strCon


If rsLink.EOF Then
%>
<%
  Set rsSubKat = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblSubKat Where SubKat_ID=" & SubKat_ID
    rsSubKat.Open strSQL, strCon
Set rsKat = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblKat Where KatID=" & rsSubKat("SubKatID")
    rsKat.Open strSQL, strCon
Response.Write vbCrLf & ("<table width='100%' bgcolor='#E5E5E5'>")
Response.Write vbCrLf & ("  <tr>")
Response.Write vbCrLf & ("    <td width='100%' class='headtext'>&nbsp;<a href='default.asp' class='headtext'>Web-Town.dk</a><span class='headtext'>&nbsp;»&nbsp;</span><a href='link.asp' class='headtext'>Links</a><span class='headtext'>&nbsp;»&nbsp;"&rsKat("Tekst")&"</span>")
Response.Write vbCrLf & ("    </td>")
Response.Write vbCrLf & ("  </tr>")
Response.Write vbCrLf & ("</table>")
Response.Write vbCrLf & ("      <br>")
Response.Write vbCrLf & ("  <table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#65946B'>")
Response.Write vbCrLf & ("    <tr>")
Response.Write vbCrLf & ("    <td>")
Response.Write vbCrLf & ("    <table width='100%' border='0' cellspacing='1' cellpadding='3' height='14' bgcolor='#FFFFFF' height='60'>")
Response.Write vbCrLf & ("      <tr>")
Response.Write vbCrLf & ("      <td width='100%' bgcolor='#EFEFEF'>Der er ingen links i kategorien!")
Response.Write vbCrLf & ("      </td>")
Response.Write vbCrLf & ("      </tr>")
Response.Write vbCrLf & ("    </table>")
Response.Write vbCrLf & ("    </td>")
Response.Write vbCrLf & ("    </tr>")
Response.Write vbCrLf & ("  </table>")
Response.Write vbCrLf & ("      <br>")
Response.Write vbCrLf & ("  <table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#65946B' height='60'>")
Response.Write vbCrLf & ("    <tr>")
Response.Write vbCrLf & ("    <td>")
Response.Write vbCrLf & ("    <table width='100%' border='0' cellspacing='1' cellpadding='3' height='14' bgcolor='#FFFFFF' height='60'>")
Response.Write vbCrLf & ("      <tr>")
Response.Write vbCrLf & ("      <td width='100%' bgcolor='#EFEFEF' height='60' align='center'><a href='link.asp'>Tilbage Til Oversigten</a>&nbsp;|&nbsp;<a href=java script:openWin('tilfoj_link.asp','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=450,height=300')>Tilføj Nyt Link</a>")
Response.Write vbCrLf & ("      </td>")
Response.Write vbCrLf & ("      </tr>")
Response.Write vbCrLf & ("    </table>")
Response.Write vbCrLf & ("    </td>")
Response.Write vbCrLf & ("    </tr>")
Response.Write vbCrLf & ("  </table>")


Else
  Set rsSubKat = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblSubKat Where SubKat_ID=" & SubKat_ID
    rsSubKat.Open strSQL, strCon
Set rsKat = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblKat Where KatID=" & rsSubKat("SubKatID")
    rsKat.Open strSQL, strCon
Response.Write vbCrLf & ("<table width='100%' bgcolor='#E5E5E5'>")
Response.Write vbCrLf & ("  <tr>")
Response.Write vbCrLf & ("    <td width='100%' class='headtext'>&nbsp;<a href='default.asp' class='headtext'>Web-Town.dk</a><span class='headtext'>&nbsp;»&nbsp;</span><a href='link.asp' class='headtext'>Links</a><span class='headtext'>&nbsp;»&nbsp;</span><a href='links_side.asp?KatID=" & rsKat("KatID") & "&SubKatID=" & rsSubKat("SubKatID") & "' class='headtext'>"&rsKat("Tekst")&"</a><span class='headtext'>&nbsp;»&nbsp;"&rsSubKat("Tekst")&"</span>")
Response.Write vbCrLf & ("    </td>")
Response.Write vbCrLf & ("  </tr>")
Response.Write vbCrLf & ("</table>")

Do Until rsLink.EOF
Response.Write vbCrLf & ("  <table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#65946B'>")
Response.Write vbCrLf & ("    <tr>")
Response.Write vbCrLf & ("    <td>")
Response.Write vbCrLf & ("    <table width='100%' border='0' cellspacing='1' cellpadding='3' height='14' bgcolor='#FFFFFF'>")
Response.Write vbCrLf & ("      <tr>")
Response.Write vbCrLf & ("      <td width='100%' bgcolor='#EFEFEF'><a href='linksID.asp?Link_ID=" & rsLink("Link_ID") & "' target='_blank'><b>" & rsLink("Tekst") & "</b></a>")
Response.Write vbCrLf & ("      </td>")
Response.Write vbCrLf & ("      </tr>")
Response.Write vbCrLf & ("      <tr>")
Response.Write vbCrLf & ("      <td bgcolor='#EFEFEF'>"&rsLink("LinkTekst")&"")
Response.Write vbCrLf & ("      <b></b><br>")
Response.Write vbCrLf & ("      </td>")
Response.Write vbCrLf & ("      </tr>")
Response.Write vbCrLf & ("      <tr>")
Oprettet = CDate(rsLink("Oprettet"))
Response.Write vbCrLf & ("      <td bgcolor='#EFEFEF' class='smText'>Indsendt Af: ")
Set rsMedlem = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * From TblBruger Where BrugerID=" & rsLink("BrugerID")
    rsMedlem.Open strSQL, strCon
Response.Write vbCrLf & ("<a href=java script:openWin('profil.asp?BrugerID=" & rsMedlem("BrugerID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=0,width=450,height=500') class='smlink'>" & rsMedlem("brugernavn") & "</a>")
rsMedlem.Close
Set rsMedlem = Nothing
Response.Write vbCrLf & ("&nbsp;|&nbsp;Tilføjet den: " & FormatDateTime(Oprettet, VbLongDate) & " kl " & FormatDateTime(Oprettet, VbShortTime) & "")
Response.Write vbCrLf & ("      <b></b><br>")
Response.Write vbCrLf & ("      </td>")
Response.Write vbCrLf & ("      </tr>")
Response.Write vbCrLf & ("    </table>")
Response.Write vbCrLf & ("    </td>")
Response.Write vbCrLf & ("    </tr>")
Response.Write vbCrLf & ("  </table>")
Response.Write vbCrLf & ("      <br>")
If NOT rsLink.EOF Then rsLink.Movenext
Loop
Response.Write vbCrLf & ("  <table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#65946B' height='60'>")
Response.Write vbCrLf & ("    <tr>")
Response.Write vbCrLf & ("    <td>")
Response.Write vbCrLf & ("    <table width='100%' border='0' cellspacing='1' cellpadding='3' height='14' bgcolor='#FFFFFF' height='60'>")
Response.Write vbCrLf & ("      <tr>")
Response.Write vbCrLf & ("      <td width='100%' bgcolor='#EFEFEF' height='60' align='center'><a href='link.asp'>Tilbage Til Oversigten</a>&nbsp;|&nbsp;<a href=java script:openWin('tilfoj_link.asp','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=0,width=450,height=300')>Tilføj Nyt Link</a>")
Response.Write vbCrLf & ("      </td>")
Response.Write vbCrLf & ("      </tr>")
Response.Write vbCrLf & ("    </table>")
Response.Write vbCrLf & ("    </td>")
Response.Write vbCrLf & ("    </tr>")
Response.Write vbCrLf & ("  </table>")
End If
rsLink.Close
Set rsLink = Nothing
%>
<!-- End Main -->