<!-zwei Tische öffnen->
<%
setRS1 = server.createObject ("adodb.recordset")
SQL1 = "SELECT*FromTePe1"
Rs1.opensql1, Conn, 1,3
setRS2 = server.createObject ("adodb.recordset")
SQL2 = "SELECT*FromType2"
Rs2.opensql2, Conn, 1,3
%>
<Formname = "Form1">
<!-Menü erstellen->
<selectName = "type" size = "1" onchange = "Redirect (this.options.Value)">
<optionValue = 0> Bitte wählen Sie ... </Option>
<%whilenotrs1.eof%>
<optionValue = "<%= rs1 (" news_type_1_id ")%>"> <%= rs1 ("news_type_1_type")%> </option>
<%RS1.Movenext
Wend%>
</select>
<!-Menü 2->
<SelectName = "Typ2" size = "1">
<optionValue = 0> Bitte wählen Sie </Option>
</select>
</div>
</form>
<!-Folgendes ist die Skriptanweisung für die spezifische Implementierung->
<Script>
<!-
vartemp = document.form1.type2
Funktionedirect (x) {
Vari
I = 0
für (varm = temp.options.length-1; m> 0; m-)
temp.options [m] = null
<%whilenotrs2.eof
%>
cnt = <%= rs2 ("news_type_1_id")%>
if (cnt == x) {
temp.options = newoption ("<%= rs2 (" news_type_2_type ")%>", "<%= rs2 (" news_type_2_id ")%>")
i = i+1}
<%
RS2.Movenext
Wend%>
}
//->
</script>