救命亚 这个我弄了好几天了 还是分页错误（手写代码的 大家帮帮我）就是只能点一下就不行了
<%@ LANGUAGE="VBSCRIPT" %>



<%
a=request("a")
b=request("b")
bm=request("class")
CurrPage=request("CurrPage")
DBQ ="d:\webhosting\clients\max5\database\bookshop.MDB"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBQ
set rs=server.createobject("adodb.recordset")
sql = "Select * From book Where class2='"& bm &"' order by bookbm"
'rs.open sql,conn,1,1
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if rs.RecordCount<=0 then
response.write "数据库没有符合条件的数据"
response.end
else
i=0
rs.PageSize=10
end if

PageCount=clng(rs.PageCount)
if CurrPage>PageCount then
CurrPage=PageCount
end if

if CurrPage<=0 or CurrPage="" then
CurrPage=1
end if

BookNum=rs.RecordCount
rs.absolutePage = CurrPage
%>

<% LinePage=10 for i=0 to PageCount\LinePage-1%> <% for j=1 to LinePage %> <% next %> <% next EndPage=PageCount mod LinePage %> <% for j=1 to EndPage %> <% next %> ||<%=rs("baseclass")%>||<%=rs("childclass")%>||<%=rs("class2")%>|| <% set rst=server.createobject("adodb.recordset") sqltext="select class2 from book where Childclass='"& request("b") &"' and baseclass='"&request("a")&"' group by class2 " rst.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext %> <%do until rst.eof%> <%=rst(0)%> <%rst.movenext loop%> 商品列表 第[ <% =i*LinePage+j %> ]页 第[ <% =i*LinePage+j %> ]页 <% do until rs.eof IsCheck="" If InStr(Session("ProductList"), rs("bookbm")) > 0 Then IsCheck="Checked" End If %> <% i=i+1 if i>=rs.PageSize then exit do rs.movenext loop rs.close set rs=nothing set conn=nothing %>   商品名称   " target="_blank">" border="0" height="70" width="70" > " target="_blank" class="cont_1"><%=rs("bookname")%> <% =rs("size") %> 市场价格: <% =rs("price") %> RMB EleneShop: <% =rs("yhj") %> RMB " <%=IsCheck%> >

出错提示是什么？