ASP中AbsolutePage的错误

初学ASP想用ASP分页，结果出错如下：   
   
  错误类型：   
  ADODB.Recordset   (0x800A0BB9)   
  参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。   
  /prohome/PicInfor/picmain.asp,   第   47   行   
   
   
  浏览器类型：   
  Mozilla/4.0   (compatible;   MSIE   6.0;   Windows   NT   5.1;   SV1;   .NET   CLR   2.0.50727;   .NET   CLR   1.1.4322;   Maxthon   2.0)     
   
  网页：   
  GET   /prohome/PicInfor/Default.asp     
   
  在网上找到很多相关帖子，不过没见一个实用的，哪位前辈有空给指点一下。   
   
  Picmain.asp代码如下：   
   
   
  <%     
  Set   Dcon=   Server.CreateObject("ADODB.RecordSet")     
  Dsql   =   "   Select   *   from   PDetail   where   (ClassA='"&Request.QueryString("ClassA")&"'   and   ClassB='"&Request.QueryString("ClassB")&"'   and   ClassC='"&Request.QueryString("ClassC")&"'   and   ClassW='"&Request.QueryString("ClassW")&"'   and   ClassY='"&Request.QueryString("ClassY")&"')"     
  Dcon.Open   Dsql,Conn,1,1     
   
        '设置每页的大小   
        PageSize   =   8   
        Dcon.PageSize   =   PageSize   
         
        '   得到总的页数   
        TotalPages   =   Dcon.PageCount   
         
        '   得到总记录数   
        TotalRecords   =   Dcon.RecordCount     
         
              
        '   得到用户选择的动作   
        PageAction   =   Request.Form("PageAction")   
         
        '   根据动作重设页码   
        Select   Case   PageAction   
         
              Case   "首页"     Session("Page")=1   
               
              Case   "上页"     Session("Page")=Session("Page")-1   
               
              Case   "下页"     Session("Page")=Session("Page")+1   
               
              Case   "尾页"     Session("Page")=TotalPages   
               
              Case   Else     Session("Page")=1   
               
        End   Select   
         
        '   检查页码是否越界：1<=   Page   <=TotalPages   
         
        If   CInt(Session("Page"))<1   Then   
              Session("Page")=1   
        End   If   
         
        If   CInt(Session("Page"))>TotalPages   Then   
              Session("Page")=TotalPages   
        End   If   
         
        '   跳转到指定页   
        Dcon.AbsolutePage   =   Session("Page")   
   
   
   
  Response.Write("<table   width=""100%""   border=""1"">")   
   
  %>     
  <tr>   
  <td   width="20%"   align="center"   bgcolor="#CCCCCC">   
  <img   src="./Resource/<%=Request.QueryString("ClassA")%>/<%=Request.QueryString("ClassB")%>/<%=Request.QueryString("ClassC")%>/<%=Request.QueryString("ClassW")%>/<%=Dcon("PName")%>">   
  <br>   
  <font   color="#FF6600"   style="text-align:left">一共<%=Dcon.Recordcount%>张图片，当前是第<%=Session("Page")%>张。</font>   
   
  <input   name=PageAction   type=submit   value=首页>   
  <input   name=PageAction   type=submit   value=上一页>   
  <input   name=PageAction   type=submit   value=下一页>   
  <input   name=PageAction   type=submit   value=尾页>   
   
  <br>   
  产品信息：<%=Dcon("PDetail")%>   
  </td>   
  </tr>   
   
  <%     
   
  %>     
   
  </table>