飞机零件制造厂:asp的二级关联代码问题

大家好，这个联动、联动问题真的好麻烦哦。
我只做了一个表[Product_id]
--------------------------------
id | Number | Color | cid |
01 | 5555 | 黄色 | 5555|
02 | 5556 | 红色 | 5556|
03 | 5555 | 红色 | 5555|
----------------------------------
想实现的功能是选择了5555，后面就自动跳出黄色和红色，如果选择了5556，后面就自动跳出红色。

代码如下，大家帮我瞧瞧，都22点了，还是不行。

<!--#include file="Conn.asp"-->
<%
dim count

Set rs2 = Conn.Execute("Select * From [Product_id]")

%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
<%
count = 0
do while not rs2.eof//遍历所有小类
%>
subcat[<%=count%>] = new Array("<%=rs2("Color")%>","<%=rs2("Number")%>","<%=rs2("Color")%>");//数组(小类VALUE值、大类值、小类选项)
<%
count = count + 1
rs2.movenext
loop
rs2.close
%>
onecount=<%=count%>;//共有多少个小类

function changelocation(locationid)
{
document.myform.yanse.length = 1; //一个初始值，“不指定小类”占了一个值即为0
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.yanse.options[document.myform.yanse.length] = new Option(subcat[i][0], subcat[i][2]);//当第一次循环时，document.myform.yanse.length为1，第二次则自动取值得到列表框的数目，注意不要忘记“不指定小类”是0
}
}
}
</script>
<%
Dim rs
Set rs = Conn.Execute("Select Number From [Product_id]")
%>
<select name="kuanhao" onChange="changelocation(document.myform.kuanhao.options[document.myform.kuanhao.selectedIndex].value)" size="1">
<option selected value="<%=rs("Number")%>"><%=rs("Number")%></option>
<%
Dim num
num=rs("Number")
rs.movenext
do while not rs.eof
%>
<option value="<%=rs("Number")%>"><%=rs("Number")%></option>
<%
rs.movenext
loop

rs.close
Set rs=Nothing
%>
</select>

<select name="yanse">
<option value="" selected>请选择颜色</option>
<%
Dim rs1
Set rs1 = Conn.Execute("Select Color From [Product_id] where Number="&num&"")
if not(rs1.eof and rs1.bof) then
%>
<option value="<%=rs1("Color")%>"><%=rs1("Color")%></option>
<% rs1.movenext
do while not rs1.eof%>
<option value="<%=rs1("Color")%>"><%=rs1("Color")%></option>
<%
rs1.movenext
loop
end if
rs1.close
%>
</select>
---------------------------------------------------
form标签昨天晚上回家又研究到凌晨两点发现了。是不是加上form标签就好了呢。
做在一个表里行吗？我在网上看的联动都要做两个表。
还有其他错误吗？
仅有五分了，也给出来。