ASP dynamic Cascade Menu Implementation Code _ Application Skills

<!--Open two tables-->

<%
Set Rs1=server. CreateObject ("Adodb.recordset")
Sql1= "SELECT * from Type1"
Rs1.open sql1,conn,1,3
Set Rs2=server. CreateObject ("Adodb.recordset")
Sql2= "SELECT * from Type2"
Rs2.open sql2,conn,1,3

%>
<form name= "Form1" >

<!--set up a menu-->

<select name= "Type" size= "1" onchange= "redirect (This.options.value)" >
<option value=0> Please select ......</option>
<%while not rs1.eof%>
<option value= "<%=rs1 (" news_type_1_id ")%>" ><%=rs1 ("News_type_1_type")%></option>
<%rs1.movenext
Wend%>
</select>

<!--set up menu two-->

<select name= "type2" size= "1" >
<option value=0> Please select </option>
</select>
</div>
</form>

<!--The following is the implementation of the script statement-->

<script>
<!--
var temp=document.form1.type2
function redirect (x) {

var i
I=0
for (Var m=temp.options.length-1;m>0;m--)
Temp.options[m]=null

<%while not rs2.eof
%>
Cnt=<%=rs2 ("news_type_1_id")%>

if (cnt==x) {
Temp.options=new Option ("<%=rs2" ("News_type_2_type")%> "," <%=rs2 ("news_type_2_id")%> ")
I=I+1}
<%
Rs2.movenext
Wend%>

}

-->
</script>