要实现下拉菜单的连动，代码没有报错，请指教？？？？

Question

<!--#include file="inc/js_.inc"-->
<!--#include file="inc/ConnectDatabase.inc"-->
<%
  dim ReID
  ReID = trim(request("UserID"))
  if ReID="" then
     CloseConnection()
     Alert_Error("非法进入!")
     response.End 
  end if
  ReID = int(ReID)
%>
<%="<script>"%> 
<%
 sql2="select * from SubModule"
 set rsSubModule=server.CreateObject("adodb.recordset")
  rsSubModule.Open sql2,objconn,1,1
  
  %>
      var onecount;
   onecount=0;
   Related = new Array();
        <%
        count = 0
        do while not rsSubModule.eof 
        %>
Related[<%=count%>] = new Array("<%= trim(rsSubModule("SubModuleName"))%>","<%=trim(rsSubModule("id"))%>","<%=trim(rsSubModule("ParentID"))%>");
        <%
        count = count + 1
        rsSubModule.movenext
        loop
        %>
onecount=<%=count%>;function changelocation(upid)
    {
    document.form1.SubModule.length = 0;     var upid=upid;
    var i;
    document.form1.SubModule.options[0] = new Option('------','SubModuleDefault');
    for (i=0;i < onecount; i++)
        {
            if (Related[i][2] == upid)
            { 
                document.form1.SubModule.options[document.form1.SubModule.length] = new Option(Related[i][0], Related[i][1]);
            }        
        }
        
    }  <%
 rsSubModule.Close 
set rsSubModule=nothing
%>  
</script>
<%="<script language=javascript>"%>  function ShowIFrame(id){
   var j;
   j = document.body.getElementsByTagName("DIV");
   j(0).style.display="block";
   document.all.myFrame.src="ShowIFrame_.asp?id="+id + "&PersonID=" + <%=ReID%>;
  }
</script>
<style type="text/css">
.Menu_Items {
filter:alpha(opacity=100);
padding: 10;
width: 180;
display: none;
}
</style>
<title>配置用户权限</title>
<form name=form1 id=form2>
<TABLE WIDTH="700" BORDER="1" CELLSPACING="1" CELLPADDING="1">
<TR>
<TD>
<select name=AllModule onchange="changelocation(document.form1.AllModule.options[document.form1.AllModule.selectedIndex].value);">
<option selected value="AllModuleDefault">--------</option>
 <%  
     dim sql
     sql_AllModule = "select * from AllModule"
     set rs_AllModule = server.CreateObject("adodb.recordset")
     rs_AllModule.Open sql_AllModule,objconn,1,1
     while not rs_AllModule.EOF 
       response.Write "<option value="&rs_AllModule("id")&">"&rs_AllModule("ModuleName")&"</option>"
       rs_AllModule.MoveNext 
     wend
     rs_AllModule.Close 
 %>
</select></TD>
<TD></TD>
<TD><select name=SubModule onchange="ShowIFrame(document.form1.SubModule.options[document.form1.SubModule.selectedIndex].value)">
     
</select></TD>
</TR>
<TR>
<TD><div id=div1 style="display:none;"><Iframe name="myFrame" width=100% height=100%></Iframe></div></TD>
<TD></TD>
<TD></TD>
</TR>
<TR>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
</TABLE>
</form>