上海展览会信息2017:asp 分页的问题

数据库:data 数据表:test 字段:xuliie

b.asp文件传递pageno
<form name="form1" method="post" action="a.asp?pageno=1">
<input type="submit" name="Submit" value="提交">
</form>
a.asp文件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
PgSz=3
dbpath=server.mappath("data.mdb")
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & dbpath

set rs=server.CreateObject("ADODB.recordset")
sql="select * from test order by xulie"
rs.open sql,conn,1,1%>

<%
If RS.RecordCount=0 then
rs.pagesize=15
if request("pageno")="" then
pageno=1
else
pageno=cint(request("pageno"))
end if
%>
<%rs.absolutepage=pageno %>
<%response.Write(rs.pagesize)%>

<%
for i=1 to rs.pagesize
response.write(rs("xulie"))
rs.movenext
if rs.eof then exit for
next
end if

%>

<%if pageno<>1 then
pageno=cint(pageno)
response.write "<a href=a.asp?pageno="&pageno-1&">"
response.write "上一页"
response.write "</a>"
else
response.write "上一页"
end if
%>

<%if pageno<>rs.pagecount then
pageno=cint(pageno)
response.write "<a href=a.asp?pageno="&pageno+1&">"
response.write "下一页"
response.write "</a>"
else
response.write "下一页"
end if
%>

显示结果无数出我怎样改程序