Dem havde jeg lige fået klippet fra. Jeg ved ikke hvordan man laver det smartere. Jeg har nemlig fået hjælp til at lave koden (her på eksperten). Har ikke selv så meget styr på koden...
<SCRIPT LANGUAGE=JAVASCRIPT>
<!--
<%
CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001
Dim connectionString, CONN_USER, CONN_PASS
Dim RecordSet
Dim conn
Dim strSQL
Dim rs
connectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fagcenter.mdb")
set rs = server.CreateObject("ADODB.Recordset")
set rsSel2 = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open connectionString, CONN_USER, CONN_PASS
strSQL = "SELECT * FROM ting"
set rs = conn.Execute (strSQL)
select1Options = ""
firstName = ""
do while not rs.EOF
if firstName = "" then
firstName = "Arr_" & rs("select1ID")
end if
select1Options = select1Options & "<option value=Arr_" & rs("select1ID") & ">" & rs("select1navn") & "</option>"
strSQL = "SELECT * FROM select2 WHERE select1ID = " & rs("select1ID")
Set rsSel2 = conn.execute (strSQL)
%>
var Arr_<%=rs("select1ID")%> = new Array(
<%
do while not rsSel2.EOF
Response.Write """" & rsSel2("select2navn") & """"
rsSel2.MoveNext
if not rsSel2.EOF then
Response.Write ","
end if
loop
%>
);
<%
rs.MoveNext
loop
%>
function opdaterSelect2(the_array_name)
{
//var numbers_select = window.document.booking.the_examples;
var the_array = eval(the_array_name);
setOptionText(window.document.booking.select2, the_array);
}
function setOptionText(the_select, the_array)
{
//slet indholdet at select2 inde de nye ligges ind.
no_in_select = the_select.options.length;
for (loop=0; loop <= no_in_select; loop++)
{
the_select.remove(0);
}
//fyld select2 op med nye data
for (loop=0; loop < the_array.length; loop++)
{
var oOption = document.createElement("OPTION");
oOption.text=the_array[loop];
the_select.add(oOption);
}
}
function udfyldSelect2()
{
setOptionText (window.document.booking.select2,<%=firstName%>);
}
-->
</SCRIPT>
</HEAD>
<BODY onload="udfyldSelect2()" bgcolor="lightsteelblue" marginwidth=20 leftmargin=20>
<P>
<FORM NAME="booking" ACTION="indexgodk.asp" METHOD="post">
<select name="select1"
onChange="opdaterSelect2(window.document.booking.select1.options[selectedIndex].value);">
<%=select1Options%>
</select>
<select name="select2">
</select>
