盲拳打死老师傅:请大家帮帮忙,帮我看看下面的程序有什么不对的地方

我想实现分页,但每次点下面的页码,都是从数据库的表中显示最后的几条记录,第一页的超级链接不知怎么的,始终连不上,我的分页代码如下:
<%
set conn=Server.createobject("adodb.connection")
dbpath = Server.MapPath("db\dbc.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &dbpath
set rs=server.createobject("adodb.recordset")
sqlstr="select * from liuyan order by ttime desc"
rs.open sqlstr,conn,1

if rs.eof then
response.write "无留言!"
else
page_size=5
if request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
i=page_size
do while not rs.eof and i>0
i=i-1
%>

<%
rs.movenext
loop
response.Write"<p align='center'><font size=2>请选择页码:"
for j=1 to page_total
if j=page_no then
response.write j&" "
else
response.write "<a href='liuyan.asp'_
?page_no="&j&">"&j&"</a> "
end if
next
response.write "</font></p>"
end if
conn.close
%>