js:为何老提示尚未实现？？

<script language = "JavaScript" type="text/javascript"><%
set rs2=server.createobject("adodb.recordset")
sql = "select xh,pz from [sbit_car]  order by uptime"
rs2.open sql,conn,1,1
%>
//车型、牌照号
var onecount2;
subcat2 = new Array();
        <%
        count = 0
        do while not rs2.eof 
        %>
subcat2[<%=count%>] = new Array("<%= trim(rs2("pz"))%>","<%= trim(rs2("xh"))%>","<%= trim(rs2("pz"))%>");
        <%
        count = count + 1
        rs2.movenext
        loop
       rs2.close
        %>
onecount2=<%=count%>;function changelocation2(locationid)
    {
    document.form1.pz.length = 1; 
    var locationid=locationid;
    var i;
    for (i=0;i < onecount2; i++)
        {
            if (subcat2[i][1] == locationid)
            { 
                document.form1.pz.options[document.form1.pz.length] = new Option(subcat2[i][0], subcat2[i][2]);
            }        
        }
    }    

</script><form name="form1" method="post" action="s_3.asp"  onSubmit="return CheckForm();">
 <select name="xh" id="xh" onChange="changelocation2(document.form1.xh.options[document.form1.xh.selectedIndex].value)"   class="selectlist">
               <option value="" selected="selected">请选择车型</option>
   <%set rspp=server.createobject("adodb.recordset")
Sql="select xh from [sbit_car] order by id" 
rspp.open sql,conn,1,1
if not rspp.eof then
do while not rspp.eof
%><option value="<%=rspp("xh")%>"><%=rspp("xh")%></option><%
rspp.movenext
loop
end if
rspp.close
set rspp=nothing
set conn=nothing%></select><select name="pz" id="pz" class="selectlist">
  <option value="" selected="selected">请选择车辆牌照</option>
</select>
</form>其实是一个二级联动菜单，我放在一个单独的页面里面一点问题都没有，但是放在另外一个页面里面，就提示尚未实现，不知道咋回事啊。