<% 'variable names default = "default" active = "active" current = "current" menuOn ="menu_show" menuOff ="menu" childrenOff ="menu" childrenOpen ="menu_show" childrenClosed ="menu" 'start logic listCheck = "/973.htm" 'status determines whether a link is highlighted or not status = default 'showsub determines whether a links submenu is displayed or not (left menu only) showSub = menuOff 'showsub determines which arrow is used to highlight the link children = childrenOff 'is the linked page a parent of the current page if isActive(listCheck) then status = active showSub = menuOn end if 'is the linked page the current page if isCurrent(listCheck) then status = current showSub = menuOn end if 'if a submenu exists for this page, use showSub to determine which arrow to use if subExists971 = true then if showSub = menuOn then children = childrenOpen else children = childrenClosed end if end if 'end logic %>
Parent Relations <% 'if this is the first time the menu is viewed (top) this variable does not exist 'if a submenu for the link exists, 'it is set to true so the left menu can determine which arrow to use subExists971 = true %>