炫舞好看的名片装饰:ASP地区联动做了不能用

<%

set conn=server.CreateObject("ADODB.CONNECTION")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("datebase/yfm#123.mdb")

exec="select * from proclass"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3

%>

<script language = "JavaScript">
sall=new Array();
<%
Dim i
i=0

do while not rs.eof
%>
sall[<%=i%>]=new Array("<%=rs("proclass")%>","<%=rs("dl")%>","<%=rs("ID")%>");
<%
i=i+1
rs.movenext
loop
rs.close
%>
function changeselect(selvalue)
{
document.myform.Nclassid.length=0;
var selvalue=selvalue;
var i;
for(i=0;i<sall.length;i++)
{
if(sall[1]==selvalue)
{
var newOption1=new Option(sall[0],sall[2]);
document.all.Nclassid.add(newOption1);
}
}
}
</script>
<form method="post" name="myform" action="ru_query.asp">
<select name="classid" onChange="changeselect(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">
<option selected value="">未指定条件</option>
<%
exec="select * from type"
set rs1=server.createobject("adodb.recordset")
rs1.open exec,conn,1,3
do while not rs1.eof
response.write "<option value='"&rs1("dl")&"'>"&rs1("name")&"</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%>
</select>
<select name="Nclassid">
<option selected value="">未指定</option>
</select>

我的数据库大类名为 type 大类编号dl 大类名 name
子类表名 proclass 子类编号 ID 子类名proclass