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

[egoxu]

<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>"

%>

[egoxu]

代码作用是读取数据库数据并组成js代码，但什么也不显示，也不报错误

[lienzhu]

你看源代码有没有内容，js代码在页面上是看不到的！

[egoxu]

源代码没有。最起码能显示：
<script>
mwritetodocument();
</SCRIPT>

[egoxu]

不知道为什么，好了！！！！！