跪求！！ASP分页代码有错,谁能帮我改一下?急!

高分！跪求！哪为高手给指点下我这分页代码哪里出错！
分页
<% if not isempty(request("page")) then
page=cint(request("page"))

else
page=1
end if

set Rs1=server.createobject("adodb.recordset")
Sql1="seclect * from user1 order by id desc"
Rs1.open sql1,secondconn,1,1

If rs1.eof and rs1.bof then
Response.write"<p align ='center'>关闭"
else
const maxperpage=10
rs1.pagesize=maxperpage
totalrecord=rs1.recordcount
totalpage=rs1.pagecount
if page>totalpage then
page=totalpage
rs1.movefirst
rs1.absolutepage=page
i=0
dim truename(),nickname(),email(),userlogincount()
do while not rs1.eof and (i<rs1.pagesize)
i=i+1
redim preserve truename(i),nickname(i),email(i),userlogincount(i)
truename(i)=rs1("truename")
nickname(i)=rs1("nickname")
email(i)=rs1("email")