Rekursiv dropdown, subnodes disabled
Hej, jeg har igen brug for lidt hjælp.Jeg har en rekursiv funktion der genererer en dropdown, og i den funktion kunne jeg godt tænke mig at det ikke skulle være muligt at kunne vælge noget i underligende menuer, altså disable et punkt i dropdown boksen som nedenstående
topmenu
- submneu (må ikke kunne vælges da den ikke er en topmenu)
- - subsubmenu (må ikke kunne vælges da den ikke er en topmenu)
osv...
Jeg har pt. denne funktion der fungerer fint, men ikke tager højde for mit ønske:
---
<option value="0">Topmenu</option>
<%menu menuID,0,""%>
</select>
function menu(menuID,link_id,indryk)
Dim rs
Dim strSQL
strSQL = "SELECT * FROM menu WHERE parentid = " & unQuote(link_id) & " order by id,parentid;"
'Response.Write strSQL
set rs = conn.execute(strSQL)
do until rs.eof
response.write "<option value=" & rs("id") & ">" & indryk & rs("menuname") &"</option>"
menu menuid,rs("id"),indryk & "- "
rs.movenext
loop
End Function
---
Kan du hjælpe, tak
