26. maj 2004 - 13:57Der er
7 kommentarer og 1 løsning
3 eller flere dropdown bokse
Hej eksperter Jeg 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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<body> <% 'Hendt den valgte pageid pageid = Request.Form("pageid") underpage = request.form("undermenuer")
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> <select name="undersider" size="1"> <% 'Find alle under menuer til den valgt menu if underpage <> "" then SQL = "SELECT pageID, title FROM testtabel WHERE parent = " & underpage & " 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>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.