急求一个答案:有关ASP分页的问题!!!

<!--#include   file=conn.asp-->     
   
  <%'打开记录集     
  dim   strsql,rs,ab     
  strsql="select*from   manage   order   by   voteid   desc"     
  set   rs=db.execute(strsql)     
  %>     
  <%'分页     
  '查询记录     
  If   Not   rs.Bof   And   Not   rs.Eof   Then     
  '以下主要为了分页显示     
  dim   page_size   '定义每页多少条记录变量     
  dim   page_no   '定义当前是第几页变量     
  dim   page_total   '定义总页数变量     
  dim   page_to     
  page_size=10   '每页显示2条记录     
  '如果第一次打开，则page_no为1，否则由传回的参数决定     
  if   Request.QueryString("page_no")=""   then     
  page_no=1     
  else     
  page_no=Cint(Request.QueryString   ("page_no"))   '用Cint将字符串变为整数     
  end   if     
  rs.PageSize=page_size   '设置每页多少条记录     
  page_total=rs.PageCount   '返回总页数     
  rs.AbsolutePage=page_no   '设置当前显示第几页     
  '下面一段显示当前页的所有记录     
  Dim   I     
  I=page_size     
   
  '该变量用来控制显示当前页记录     
  %>     
   
  <%'盾环显示     
  Do   While   Not   rs.Eof   And   I>0     
  I=I-1     
  '过期自动删除     
  'dim   a1,a2,a3     
  'a1=rs("manage4")     
  'a2=date()     
  'a3=cint(dateiff("d",a1,a2))>1     
  'strsql="delete   from   manage   where   ab"     
  'db.execute(strsql)     
   
   
  %>     
   
  <tr>     
  <td><%=rs("manage4")%></td>     
  <td><%=rs("manage5")%></td>     
  </tr>     
  <%'盾环显示     
  rs.MoveNext     
  Loop     
   
  Response.Write   "请选择页面:   "     
  '输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接     
  For   I=1   To   page_total     
  If   I=page_no   Then     
  Response.Write   "当前只有一页"     
  Else     
  Response.Write   "<a   href=manage.asp?page_no="   &   page_no-1   &   "'>"   &   "<上一页>"   &   "</a>   "     
   
  Response.Write   "<a   href=manage.asp?page_no="   &   I   &   "'>"   &   I   &   "</a>   "     
   
  Response.Write   "<a   href=manage.asp?page_no="   &   page_no+1   &   "'>"   &   "<下一页>"   &   "</a>   "     
   
  End   If     
  Next     
  End   if     
  '关闭数据库     
  db.close     
  set   db=nothing     
  %>     
   
   
  运行时出现:     
  错误类型：     
  ADODB.Recordset   (0x800A0CB3)     
  当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。     
   
  如何解决!!!!?????   
  问题补充：我改成了这样rs.open   sql,conn,1,1,但运行时又出现这个,错误类型：     
  Microsoft   VBScript   运行时错误   (0x800A01A8)     
  缺少对象:   ''     
  /我的作品/Succeed/manage/announce.asp,   第   9   行     
  9行就是:rs.open   sql,conn,1,1