paging

Jeg prøver at lave paging på denne side:

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

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

<body>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from Products where product_producent = '" & Request.QueryString("producenter") & "';"
rs.Open sql, DSN, 1


%>


<%
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
End If

Dim color
color = "#FF99CC"

i = 1

%>
<table cellspacing="0" cellpadding="5" border="0" width="100%">
<tr bgcolor="<%=color%>">
<td width="50%" align="left"><b><u>Filmtitel</u></b></td>
<td width="22%" align="center"><b><u>Pris</u></b></td>
<td width="22%" align="center"><b><u>Indkøbskurv</u></b></td>
</tr>
<% Do While Not rs.EOF And intRecCount > 0%>
<tr bgcolor="<%=color%>">
    <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" valign="top">kr.<%=rs("product_price")%>,-</td>
    <td align="center" valign="top"><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

intRecCount = intRecCount - 1

rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=film.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=film.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=film.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>
</table>

</body>
</html>

men det virker ikke. Den 1'ste side virker som den skal men når jeg klikker på f.eks. side 2 eller et hvilket som helst andet sidetal, for jeg bare en tom side.

Sletter jeg "where product_producent = '" & Request.QueryString("producenter") & "';" i sql strengen virker det fint nok, men så får jeg bare hele indholdet i kolonnen producenter og det skal jeg ikke.

Hvad er der galt ??