Hjælp igen.......

Jeg har lige lavet en download side (http://www.friserverplads.dk/cyberkox/download.asp), som tæller hits osv.

Mit spørgsmål er så, hvordan jeg kan gøre ligesom på denne side: http://www.solutions2all.dk/links.asp?catid=1&page=0
Altså, at bladre frem og tilbage mellem downloadene, så de ikke står på en side, alle sammen.

EX:
Side: << 1 2 3 4 5 6 >>

Min side ser således ud:
<%
Response.Buffer = True

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("download.mdb")

If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM Banner WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("Klik") = rs("Klik") + 1
        strURL = rs("Url")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>

<html><head>
<SCRIPT TYPE="text/javascript" SRC="../Skript/Hklikmenu.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="../Skript/banner.js"></SCRIPT>
<LINK REL="stylesheet" HREF="../CSS/Cyber-Tema.css" TYPE="text/css">
<title>Download</title>
</head><body>
<p>Most Visited</p>

<%
strSQL = "SELECT * FROM Banner ORDER BY Klik DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
Response.Write "<TABLE WIDTH=400 BORDER=1>"
Response.Write "<TR>"
Response.Write "<TD WIDTH=200><B><FONT SIZE=2><a href=download.asp?id=" & rs("ID") & ">" & rs("Navn") & "</a></B></FONT></TD>"
Response.Write "<TD ALIGN=center WIDTH=100><FONT SIZE=2>Hits: " & rs("Klik") & "</FONT></TD>"
Response.Write "<TD ALIGN=right WIDTH=100><FONT SIZE=2><U>" & rs("Stor") & "</U></TD></FONT>"
Response.Write "</TR>"
Response.Write "<TR>"
Response.Write "<TD COLSPAN=3 WIDTH=400><FONT SIZE=2>" & rs("Beskrivelse") & "</TD></FONT>"
Response.Write "</TR>"
Response.Write "</TABLE>"
Response.Write "<BR>"
        rs.Movenext
    Loop   
End If
myConn.Close
Set myConn = Nothing
%>