<% function display_menu(Menuid) if Menuid = "" then Menuid = 1 end if if Menuid <> 1 then 'Attempt to find parentid of menuid query = "SELECT * FROM Menu WHERE Menu.id = " & Menuid set rstemp = conn.execute(query) if rstemp.EOF then menuparentid = 1 else menuparentid = rstemp("ParentId") end if end if if session("lastpg") = "" then session("lastpg") = 1 end if query = "SELECT Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "FROM Menu WHERE Menu.IsLive = true "_ & "GROUP BY Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "HAVING (((Menu.ParentId)=1)) "_ & " ORDER BY Menu.MenuOrder; " 'Response.Write query 'response.end set rsStats = conn.execute(query) %>
<% do until rsStats.EOF Id = rsStats("Id") ImageOn = rsStats("ImageOn") ImageOff = rsStats("ImageOff") MenuName = rsStats("MenuName") query = "SELECT Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "FROM Menu "_ & "GROUP BY Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "HAVING (((Menu.ParentId)=" & Id & ")) "_ & "ORDER BY Menu.MenuOrder; " set rsStats2 = conn.execute(query) %> <% rsStats.movenext Loop %>
<% rsStats.close set rsStats = nothing set rsStats2 = nothing %> <% Response.Write display_content() 'Response.Write pg %> <% subpg = request("subpg") if request("subpg") <> "" then query = "SELECT Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "FROM Menu "_ & "GROUP BY Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "HAVING (((Menu.ParentId)=" & request("subpg") & ")) "_ & "ORDER BY Menu.MenuOrder; " else if menuid <> 1 then query = "SELECT Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "FROM Menu "_ & "GROUP BY Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "HAVING (((Menu.ParentId)=" & menuid & ")) "_ & "ORDER BY Menu.MenuOrder; " subpg = menuid else query = "SELECT Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "FROM Menu "_ & "GROUP BY Menu.id, Menu.ParentId, Menu.MenuOrder, Menu.MenuName, Menu.ImageOn, Menu.ImageOff "_ & "HAVING (((Menu.ParentId)=" & -1 & ")) "_ & "ORDER BY Menu.MenuOrder; " subpg = 0 end if end if set rsStats2 = conn.execute(query) %> <% session("lastpg") = menuid end function %>