Paging

Er her nogen som kan fortælle mig hvordan jeg kan lave paging på dette script:

<!-- #include file="dbforb.asp" -->
<!-- #include file="css.asp" -->

<html>
<head>
    <title>Pussyworld - pornofilm</title>
</head>

<body>
<%

sql = "Select * from Products where product_producent = '" & Request.Form("producenter") & "' AND product_vhsdvd = '" & Request.Form("vhs_dvd") & "';"

Set rs = Conn.Execute(sql)

%>

<table cellspacing="0" cellpadding="5" border="0" width="100%">
<tr>
<td width="4%">&nbsp;</td>
<td width="50%" align="left"><b>Filmtitel</b></td>
<td width="22%" align="center"><b>Pris</b></td>
<td width="22%" align="center"><b>Indkøbskurv</b></td>
</tr>
<%
Dim color
color = "#FF99CC"

i = 1

Do While Not rs.EOF
%>
<tr bgcolor="<%=color%>">
    <td valign="top"><img src="<%=rs("product_picture_small")%>"></td>
    <td valign="top"><b><a href="produkter.asp?pid=<%=rs("product_id")%>"><%=rs("product_name")%></a></b><br><%=rs("product_shortdesc")%></td>
    <td align="center">kr.<%=rs("product_price")%>,-</td>
    <td align="center"><a href="viskurv.asp?pid=<%=rs("product_id")%>&productname=<%=rs("product_name")%>&productvhsdvd=<%=rs("product_vhsdvd")%>"><img src="kurv-tilfoj.gif" width="24" height="22" alt="Læg i kurv" border="0"></a></td>
<%
If color = "#FF99CC" Then
  color = "#FFCCFF"
Else
  Color = "#FF99CC"
End If

i = i + 1

rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing

%>
</table>

</body>
</html>

Jeg kunne godt tænke mig 5 visninger pr. side