%
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
%>