看看这段vbscript程序有什么毛病？

[vovo2000]

<%
set rs = server.createobject("adodb.recordset")
rs.open "select * from board",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
response.end
else
do while not rs.eof
%>
cmsNba23.addmenu("<%=rs("boardname")%>","showallnews.asp?boardid=<%=rs("boardid")%>",1);
cmsNba23.childStart(0);
<%
set rs2=server.createobject("adodb.recordset")
sql="select * from type where boardid=" & rs("boardid") & " order by typelevel"
rs2.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if not rs2.bof and not rs2.eof then
do while not rs2.eof
%>
cmsNba23.addmenu("<%=rs2("name")%>","showallnews.asp?id=<%=rs2("id")%>",);
<%
rs2.movenext
loop
rs2.close
set rs2=nothing
end if
%>
cmsNba23.childEnd();
<%
rs.movenext
n=n+1
loop //这就是155 line
rs.close
set rs=nothing
end if
%>
====================================================================
技术信息（用于支持人员）

错误类型：
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/test/kcnew/admin/news/index2.asp, line 155
loop
浏览器类型：
……
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
明明有do 为什么 说没有呢 错在什么地方了。
以上vbscript 是和javascript 混合的，他们混合需要注意什么问题啊
请同仁帮帮忙。
急

[fashchina]

代码好乱！

[liberationxin]

有4个if 却只有 2个 end if
个数不同 真正的错误应该是 if 缺少 end if

[wsdzmhongm]

好好检查一下代码
少二个 end if

[wsdzmhongm]

<%
set rs = server.createobject("adodb.recordset")
rs.open "select * from board",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
response.end
else
do while not rs.eof
%>
cmsNba23.addmenu("<%=rs("boardname")%>","showallnews.asp?boardid=<%=rs("boardid")%>",1);
cmsNba23.childStart(0);
<%
set rs2=server.createobject("adodb.recordset")
sql="select * from type where boardid=" & rs("boardid") & " order by typelevel"
rs2.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if not rs2.bof and not rs2.eof then
do while not rs2.eof
%>
cmsNba23.addmenu("<%=rs2("name")%>","showallnews.asp?id=<%=rs2("id")%>",);
<%
rs2.movenext
loop
rs2.close
set rs2=nothing
end if
'*******
end if
%>
cmsNba23.childEnd();
<%
rs.movenext
n=n+1
loop //这就是155 line
rs.close
set rs=nothing
end if

'********
end if
%>

[vovo2000]

谢谢各位大哥
小弟在此谢过！