忍龙3刀锋港版和美版:asp网页产品分页问题

自己编了个ASP网页，产品分3类，我点击任一类时，可显示当前类的所有产品，分页可以继续显示（大类中的所有小类产品），没问题。，可在点击当前类中的小类时，只能显示一页小类，点分页，又转到刚才大类的所有产品的分页上去，谁能教教我，不胜感激。
sql1 = "Select * From class where classid =4 order by ClassID"
Set rs1 = Server.CreateObject("ADODB.RecordSet")
Set rs1 = Conn.Execute(sql1)
Do While Not rs1.Eof
title = rs1("Class")
If Len(Class )>11 Then
title = Left(title,11)%>
<%dim Class,SqlClass
Class=Trim(Request("Class"))
if Class="" then SqlClass=""
else
SqlClass="and Class like '"&Class&"'"
end if%>
<%set rs = server.createobject("adodb.recordset")
sql="select * from Goods where typeid = 2 "&SqlClass&" order by Id desc"
rs.open sql,conn,1,1%>
<%if rs.eof and rs.bof then response.write "No"
else
dim page
page=clng(request("page"))
rs.pagesize=6
if page<1 then page=1
if page>=rs.pagecount then page=rs.pagecount
rs.absolutepage=page
rowcount=rs.pagesize
do while not rs.eof and rowcount>0
if rowcount=3 then
response.write "<>"
end if%>
<%if rs.pagecount>1 then
response.write "页："
for i=1 to rs.pagecount
response.write "<>"
response.write "["&i&"]"
next
response.write ""
end if
end if%>