Jeg lavede på et tidspunkt dette til en her på eksperten:
http://www.efusion.it/exp/302058.php. Det er lavet i PHP, men sneren lavede jeg en ASP-udgave til en anden her på ekspeten.
<% @LANGUAGE = VBScript %>
<%
Option Explicit
Dim conntemp, DSN, sqlGruppe, sqlMaerke, rs, arrGrupper, arrMaerker, printGrupper, printJs, i, j, count
Set conntemp = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb") & "; UID=Administrator; PWD="
conntemp.open DSN
sqlGruppe = "SELECT id,titel FROM [gruppe] ORDER BY titel DESC"
sqlMaerk = "SELECT nr,id,titel FROM [marke] ORDER BY titel DESC"
Set rs = conntemp.Execute(sqlGruppe)
arrGrupper = rs.GetRows()
rs.Close
Set rs = Nothing
Set rs = conntemp.Execute(sqlMaerk)
arrMaerker = rs.GetRows()
rs.Close
Set rs = Nothing
conntemp.Close
Set conntemp = Nothing
For i = 0 to Ubound(arrGrupper,2)
printGrupper = printGrupper & "<option value=""" & arrGrupper(0,i) &""">" & arrGrupper(1,i) & "</option>" & VbCrLf
printJs = printJs & "maerker[" & arrGrupper(0,i) & "] = new Array ("
count = 0
For j = 0 to Ubound(arrMaerker,2)
If arrMaerker(0,j) = arrGrupper(0,i) Then
If count = 0 Then
printJs = printJs & "'0#Vælg gruppe','" & arrMaerker(1,j) & "#" & arrMaerker(2,j) & "'"
Else
printJs = printJs & ",'" & arrMaerker(1,j) & "#" & arrMaerker(2,j) & "'"
End If
count = count + 1
End If
Next
printJs = printJs & ")" & VbCrLf
Next
%>
<html>
<head>
<script language"JavaScript">
<!--
var maerker = new Array()
maerker[0] = new Array ('0#Vælg først en gruppe')
<%= printJs %>
function getMaerker() {
var frm = document.formular;
var gruppe_id = frm.list_grupper.value;
var i;
frm.list_maerker.options.length = 0;
for (i = 0; i < maerker[gruppe_id].length; i++) {
arr_split = maerker[gruppe_id][i].split("#");
var no = new Option();
no.value = arr_split[0];
no.text = arr_split[1];
frm.list_maerker[i] = no;
}
}
//-->
</script>
</head>
<body>
<form name="formular">
<select name="list_grupper" style="width:150" onchange="getMaerker()">
<option value="0">Vælg gruppe</option>
<%= printGrupper %>
</select>
<select name="list_maerker" style="width:150">
<option>Vælg først en gruppe</option>
</select>
<input type="button" onclick="alert(document.formular.list_maerker.value)" value="Hent value for valgt maerke" />
</form>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
