problemer med paging i db

hej
jeg har et problem
jeg ikke lige ved hvordan jeg skal få løst
har siidet og rodet med at få noget paging på min side men kan ikke få det til at virke
er der nogen der har et forslag til hvordan det kan laves

her er koden uden paging da det ikke virkede


<table border="0" cellpadding="0" cellspacing="3" width="100%">
<tr>
<td width="100%" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=d:\inetpub\scripts\items.mdb; DefaultDir=\;Driver={Microsoft Access Driver (*.mdb)}"

SQL = "SELECT nummer,forfatter, titel, almpris, studiepris, forlag, isbn, udgivudgave, ImageURL, category FROM Items"


rs.Open SQL, Conn

x = 0
For x = 1 to 9999
If rs.eof then
Exit For
Else

'URL Convert
Category = rs("Category")
Category = "<a href='items.asp?" & Category & "'>" & Category & "</a>"
'End URL Convert

ImageURL = rs("ImageURL")
ImageURL = "<img src='" & ImageURL & "'>"
%>
<br>
<br>
</font>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Forfatter
</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("forfatter")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Titel
</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>
<% =rs("titel")%>
</b></font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">forlag</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("forlag")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">ISBN</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("isbn")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Udgivelse/År</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("udgivudgave")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Kategori</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("category")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Pris</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("almpris")%> DKr.
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">StudiePris</font></div>
</td>
<td width="448"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("studiepris")%> DKr.
</font></td>
</tr>

<tr>
<td width="152" align="right" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="default.asp?action=add&item=<% =rs("nummer")%>&count=1"><img src="images/koeb.jpg" width="34" height="20" border="0"></a>&nbsp;</font></td>
<td width="448" rowspan="2" align="left" valign="bottom"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =ImageURL %>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">&nbsp;</td>
</tr>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
<br>
<%
rs.MoveNext
End If
Next
%>

</font>
</font></td>
</tr>
</table>
</b></font> </td>
</tr>
</table>