这个分页问题如何做的啊???

<%   
  dim   resoarces1,aa1,rs   
   
  resoarces1=request("resoarces1")   
  if   resoarces1<>""   then   
  strSql="Select   *   From   resoarces   Where   resoarces1   Like   '%"   &   resoarces1   &   "%'"   
  set   rs=db.execute(strsql)   
   
  If   rs.RecordCount<=0   Then   
  aa1="对不起，没有找到信息"   
  Else   
  aa1="共找到"   &   rs.RecordCount   &   "条记录"   
  end   if   
   
    else   
   
  '如果没有输入信息就不执行下列语句   
  If   Trim(Request("resoarces1"))<>""   Then   
  '以姓名为关键字查找   
  strSql="Select   *   From   resoarces   Where   resoarces1   Like   '%"   &   Trim(Request("resoarces1"))   &   "%'"   
  set   rs=db.execute(strsql)   
                                                   
  If   rs.RecordCount<=0   Then   
  aa1="对不起，没有找到信息"   
  Else   
  aa1="共找到"   &   rs.RecordCount   &   "条记录"   
  end   if   
   
  end   if   
  end   if   
  %>   
   
                                      <tr>   
                                          <td><div   align="right">搜索结果:</div></td>   
                                          <td   colspan="5"><%=aa1%></td>   
                                          </tr>   
  <%   
  do   while   not   rs.eof   
  %>   
   
                                      <tr>   
                                          <td><a   href="resoarces_dir.asp?voteid<%=rs("voteid")%>"><%=rs("resoarces1")%></a></td>   
                                          <td><%=rs("resoarces4")%></td>   
                                          <td><%=rs("resoarces6")%></td>   
                                          <td><%=rs("resoarces7")%></td>   
                                          <td><%=rs("resoarces8")%></td>   
                                          <td><a   href="resoarces_delete.asp?voteid=<%=rs("voteid")%>"><删除></a>   <a   href="<%=rs("resoarces5")%>"   target="_blank"><下载></a><a   href="resoarces_delete.asp?voteid=<%=rs("voteid")%>"></a></td>   
                                      </tr>   
  <%'盾环显示   
      rs.movenext   
      loop   
        
  db.close   
  set   db=nothing   
  %>   
   
   
  错误类型：   
  Microsoft   VBScript   运行时错误   (0x800A01A8)   
  缺少对象:   ''   
  /我的作品/Succeed/manage/resoarces_search.asp,   第   198   行   
   
  就是这行do   while   not   rs.eof   
  去掉:do   while   not   rs.eof   
  和:     rs.movenext   
      loop   
        
  db.close   
  set   db=nothing   
  后又出现:错误类型：   
  Microsoft   VBScript   运行时错误   (0x800A000D)   
  类型不匹配   
  /我的作品/Succeed/manage/resoarces_search.asp,   第   198   行   
  就是这行:                                         <td><a   href="resoarces_dir.asp?voteid<%=rs("voteid")%>"><%=rs("resoarces1")%></a></td>