<%
' Display the main menu on the left side
function display_main_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 "_
& "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
end function
' Display the right hand sub menu
function display_sub_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
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)
do until rsStats2.EOF
Id2 = rsStats2("Id")
ImageOn2 = rsStats2("ImageOn")
ImageOff2 = rsStats2("ImageOff")
MenuName2 = rsStats2("MenuName")
%>
| &subpg=<% =subpg %> class="Hyperlink1"><%= MenuName2 %> |
<%
rsStats2.MoveNext
loop
session("lastpg") = menuid
end function
%>
