Dropdown i ASP
HejJeg har fundet et script som Eagleeye har lavet, som sædvanligt smart, men jeg er knap så smart åbenbart, fordi jeg kan kun få scriptet til at hente den første værdi, Er der nogen der kan se hvad jeg gør forkert.
Her er scriptet:
<html>
<head>
<title>New Page 1</title>
</head>
<body>
<%
'Hendt den valgte pageid
pageid = Request.Form("pageid")
Set Conn = Server.CreateObject("ADODB.Connection")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("log.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 tabelnavn 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="undermemenuer" size="1">
<%
'Find alle under menuer til den valgt menu
if pageid <> "" then
SQL = "SELECT pageID, title FROM afdeling 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
%> </select> </p>
</form>
</body>
</html>
