如何将数据库中的数据赋值到JavaScript数组中

关键代码：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
  strSql=" select DQID,DQupID,DQName from DQinfo Where DQNow=1 and DQType >0"
  set TopRs = server.CreateObject("adodb.recordset")
  TopRs.Open strSql,conn,1,1%>
<script languange="javascript">
var onecount;
onecount=0;
var subcat = new Array();
<%i = 0%>
<%while not TopRs.eof %>subcat[<% =i %>][0] = eval(<%=TopRs("DQName")%>);
subcat[<% =i %>][1] = eval(<%=TopRs("DQupID")%>);
subcat[<% =i %>][2] = eval(<%=TopRs("DQID")%>);<%
TopRs.movenext()
i = i +1
wend
%>
onecount = <% =i %>;function changelocation(id)
    {
    document.form1.S2.length = 0; 
    var id=id;
    var i;
    document.form1.S2.options[0] = new Option(′选择二级分类′,′′);
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == id)
            { 
                document.form1.S2.options[document.form1.S2.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }      
</script>
<body>
<form name="form1" method="post" action="">
  <select name="S1" onChange="changelocation(document.form1.S1.options[document.form1.S1.selectedIndex].value)">
  <option value="" selected>--请选择--</option>
  <%
    strSql="exec DQtopList"
    set TopRs = server.CreateObject("adodb.recordset")
    TopRs.Open strSql,conn,1,1
    for i= 1 to TopRs.recordcount
     response.write("<option value='"& TopRs("DQID") & "'")
     response.write(">"& TopRs("DQName")&"</option>") 
     TopRs.movenext
    Next
  %>
  </select>
  
  
  
  <select name="S2">
    <option selected>1</option>
    <option>2</option>
    <option>3</option>
  </select>
</form></body>
</html>
--------------------------------------------------------------------------
想实现 二级下拉框的联动   但这部分代码有问题：
<script languange="javascript">
var onecount;
onecount=0;
var subcat = new Array();
<%i = 0%>
<%while not TopRs.eof %>subcat[<% =i %>][0] = eval(<%=TopRs("DQName")%>);
subcat[<% =i %>][1] = eval(<%=TopRs("DQupID")%>);
subcat[<% =i %>][2] = eval(<%=TopRs("DQID")%>);<%
TopRs.movenext()
i = i +1
wend
%>
onecount = <% =i %>;function changelocation(id)
    {
    document.form1.S2.length = 0; 
    var id=id;
    var i;
    document.form1.S2.options[0] = new Option(′选择二级分类′,′′);
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == id)
            { 
                document.form1.S2.options[document.form1.S2.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }      
</script>请教高手了
先谢!