Question

跪求！！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")
userlogincount(i)=rs1("userlogincount")

rs1.movenext

loop
end if
rs1.close
set rs1=nothing
%>
<div align="center">
共有<%=totalrecord%>条记录, 每页<%=maxperpage%>条,共<%=totalpage%>页 第<%=page%>页
<% if page-1>0 then%><a href ="index.asp?page=<%page-1%>" >上一页</a>
<%else%>
上一页 <br>
<%end if%>
<%if page+1<=totalpage then%>
<a href ="index.asp?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>

分页
<% 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")
userlogincount(i)=rs1("userlogincount")

rs1.movenext

loop
end if
rs1.close
set rs1=nothing
%>
<div align="center">
共有<%=totalrecord%>条记录, 每页<%=maxperpage%>条,共<%=totalpage%>页 第<%=page%>页
<% if page-1>0 then%><a href ="index.asp?page=<%page-1%>" >上一页</a>
<%else%>
上一页 <br>
<%end if%>
<%if page+1<=totalpage then%>
<a href ="index.asp?page=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>
</font> </div>
在我提交页面后总提示我在92行有语法错误
错误代码是 0x800a03f6 缺少end 可我加了也不行
92行是：就是倒数第2句 请各位大侠帮忙

Answer 1

92行是那行

Answer 2

提示说是92行不一定就是92行，缺少end if，需要在
rs1.movenext
loop
end if
下一行再加上一个
end if

这是逻辑上的错误，其他的如果还有什么问题我就没看了。