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

帮忙看一下这个分页代码那个地方错了，为什么转向第二页时会不行？
<%
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>

                            <%   end   if   %> </td>
        <td   width= "69% "   height= "28 "> <span   class= "tdfont12 "> </span> </td>
                        </tr>
                    <tr>
                        <td   height= "28 "> <span   class= "tdfont12 "> 时租： <%=rs( "Hour ")%> &nbsp;   &nbsp;   超时： <%=rs( "Morehour ")%> </span> </td>
                    </tr>
                   
                    <tr>
                        <td   height= "28 "> <span   class= "tdfont12 "> 日租： <%=rs( "Day ")%> &nbsp;   &nbsp;   月租： <%=rs( "Month ")%>   &nbsp; </span> </td>
                    </tr>
                   
                    <tr>
                        <td   height= "35 "> <span   class= "tdfont12 "> 超公里： <%=rs( "Moreaxiom ")%> &nbsp; </span> </td>
                    </tr>
                    <tr>
                        <td   width= "31% "   height= "27 "> <span   class= "tdfont12 "> 租车类型： <%=rs( "Type ")%> </span> </td>
                        <td> <span   class= "tdfont12 ">   押金： <%=rs( "Deposit ")%> &nbsp;&nbsp;&nbsp;     备注： <%=rs( "other ")%> </span> </td>
                    </tr>
    <tr>
                        <td   height= "27 "> &nbsp; </td>
                        <td   height= "27 "> <span   class= "tdfont12 ">
                            <%if   not   rs.EOF   then   rs.MoveNext  
                      next                                                          
                %>
                            <%   '页面跳转%>

当前第 <%=pages%> 页
<%   if   pages   >   1   then                                                          
                Response.Write " <a   href= 'showcar.asp?pages= "&pages-1& " '> <font   color= 'red '> 前一页 </font> </a> &nbsp; "                                                          
                else                                                          
                    Response.Write " <font   color= 'red '> 前一页 </font> &nbsp; "                                                          
                end   if                                                              
                                                                           
                if   pages   <   rs.PageCount   then                                                          
                        Response.Write " <a   href= 'showcar.asp?pages= "&pages+1& " '> <font   color= 'red '> 下一页 <font> </a> &nbsp; "                                                          
                else                                                          
                        Response.Write " <font   color= 'red '> 下一页 </font> "                                                          
                end   if                                                          

        %>

[解决办法]
if pages=0 then
pages=1
else
pages=pages+1
pages=pages-1
rs.Move(pages-1)*rs.PageSize
end if

逻辑似乎有点问题了哦
page+1然后又-1结果不还是没运算之前的数值么?
[解决办法]
Sql= "Select * From car where type= ' "&Request( "Type ")& " ' "

你点下一页的时候没有传type的参数，当然没有记录