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

<%  
  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>  

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	如何 问题 这个 rs resoarces1 voteid href 错误 if aa1