Menu
<% call GetNetstat("","") %>© 2002-2005 Sybren Roede
<% dim rs (100) If NOT(request("id")="") then id = request("id") else id = 2 end if %> <% 'makebranch(id,0)%> <% function makebranch (parcat,level) Set rs(level) = Conn.Execute("SELECT * FROM menu WHERE parent = '" & parcat & "' AND status='1' ORDER BY priority") do while NOT(rs(level).eof) output =output & "
" if NOT(rs(level)("link")="") then output =output & "" else output =output & "" end if output =output & "" output = output & rs(level)("titel") & "
" output = output & "
" & chr(13) Set rs2 = Conn.Execute("SELECT * FROM menu WHERE parent = " & rs(level)("id") & "") Call CatchDbError() if NOT(rs2.eof) then output = output & "" output = output & makebranch(rs(level)("id"),level+1) output = output & "" & chr(13) & chr(13) end if rs(level).movenext loop makebranch = output end function %>