高手们来看下这段代码

<%set cn = Server.CreateObject("ADODB.Connection")set rs = Server.CreateObject("ADODB.Recordset")sqltext="select * from miscell where classcode='106' order by sortnum asc"
rs.Open sqltext,cn,1,1
 
%>
<% 
rs.PageSize=3 
pagecount=rs.PageCount   
page=int(request("page")) 
if page<=0 then page=1 
if request("page")="" then page=1 
rs.AbsolutePage=page 
%> 
    <TR VALIGN="TOP"> 
     <TD ALIGN="CENTER"> 
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
           <TR>
                <TD width="32%" valign=top>
                   
           <%if rs("picflag")="1" then%>
                 <IMG SRC="admin/jpg.asp?keyno=<%=rs("keyno")%>&tablename=miscell" align=center>
           <%end if%>       
                </TD>
                <TD>
                <P CLASS="title"><%=trim(rs("title"))%></P>
                <P CLASS="bodytext"><%=checkstr(trim(rs("content")))%></P>        
                </TD>
           </TR>
      </TABLE>
      <p>  <img src="images/bar.jpg" width="100%"></p>
                  
                  
     </TD>
     
     
     
    </TR>
    <% 
if rs.bof and rs.eof then 
response.write("NULL") 
else 
for i=1 to rs.PageSize 
response.write rs("title") 
response.write ("<content>") 
rs.movenext 
next 
end if 
%> 
     
      
</TABLE><%if page=1 and not page=pagecount then%> 
首页|前一页 
<a href="food1.asp?page=<%=page+1%>">后一页</a>| 
<a href="food1.asp?page=<%=pagecount%>">末页</a> 
<%elseif page<>1 and not page=pagcount then%> 
<a href="food1.asp?page=1">首页</a>| 
<a href="food1.asp?page=<%=page-1%>">前一页</a>| 
<a href="food1.asp?page=<%=page+1%>">后一页</a>| 
<a href="food1.asp?page=<%=pagecount%>">末页</a> 
<%elseif page=pagecount then%> 
<a href="food1.asp?page=1">首页</a>| 
<a href="food1.asp?page=<%=page-1%>">前一页</a>| 
下一页| 
末页 
<%end if%>
为什么一页里只显示一个记录 然后第三页的时候提示发生意外 请高手们帮帮忙 给改下 谢谢了