帮我解决下分页的问题，马上给分
<TABLE   cellPadding=1   align= "center "   cellSpacing=1   align=center   border=1     width= "900 "   height= "1 "   >  
<%
      response.write " <tr> "
      response.write " <td     width=100>   需求单位     </td> "
      response.write " <td     width=100>   需求提出人   </td> "
      response.write " <td     width=100>   主旨   </td> "
      response.write " <td     width=100>   资讯主办   </td> "
      response.write " <td     width=100>   需求提出日期 </td> "
response.write " <td     width=100>   希望上线日期   </td> "
          response.write " <td     width=100>   预估完成日期     </td> "
      response.write " <td     width=100>   状态 </td> "
        response.write " <td     width=100>   说明 </td> </tr> "

Set   Rs   =   server.CreateObject( "Adodb.Recordset ")      
'sql= "select   APPLY_DEPARTMENT,APPLIER,MAJOR_IDEA,IT_UNDERTAKER,APPLY_TIME,WISH_FINISH_TIME,TOTESTTIME,REQUIRE_ESTI.PHASE   from   songzw.REQUIRE_BILL     inner   join   REQUIRE_ESTI     on   songzw.REQUIRE_BILL.IT_NO=REQUIRE_ESTI.IT_NO   "              

sql= "select   APPLY_DEPARTMENT,APPLIER,MAJOR_IDEA,IT_UNDERTAKER,APPLY_TIME,WISH_FINISH_TIME,TOTESTTIME,REQUIRE_ESTI.PHASE   from   songzw.REQUIRE_BILL     inner   join   REQUIRE_ESTI     on   songzw.REQUIRE_BILL.IT_NO=REQUIRE_ESTI.IT_NO     where   1=1 "      
 
    if     len(MAJOR_IDEA)> 0   then
    sql=sql   & "   and   MAJOR_IDEA   like   '% "&   MAJOR_IDEA   & "% ' "
  end   if  

if     len(APPLY_TIME_start)> 1   then
sql=sql   & "   and     APPLY_TIME   > = ' "&   APPLY_TIME_start   & " ' "
end   if

if     len(APPLY_TIME_end)> 1   then
sql=sql& "   and     APPLY_TIME   <= ' "&   APPLY_TIME_end   & " ' "
end   if


if   len(   WISH_FINISH_TIME_start)> 1   then
sql=sql& "   and     WISH_FINISH_TIME   > = ' "&   WISH_FINISH_TIME_start   & " ' "
end   if

if   len(WISH_FINISH_TIME_end)> 1   then
sql=sql& "   and     APPLY_TIME   <= ' "&   WISH_FINISH_TIME_end   & " ' "
end   if

if   len(IT_UNDERTAKER)> 1   then
    sql=sql& "   and   IT_UNDERTAKE   =   ' "&   IT_UNDERTAKE   & " ' "
    end   if

  if   len(PHASE)> 3