高校助学贷款流程图:这段ASP分页代码的问题出在哪?

<!-- #include file="../conn.asp" -->
<%
set rs = server.CreateObject("adodb.recordset")
sql="select * from ly_art order by id desc"
rs.PageSize = 4 '设定每页显示数
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
aa=rs.PageSize
bb=rs.pagecount
end if
%>
<%
'去掉下面的RS,列表出来的是同一条信息,如果不去掉,则最后一页提
'示:ADODB.Field 错误 '80020009'BOF 或 EOF 中有一个是“真”，或者当
'前的记录已被删除，所需的操作要求一个当前的记录。
%>
<%
for i=1 to aa
%>
<table width="99%" border="1" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<td width="8%" height="20"> [<%=rs("pd")%>]
<div align="left"></div></td>
<td width="8%">[<%=rs("bu")%>]</td>
<td width="8%">[<%=rs("su")%>]</td>
<td width="8%">[<%=rs("zi")%>]</td>
<td width="28%">标题：<a title="<%=rs("bt")%>" target="_blank" href="admin_show_info.asp?id=<%=rs("id")%>"><%=rs("bt")%></a></td>
<td width="8%"><div align="center"><a href="info_gl.asp?action=top&id=<%=rs("id")%>">置 顶</a></div></td>
<td width="8%"><div align="center"><a href="info_gl.asp?action=jh&id=<%=rs("id")%>">推 荐</a></div></td>
<td width="8%"><div align="center"><a target="_blank" href="admin_show_info.asp?id=<%=rs("id")%>">查 看</a></div></td>
<td width="8%"><div align="center"><a target="right" href="info_edit.asp?id=<%=rs("id")%>">修 改</a></div></td>
<td width="8%"><div align="center"><a href="info_gl.asp?action=del&id=<%=rs("id")%>">删 除</a></div></td>
</tr>
</table>
<%if rs.EOF or rs.BOF then exit for
%>
<%
rs.movenext
next
%>
<%'循环体结束
'分页部分：
%>
<table width="99%" border="1" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%if bb > 0 then%>
<td width="13%" align="left">当前页<%=intpage%>/<%=bb%></td>
<%else%>
<td width="41%" align="left">当前页0/0</td>
<%end if%>
<td width="46%" align="right"> <a href="admin_info_list.asp?page=1">[首页]</a>|
<%if pre then%>
<a href="admin_info_list.asp?page=<%=intpage -1%>">[上页]</a>|
<%end if%>
<%if last then%>
<a href="admin_info_list.asp?page=<%=intpage +1%>">[下页]</a> |
<%end if%>
<a href="admin_info_list.asp?page=<%=bb%>">[尾页]</a>|转到第
<select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to bb
if i = intpage then%>
<option value="admin_info_list.asp?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="admin_info_list.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</font>
</td>
</tr>
</table>
<%
关闭数据库
%>