传统建筑的地位:ASP错误之800a040e，有空的帮忙看看，谢了~

代码如下：
<%
username=session("username")
%>
<!--#include virtual="/inc/codeid.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
i=0
'sql="select * from mobile where unionid="&id&" order by id desc"
sql="select * from mobile where unionid="&id&" order by id desc"
rs.open sql,conn,1,1
if rs.eof then
DY_LB="<font color=red><b>要加倍努力哦! ^_^</b></font>"
else
const maxperpage=20
dim currentpage
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
'指定当前页数
if currentpage="" then
currentpage=1
else
if currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if

if not isnumeric(currentpage) then
currentpage=1
end if

dim totalput,n

totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if

if n=0 then
n=1
end if

rs.move(currentpage-1)*maxperpage

'###读取内容开始###
i=0
do while i< maxperpage and not rs.eof
porder=rs("Msg")
pws=rs("password")
pserver=rs("FromServer")
money="30"
if pserver="575769760" then
money="8"
end if
state=rs("state")
if state=0 then
cg="<font color=""red"">已定</font>"
elseif state=1 then
cg="未激活"
elseif state=2 then
cg="<font color=""blue"">退定</font>"
else
cg="未知"
if i mod 2 =0 then
DY_LB=DY_LB&"<tr bgcolor=""#FFFFFF""><td height=""20"" class=""text""><font color=""#000000"">"&rs("Usernumber")&"</font></td><td class=""text""><font color=""#000000"">"&rs("regtime")&"</font></td><td class=""text""><font color=""#000000"">"&pserver&"</font></td><td class=""text"" align=center><font color=""#000000"">"&money&"</font></td><td class=""text"" align=center><font color=""#000000"">"&cg&"</font></td></tr>"
else
DY_LB=DY_LB&"<tr bgcolor=""#f5f5f5""><td height=""20"" class=""text""><font color=""#000000"">"&rs("Usernumber")&"</font></td><td class=""text""><font color=""#000000"">"&rs("regtime")&"</font></td><td class=""text""><font color=""#000000"">"&pserver&"</font></td><td class=""text"" align=center><font color=""#000000"">"&money&"</font></td><td class=""text"" align=center><font color=""#000000"">"&cg&"</font></td></tr>"
end if
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>