ASP Dynamic Cascading Menu Code _ Application Tips

JS script:
<%
Dim rs
Dim sql
Dim count
Dim rs1
Dim sql1
sql = "SELECT * from Region ORDER by ZoneID ASC"
Set rs = Server.CreateObject ("Adodb.recordset")
Rs.Open sql,conn,1,3
%>
<script language = "JavaScript" >
var Onecount;
onecount=0;
subcat = new Array ();
<%
Count = 0
Do as not rs.eof
%>
SUBCAT[&LT;%=COUNT%&GT] = new Array ("<%= Trim (rs (" Regionname "))%>", "<%= Trim (rs (" ZoneID "))%>", "<%= Trim (RS ("RegionID"))%> ");
<%
Count = Count + 1
Rs.movenext
Loop
Rs.close
Set rs=nothing
%>
onecount=<%=count%>;

function Changelocation (ZoneID)
{
document.myform.region.length = 0;

var Zoneid=zoneid;
var i;
Document.myform.region.options[0] = new Option ('-Region--', ');
For (I=0;i < onecount; i++)
{
if (subcat[i][1] = = ZoneID)
{
Document.myform.region.options[document.myform.region.length] = new Option (subcat[i][0], subcat[i][2]);
}
}

}
</script>

Form content:
<table>
<form>
<tr>
<td>
<span class= "STYLE1" >*</span> area:
<select name= "zone" size= "1" id= "zone" onchange= "Changelocation (document.myform.zone.options[ Document.myform.zone.selectedindex].value) ">
<option value=0 selected > Please select </option>
<%

SQL1 = "SELECT * from Bigzone ORDER by zonename ASC"
Set rs1 = Server.CreateObject ("Adodb.recordset")
Rs1.open sql1,conn,1,3
%>
<%while not rs1.eof%>
<option value= "<%=rs1 (" ZoneID ")%>" ><%=rs1 ("ZoneName")%></option>
<%rs1.movenext
Wend
Rs1.close
Set rs1 = Nothing
%>
</select> </td>
&LT;TD width= "20%" ><span class= "STYLE1" >*</span> area:
<select name= "Region" size= "1" id= "region" >
<option value=0 selected > Please select </option>
</select>
</tr>
</form>
</table>