<% %> <% if not bValue(ArrayElement(Session,"UserID")) then asp_header "Location: login.asp" response.end end if asp_include "include/xtempl.asp",false asp_include "classes/runnerpage.asp",false Set xt = (CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty)) doAssignment id,IIF(not IsIdentical(postvalue("id"),""),postvalue("id"),1) Set params = (CreateDictionary4("pageType",PAGE_MENU,"id",id,"menuTablesArr",menuTablesArr,"isGroupSecurity",isGroupSecurity)) setArrElementByRef params,"xt",xt Set pageObject = (CreateClass("RunnerPage",1,params,Empty,Empty,Empty,Empty,Empty,Empty)) Set buttonHandlers = (CreateDictionary()) pageObject.addButtonHandlers_p1 buttonHandlers if bValue(asp_function_exists("BeforeProcessMenu")) then BeforeProcessMenu conn end if setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & ("" & "") if IsIdentical(pageObject.debugJSMode,true) then setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & ("" & "") else setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & "" end if setArrElement pageObject.body,"end",CSmartStr(ArrayElement(pageObject.body,"end")) & (("") xt.assignbyref_p2 "body",pageObject.body xt.assign_p2 "username",ArrayElement(Session,"UserID") xt.assign_p2 "changepwd_link",not IsEqual(ArrayElement(Session,"AccessLevel"),ACCESS_LEVEL_GUEST) xt.assign_p2 "changepwdlink_attrs","onclick=""window.location.href='changepwd.asp';return false;""" xt.assign_p2 "logoutlink_attrs","onclick=""window.location.href='login.asp?a=logout';""" xt.assign_p2 "loggedas_block",true xt.assign_p2 "logout_link",true doAssignment menuInfo,pageObject.createOldMenu() if bValue(pageObject.isCreateMenu()) then xt.assign_p2 "menustyle_block",true end if if bValue(IsAdmin()) then xt.assign_p2 "adminarea_link",true xt.assign_p2 "adminarealink_attrs","onclick=""window.location.href='admin_rights_list.asp';return false;""" setArrElement menuInfo,"urlForRedirect","admin_rights_list.asp" setArrElement menuInfo,"menuTablesCount",CSmartDbl(ArrayElement(menuInfo,"menuTablesCount"))+1 end if if IsLess(ArrayElement(menuInfo,"menuTablesCount"),2) then asp_header "Location: " & CSmartStr(ArrayElement(menuInfo,"urlForRedirect")) Response.End end if templatefile = "menu.htm" if bValue(asp_function_exists("BeforeShowMenu")) then BeforeShowMenu xt,templatefile end if xt.display_p1 templatefile %>