关于联动菜单的，我改了好长时间可是都不能通过

公司的网站上要有这么个功能，我在网上找了些资料，可是怎么也达不到功能呀，急死我了，相关代码都贴在下面，请各位不吝赐教
数据库用sql2005 第一个表名user，字段name（用户代码）姓名（用户名称）第二个表名shangpin，字段name（用户代码）pn（设备代码）sn（设备序列号）
  
<select id="s1" onchange="Cha_Select()">
<% 
set big_class=conn.execute("select * from [user]")  
i=1
response.write "<option >请选择</option>"
do while not big_class.eof 
%>
<option value="<%=big_class("name")%>"><%=big_class("name")%><%=big_class("xingming")%></option>
<%big_class.movenext
i=i+1
  loop
 %>
</select>
<select id="s2">
</select><script>
function Cha_Select()
{
  <% 
    set big_class=conn.execute("select * from [user]") //读取二级菜单

    i=1
     do while not big_class.eof
 x=big_class("name")
      response.write "var a"&i&"= new Array("
      set small_class=conn.execute("select * from [shangpin] where name='"&x&"'") 
//读取二级菜单
     do while not small_class.eof
      response.write """"
      response.write small_class("pn")&" "&small_class("sn")&""","
      small_class.movenext
      loop
      response.write """"")"& vbcrlf
      small_class.close
    i=i+1
    big_class.movenext
    loop
    big_class.close
%>
   
var temp1 = document.all("s1")
var temp2 = document.all("s2")
if(temp1.options[temp1.selectedIndex].value!=0)
var temp = eval("a"+temp1.options[temp1.selectedIndex].text.substring(0,1))
if(temp!=null)
   {
     for(i=0;i<temp.length;i++)
 {
     temp2.options[i]=new Option(temp[i],temp[i])
      }
   }
else
  {
     while(temp2.length>0)
      {
        temp2.options[0]=null
       }
}}
</script>