大虾帮我看看，这个为什么错啊？？？？？

Question

CREATE PROCEDURE cp_yxqy2  AS
select company.userid,company_regedit.qiyename,company.infodate,company.homepage,company.email,company.leibie,company.hangyeid from company,company_regedit where company.userid=company_regedit.userid order by company.userid desc
GO这个是存储过程，，，

Answer 1

<%
 set cmdstr=Server.CreateObject("ADODB.Command")
  set rs2=server.CreateObject("adodb.recordset")
     set cmdstr.ActiveConnection=conn
                               cmdstr.CommandType=adCMdStoredProc
                                cmdstr.CommandText="cp_yxqy2"
                               set rs2=cmdstr.execute()
                          if not isempty(request("page")) then
                  pagecount=cint(request("page"))
                  else
                  pagecount=1
                  end if
   %>
              <%
          if rs2.eof and rs2.bof then
          response.write"<br>"
          response.write"没有找到你要的内容"
          response.write"<br><br>"
          response.end
          end if
          rs2.pagesize=20
         if pagecount>rs2.pagecount or pagecount<=0 then
          pagecount=1
         end if
        %>
        <%  
       rs2.Absolutepage=pagecount 
       if rs2.pagecount=1 then    
      %>Microsoft VBScript 编译器错误 错误 '800a03f6' 
缺少 'End' /iisHelp/common/500-100.asp，行242 ADODB.Recordset 错误 '800a0cb3' 当前 Recordset 不支持书签。这可能是提供者或选定的光标类型限定的。 /qiyename/youxiuqiye.asp，行303 该怎么改啊？？？？？？？？？？？？？？？？？？？？？？？？？？

Answer 2

--这样的应该不会错啊.看你的错误提示:Microsoft VBScript 编译器错误 错误 '800a03f6' 
缺少 'End' 问题应该不是在你贴出的代码部分.

Answer 3

为什么会说：”当前 Recordset 不支持书签。这可能是提供者或选定的光标类型限定的。 “？？？？怎么回事？？

Answer 4

<%  
       rs2.Absolutepage=pagecount 
       if rs2.pagecount=1 then    
      %>这是提示出错的地方。

Answer 5

不支持rs2.Absolutepage这个对象。