网上的联动代码是不是有问题啊，我的怎么调不通

<script language=javascript>
<%
dim sql_getjx_project
sql_getjx_project = "select * from jx_project"
set rs_getjx_project = server.createobject("adodb.recordset")
rs_getjx_project.open sql_getjx_project,conn,1,1
%>
var temp,temp_2;
temp=0;
related =new array();
<%
temp_2=0
while not rs_getjx_project.eof
%>
related[<%=temp_2%>] =new array("<%=rs_getjx_project("id")%>","<%=rs_getjx_project("projname")%>","<%=rs_getjx_project("projclass")%>");
<%
temp_2 = temp_2 + 1
rs_getjx_project.movenext
wend
%>
temp = <%=temp_2%>;
function ChangeLocation(id)
{
var id = id;
document.form1.jx_project.length=0;
var i = 0;
document.form1.jx_project.options[0]=new option('-------','');
for(i=0;i< temp;i++)
{
if(related[i][2]==id)
{
document.form1.jx_project.options[document.form1.jx_project.length] = new option(related[i][1], related[i][0]);
}
}
}
</script>

-------------
<%
dim sql2,sql3
sql2 = "select * from jx_class"
sql3 = "select * from jx_project"
set rs2=server.CreateObject("adodb.recordset")
rs2.Open sql2,conn,1,1
set rs3=server.CreateObject("adodb.recordset")
rs3.Open sql3,conn,1,1
%>
<form name=form1 style="margin:0;" method="post">
<select name=jx_class onchange="ChangeLocation(form1.jx_class.options[form1.jx_class.selectedIndex].value);">
<%
if rs2.RecordCount<0 then
response.write "<option value=''>无相关类</option>"
else
while not rs2.eof
response.write "<option value="&rs2("id")&">" &rs2("classname")&"</option>"
rs2.movenext
wend
end if
%>
</select>
<select name=jx_project>
</select>
</form>
</td>
</tr>
</table>
<%
rs2.close
set rs2 = nothing
%>
<%
rs3.close
set rs3 = nothing
%>