3 eller flere dropdown bokse
Hej eksperterJeg fik hjælp den anden til et script der laver to afhænginge dropdownbokse og det virker fint, men nu vil jeg have 3 eller flere nivauer/dropdownbokse på. Kan man det ?
Mir script ser sådan ud:
<html>
<head>
<title>New Page 1</title>
</head>
<body>
<%
'Hendt den valgte pageid
pageid = Request.Form("pageid")
if pageid <> "" then
response.write "Værdien er: " & pageid
else
response.write "ingen værdi<br><br>"
end if
Set Conn = Server.CreateObject("ADODB.Connection")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/databaser/logsys.mdb")
Conn.Open connStr
%>
<form name="sels" method="post">
<p><select name="pageid" onchange="this.form.submit();" size="1">
<%
'Find og list alle med parent=0
SQL = "SELECT pageID, title FROM testtabel WHERE parent = 0 ORDER BY pageID"
Set rs = Conn.Execute(SQL)
do while not rs.EOF
Response.Write "<option value=""" & rs("pageid") & """"
if CStr(pageid) = CStr(rs("pageid")) then Response.Write " selected "
Response.Write ">" & rs("title") & "</option>"
rs.Movenext
loop
%> </select> <br>
<select name="undermenuer" size="1">
<%
'Find alle under menuer til den valgt menu
if pageid <> "" then
SQL = "SELECT pageID, title FROM testtabel WHERE parent = " & pageid & " ORDER BY pageID"
Set rs = Conn.Execute(SQL)
do while not rs.EOF
Response.Write "<option value=""" & rs("pageid") & """>" & rs("title") & "</option>"
rs.Movenext
loop
end if
rs.close
set rs = nothing
%> </select> </p>
</form>
</body>
</html>
