***&&&一個二級聯動菜單問題，問題是很簡單，可是一定要看完所有的信息，不要憑藉以前的經驗？？

相對於這樣的寫法，我自己寫了好幾次都沒有成功，沒有辦法，只有求人了，希望各位大蝦能夠幫我！！
<% 
dim rs 
dim sql 
dim count 
dim rs1 
dim sql1 
dim rs2 
dim sql2 
dim count2 sql = "select * from district order by locationid asc" 
set rs = conn.execute(sql) 
%> 
<script language = "JavaScript"> 
var onecount; 
onecount=0; 
subcat = new Array(); 
<% 
count = 0 
do while not rs.eof 
%> 
subcat[<%=count%>] = new Array("<%= trim(rs("districtname"))%>","<%= trim(rs("locationid"))%>","<%= trim(rs("districtid"))%>"); 
<% 
count = count + 1 
rs.movenext 
loop 
rs.close
set rs=nothing 
%> 
onecount=<%=count%>; function changelocation(locationid) 
{ 
document.myform.smalllocation.length = 0; var locationid=locationid; 
var i; 
document.myform.smalllocation.options[0] = new Option('==所选城市的地区==',''); 
for (i=0;i < onecount; i++) 
{ 
if (subcat[i][1] == locationid) 
{ 
document.myform.smalllocation.options[document.myform.smalllocation.length] = new Option(subcat[i][0], subcat[i][2]); 
} 
} } 
</script> </head> 
<body> 
<form name="myform" method="post"> 
分类：<select name="biglocation" onChange="changelocation(document.myform.biglocation.options[document.myform.biglocation.selectedIndex].value)" size="1"> 
<option selected>请选择你所在的省份</option> 
<% 
sql1 = "select * from location order by locationname asc" 
set rs1 = conn.Execute (sql1) 
do while not rs1.eof 
%> 
<option value="<%=trim(rs1("locationid"))%>"><%=trim(rs1("locationname"))%></option> <% 
rs1.movenext 
loop 
rs1.close 
set rs1 = nothing 
conn.Close
set conn = nothing 
%> 
</select><select name="smalllocation">      
<option selected value="">==所有地区==</option> 
</select>
</form> </body> 
</html>