请看看这段代码有什么问题，为什么什么后不显示也不报错误？

<script language="javaScript" type="text/javascript" SRC="include/nxjs.js"></SCRIPT>

<%

response.write "<script LANGUAGE='javascript'>"

dim topmenu,rstm,secmenu,rssm

'一级类别
topmenu="select * from topmenu where id='1'"
set rstm=Server.CreateObject("ADODB.recordset")
rstm.CursorType = 3
rstm.Open topmenu,conn,1,1


if rstm.RecordCount <=0 then
Response.Write "请维护类别！"
end if

for m=1 to rstm.RecordCount

response.write "mpmenu"&mi&"=new mMenu('网站首页','/','self','image/bluedian.gif','','','');"

'二级类别


secmenu="select * from secmenu where upmod=" & rstm("id") & " order by addtime desc"
set rssm=Server.CreateObject("ADODB.recordset")
rssm.CursorType = 3
rssm.Open secmenu,conn

rssm.PageSize =8 'show num of page
result_num = rssm.RecordCount 'totle num


if result_num<=0 then

word="请维护信息！"

else
maxpage=rssm.PageCount
page=request("page")

if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if

rssm.AbsolutePage=Page

end if

if result_num<=0 then

response.write "mpmenu"&i&".addItem(new mMenuItem(' "&word&"','','',,'',null,'','','',''));"

else
for n=1 to rssm.PageSize

response.write "mpmenu"&i&".addItem(new mMenuItem(' 用户注册','/register.asp','self',false,'用户注册',null,'','','',''));"


rssm.movenext:if rssm.EOF then Exit For
next
end if
rssm.close



'一级类别
rstm.movenext:if rstm.EOF then Exit For
next
rstm.close


response.write "mwritetodocument();"
response.write "</SCRIPT>"

%>