翻页问题.急

<%

                  dim   rssql2,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd

               
set   conn   =   server.CreateObject( "ADODB.connection ")
set   rs=   server.CreateObject( "ADODB.RecordSet ")
conn.open( "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "&server.MapPath( "zhongzhong.asp "))

fwlb   =   Trim(Request( "fwlb "))
ld   =   Trim(Request( "ld "))
hx   =   Trim(Request( "hx "))
fj   =   Trim(Request( "fj "))
qy   =   Trim(Request( "qy "))

s   =   " "
If   fwlb <> " "   Then
      s   =   s   &   "   AND   fwlb   like '% "   &   fwlb   &   "% ' "  
End   If
If   ld <> " "   Then
      s   =   s   &   "   AND   ld   like '% "   &   ld   &   "% ' "  
End   If
If   hx <> " "   Then
      s   =   s   &   "   AND   hx   like '% "   &   hx   &   "% ' "  
End   If
If   fj <> " "   Then
      s   =   s   &   "   AND   fj     = ' "   &   fj   &   " ' "
End   If
If   qy <> " "   Then
      s   =   s   &   "   AND   qy     like '% "   &   qy   &   "% ' "  
End   If

rssql2   =   "SELECT   *   FROM   house   WHERE   sfsh= '是 '   and   1=1 "   &   s



  rs.open   rssql2,conn,3,3

               


                  PageSize=20
           

                  PageSize=20

                  If   rs.RecordCount=0   then

                  %>

                                     

                           

                  <%

                  else

                                      rs.PageSize   =   Cint(PageSize)