Sideskifts problem

Hey derude...

Jeg har et lille sideskift problem.

Inde på min side som er http://www.web-gamez.dk kan i se under alle spil/film at der snart er 20 sider, og lige pludselig går det jo bare stærkt med spil og film. Så den ville jo hurtigt komme op på på mange flere sider, og mange sider betyder mindre plads.

Så jeg ville høre om der var nogen der kunne gøre så den kun viste 20 sider af gangen, altså 0-20 1-21 2-22 3-23 4-24 osv.

Her er min kode:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/database.mdb")
set rs = Server.createObject("adodb.Recordset")

strSQL = "SELECT * FROM [elements] ORDER BY " & request.querystring("sort") & ""

rs.open strSQL, myConn, 1
If Not (rs.BOF Or rs.EOF) Then

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

'Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

rs.PageSize = 9
rs.AbsolutePage = nPage
nRecCount = rs.PageSize
nPageCount = rs.PageCount

Response.Write "Side " & nPage & " af " & nPageCount & "<br>"

If NOT nPageCount = 0 Then
Response.Write "Gå til side "
For nNum = 1 To nPageCount
Response.Write "<a href='vis_alle.asp?page=" & nNum & "&sort=" & request.querystring("sort") &"'>" & nNum & "</a>&nbsp;"
Next

Response.Write ""
If Clng(nPage) > 1 Then
Response.Write "<a href='vis_alle.asp?page=" & nPage - 1 & "&sort=" & request.querystring("sort") &"'>&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(nPage) < Clng(nPageCount) Then
Response.Write "<a href='vis_alle.asp?page=" & nPage + 1 & "&sort=" & request.querystring("sort") &"'>&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If

End If

noCols=0
  maxAntalCols=3
  response.write "<table align='left' width='100%'>"
  Do While Not RS.EOF And nRecCount > 0
    if noCols=0 then Response.Write "<tr>"
    response.write "<td valign='top'>" %>
<table align="left" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td align="center" valign="top">
<font face="Verdana" size="2">Besøg: <%=rs("antal")%><br>Type: <%=rs("type")%><br><b><%=rs("navn")%></b>, <%=rs("kategori")%><br>
<a href="spilprofil.asp?id=<%=rs("id")%>"><img width="100px" height="100" src="<%=rs("picture")%>"></a><br><br></font>
</td></tr>
</table>
<%
  noCols=noCols+1
  nRecCount = nRecCount - 1
  response.write "</td>"
  if noCols=maxAntalCols then
    response.write "</tr>"
    noCols=0
  End If
  rs.MoveNext
  Loop
  if noCols>0 then Response.write "</tr>"
  response.write "</table>"
  Else
  ' Hvis der ikke er skrevet noget
  Response.Write "Der er endnu ingen spil/film!"
End If
End If

myConn.Close
Set Conn = Nothing
%>


Hilsen Jakob