帮忙看一下这个分页代码那个地方错了，为什么转向第二页时会不行？该怎么处理

帮忙看一下这个分页代码那个地方错了，为什么转向第二页时会不行？
<%
Sql= "Select   *   From   car     where   type= ' "&Request( "Type ")& " ' "
Set   Rs=Server.CreateObject( "AdODB.REcordset ")
Rs.OPen   Sql,conn,1,3
if   rs.EOF   or   rs.BOF   then      
          response.Write( " <script> alert( '系统中没有你要查找的记录，请重新查找! ');window.history.back(); </script> ")
                end   if    
                rs.PageSize=4  
                pages=request( "pages ")      
                if   pages=0   then          
                      pages=1      
                else      
                      pages=pages+1      
                      pages=pages-1
      rs.Move(pages-1)*rs.PageSize      
                end   if          
                if   pages   <   rs.PageCount   then          
                      currentcount=rs.PageSize      
                else      
                currentcount=rs.RecordCount-(pages-1)*rs.PageSize      
                end   if  
   
              %>
                  共有 <%=rs.recordcount%> 条记录&nbsp;&nbsp;&nbsp;分 <%=rs.pagecount%> 页显示      
              <% '分页显示的内容%>      
              <%   for   i=1   to   currentcount       %>    
                    <tr>
                        <td   width= "31% "   rowspan= "4 ">
                        <%   if   trim(rs( "Pic ")) <> " "   then   %>
                        <img   src= " <%   =   trim(rs( "Pic "))%> "   width= " <%   =   webimg9   %> "   height= " <%   =   webimg10   %> "     border=0>
                            <%     else   %>
                            <img   src= "images/emptybook.jpg "   width= " <%   =   webimg9   %> "   height= " <%   =   webimg10   %> "     border=0>