C "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <% 'this should be using: if "Full" = "Home" then homeVar = "true" 'and since the variable is only used in once place (the UFO JS), 'just check the field there 'if "1203" = "23" then homeVar = "true" <-- original code if "Full" = "Home" then homeVar = "true" if "no" = "yes" then msiVar = "true" Dim curPageId : curPageId = "1203" Dim curPageGUID : curPageGUID = "47180D6CA6604D249E2F7C1B93030040" Dim curPageURL : curPageURL = "/1203.cfm" Dim RedDotBCPath : RedDotBCPath = "/index.cfm|/news_index.cfm|" 'response.write "BC:" & RedDotBCPath RedDotBCPath = RedDotBCPath & "/1203.cfm" Dim curMode If "" <> "" Then curMode = "RedDot" Else 'Publication mode curMode = "Publish" End If Function isActive(inLinkURL,inRedDotBCPath,inCurMode) 'the RedDotBCPath string is built differently depending on the current mode. 'if we are in RedDot Mode, then it uses an ampersand 'if we are publishing, it uses a space when creating a string that is parsed and replaced by an actual URL 'after the asp is interpreted. if ucase(inCurMode) = "REDDOT" then Token="&" Else 'Publication mode Token=" " End If 'Checks if inLinkURL is anywhere in the RedDotBCPath string If inStr(inLinkURL, Token & "pageguid=") > 0 Then If inStr(inRedDotBCPath ,Mid(inLinkURL, inStrRev(inLinkURL, Token & "pageguid="), 42)) > 0 Then isActive=True Else isActive=False End If Else isActive=False End If End Function Function isCurrent(inLinkURL,inCurrentPageURL,inCurMode) if ucase(inCurMode) = "REDDOT" then Token="&" Else 'Publication mode Token=" " End If 'Checks if strURL is the current page If instr(inLinkURL, Token & "pageguid=") > 0 Then If inStr(inCurrentPageURL, Mid(inLinkURL, inStrRev(inLinkURL, Token & "pageguid="), 42)) > 0 Then isCurrent=True Else isCurrent=False End If Else isCurrent=False End If End Function dim ActivePath : ActivePath = "1" dim WTPath : WTPath = "" dim NavLevel : NavLevel = 0 dim NavCode(2) NavCode(1) = "" NavCode(2) = "" dim BCCode : BCCode = "" if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "

" NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipalities & Communities") > 0 then NavText = "Municipalities & Communities" else NavText = "Municipalities & Communities" end if if isActive("/mc_index.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/mc_index.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/mc_about_municipalities.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
• " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*****************") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("About Municipalities") > 0 then NavText = "About Municipalities" else NavText = "About Municipalities" end if if isActive("/mc_about_municipalities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_about_municipalities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/mc_how_do_I_municipalities.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("***") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipalities And Municipal Officials") > 0 then NavText = "Municipalities And Municipal Officials" else NavText = "How do I find out about Municipalities and Municipal Officials?" end if if isActive("/mc_how_do_I_municipalities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",831" NavClass = "selectedParent" if isCurrent("/mc_how_do_I_municipalities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Types Of Municipalities") > 0 then NavText = "Types Of Municipalities" else NavText = "Types Of Municipalities In Alberta" end if if isActive("/am_types_of_municipalities_in_alberta.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",831" NavClass = "selectedParent" if isCurrent("/am_types_of_municipalities_in_alberta.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("What Are Municipalities?") > 0 then NavText = "What Are Municipalities?" else NavText = "What Are Municipalities?" end if if isActive("/am_what_are_municipalities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",831" NavClass = "selectedParent" if isCurrent("/am_what_are_municipalities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Maps And Statistics") > 0 then NavText = "Maps And Statistics" else NavText = "Maps And Statistics" end if if isActive("/mc_maps_statistics.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_maps_statistics.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_municipal_locations.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Locations") > 0 then NavText = "Municipal Locations" else NavText = "Municipal Locations" end if if isActive("/am_municipal_locations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",571" NavClass = "selectedParent" if isCurrent("/am_municipal_locations.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Codes") > 0 then NavText = "Municipal Codes" else NavText = "Municipal Codes" end if if isActive("/am_municipal_codes.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",571" NavClass = "selectedParent" if isCurrent("/am_municipal_codes.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Boundary Maps") > 0 then NavText = "Boundary Maps" else NavText = "Municipal Boundary Map" end if if isActive("/mc_boundary_maps.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",571" NavClass = "selectedParent" if isCurrent("/mc_boundary_maps.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Profiles") > 0 then NavText = "Municipal Profiles" else NavText = "" end if if isActive("/mc_municipal_profiles.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",571" NavClass = "selectedParent" if isCurrent("/mc_municipal_profiles.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Census & Population Lists") > 0 then NavText = "Municipal Census & Population Lists" else NavText = "" end if if isActive("/mc_official_populations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",571" NavClass = "selectedParent" if isCurrent("/mc_official_populations.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Boundary Document Search") > 0 then NavText = "Boundary Document Search" else NavText = "Municipal Boundary Document Search" end if if isActive("/mc_boundary_search.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",571" NavClass = "selectedParent" if isCurrent("/mc_boundary_search.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Grants") > 0 then NavText = "Municipal Grants" else NavText = "Municipal Grants" end if if isActive("/mc_municipal_grants.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_municipal_grants.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/MC_regionalcollaborationprogram.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Regional Collaboration Program") > 0 then NavText = "Regional Collaboration Program" else NavText = "Regional Collaboration Program" end if if isActive("/MC_regionalcollaborationprogram.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",562" NavClass = "selectedParent" if isCurrent("/MC_regionalcollaborationprogram.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Sponsorship Program") > 0 then NavText = "Municipal Sponsorship Program" else NavText = "Municipal Sponsorship Program" end if if isActive("/municipal_sponsorship_program.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",562" NavClass = "selectedParent" if isCurrent("/municipal_sponsorship_program.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Municipal Sustainability Strategy" end if if isActive("/1330.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/1330.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Elections") > 0 then NavText = "Municipal Elections" else NavText = "Municipal Election Information & Forms" end if if isActive("/mc_elections.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_elections.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Property Assessment and Taxation") > 0 then NavText = "Property Assessment and Taxation" else NavText = "Property Assessment and Taxation" end if if isActive("/mc_property_assessment_and_taxation.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_property_assessment_and_taxation.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/mc_property_assessment_and_taxation_legislation.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Legislation") > 0 then NavText = "Legislation" else NavText = "Legislation" end if if isActive("/mc_property_assessment_and_taxation_legislation.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",576" NavClass = "selectedParent" if isCurrent("/mc_property_assessment_and_taxation_legislation.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Assessment Complaints & Appeals") > 0 then NavText = "Assessment Complaints & Appeals" else NavText = "Assessment Complaints and Appeals" end if if isActive("/mc_assessment_complaints_and_appeals.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",576" NavClass = "selectedParent" if isCurrent("/mc_assessment_complaints_and_appeals.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Publications") > 0 then NavText = "Publications" else NavText = "Publications & Forms" end if if isActive("/mc_property_assessment_and_taxation_publications.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",576" NavClass = "selectedParent" if isCurrent("/mc_property_assessment_and_taxation_publications.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Reports") > 0 then NavText = "Reports" else NavText = "Reports" end if if isActive("/mc_property_assessment_and_taxation_reports.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",576" NavClass = "selectedParent" if isCurrent("/mc_property_assessment_and_taxation_reports.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Planning and Development") > 0 then NavText = "Planning and Development" else NavText = "Planning & Development" end if if isActive("/am_planning_and_development.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/am_planning_and_development.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_subdivison_and_development_appeal_MGB.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("***") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Subdivision Appeals ") > 0 then NavText = "Subdivision Appeals " else NavText = "Subdivision Appeals to the Municipal Government Board" end if if isActive("/am_subdivison_and_development_appeal_MGB.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",893" NavClass = "selectedParent" if isCurrent("/am_subdivison_and_development_appeal_MGB.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Subdivision and Development in the Vicinity of Wastewater Treatment Plants ") > 0 then NavText = "Subdivision and Development in the Vicinity of Wastewater Treatment Plants " else NavText = "Subdivision And Development Vicinity Of Wastewaters Treatment Plants" end if if isActive("/am_subdivision_and_development_vicinity_of_wastewater_treatment_plants.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",893" NavClass = "selectedParent" if isCurrent("/am_subdivision_and_development_vicinity_of_wastewater_treatment_plants.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Subdivision in the Vicinity of Highways") > 0 then NavText = "Subdivision in the Vicinity of Highways" else NavText = "Subdivision In The Vicinity Of Highways" end if if isActive("/am_subdivision_in_the_vicinity_of_highways.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",893" NavClass = "selectedParent" if isCurrent("/am_subdivision_in_the_vicinity_of_highways.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Capital Region Plan") > 0 then NavText = "Capital Region Plan" else NavText = "Capital Region Plan" end if if isActive("/mc_capital_region_plan.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_capital_region_plan.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/Capital_Region_Board.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("***") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Capital Region Board") > 0 then NavText = "Capital Region Board" else NavText = "Capital Region Board" end if if isActive("/Capital_Region_Board.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1124" NavClass = "selectedParent" if isCurrent("/Capital_Region_Board.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "About the Capital Region Plan" end if if isActive("/mc_about_capital_region_plan.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1124" NavClass = "selectedParent" if isCurrent("/mc_about_capital_region_plan.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Capital Region Report") > 0 then NavText = "Capital Region Report" else NavText = "Capital Region Report" end if if isActive("/Capital-Region-Report.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1124" NavClass = "selectedParent" if isCurrent("/Capital-Region-Report.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Services for Municipalities") > 0 then NavText = "Services for Municipalities" else NavText = "Services for Municipalities" end if if isActive("/mc_services_for_muncipalites_communities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_services_for_muncipalites_communities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_subdivison_appeals_board_manual.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("***") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Appeal Board Manual") > 0 then NavText = "Appeal Board Manual" else NavText = "Subdivision and Development Appeal Board Training" end if if isActive("/am_subdivison_appeals_board_manual.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/am_subdivison_appeals_board_manual.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Information for Administrators") > 0 then NavText = "Information for Administrators" else NavText = "Information for Administrators" end if if isActive("/am_information_for_administrators.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/am_information_for_administrators.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Publications") > 0 then NavText = "Publications" else NavText = "Publications" end if if isActive("/Municipality_publications.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/Municipality_publications.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Collaboration & Mediation") > 0 then NavText = "Municipal Collaboration & Mediation" else NavText = "Municipal Collaboration & Mediation" end if if isActive("/MDRS.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/MDRS.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1486.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("About Us") > 0 then NavText = "About Us" else NavText = "" end if if isActive("/1486.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1512" NavClass = "selectedParent" if isCurrent("/1486.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1492.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("MDRS History") > 0 then NavText = "MDRS History" else NavText = "" end if if isActive("/1492.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1513" NavClass = "selectedParent" if isCurrent("/1492.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Intermunicipal Dispute Resolution Initiative") > 0 then NavText = "Intermunicipal Dispute Resolution Initiative" else NavText = "" end if if isActive("/1487.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1512" NavClass = "selectedParent" if isCurrent("/1487.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1493.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Issues and IDR Success Stories") > 0 then NavText = "Municipal Issues and IDR Success Stories" else NavText = "" end if if isActive("/1493.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1514" NavClass = "selectedParent" if isCurrent("/1493.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Videos on Mediation and Dispute Resolution") > 0 then NavText = "Videos on Mediation and Dispute Resolution" else NavText = "" end if if isActive("/1494.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1514" NavClass = "selectedParent" if isCurrent("/1494.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Mediator Roster / Mentoree Program") > 0 then NavText = "Mediator Roster / Mentoree Program" else NavText = "" end if if isActive("/1495.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1514" NavClass = "selectedParent" if isCurrent("/1495.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Getting on the Mediator Roster") > 0 then NavText = "Getting on the Mediator Roster" else NavText = "" end if if isActive("/1496.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1514" NavClass = "selectedParent" if isCurrent("/1496.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Collaborative Governance Initiative") > 0 then NavText = "Collaborative Governance Initiative" else NavText = "" end if if isActive("/1488.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1512" NavClass = "selectedParent" if isCurrent("/1488.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Workshops") > 0 then NavText = "Workshops" else NavText = "" end if if isActive("/1489.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1512" NavClass = "selectedParent" if isCurrent("/1489.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Resources") > 0 then NavText = "Resources" else NavText = "" end if if isActive("/1490.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1512" NavClass = "selectedParent" if isCurrent("/1490.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Contact Us") > 0 then NavText = "Contact Us" else NavText = "" end if if isActive("/1491.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1512" NavClass = "selectedParent" if isCurrent("/1491.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Education") > 0 then NavText = "Education" else NavText = "Education" end if if isActive("/Education_Opportunities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/Education_Opportunities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/edu_grade6.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Municipal Government for Students" end if if isActive("/edu_grade6.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1110" NavClass = "selectedParent" if isCurrent("/edu_grade6.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/edu_grade6_building_communities.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Building Communities") > 0 then NavText = "Building Communities" else NavText = "" end if if isActive("/edu_grade6_building_communities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1152" NavClass = "selectedParent" if isCurrent("/edu_grade6_building_communities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Glossary") > 0 then NavText = "Glossary" else NavText = "" end if if isActive("/edu_grade6_glossary.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1152" NavClass = "selectedParent" if isCurrent("/edu_grade6_glossary.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Student FAQ") > 0 then NavText = "Student FAQ" else NavText = "" end if if isActive("/edu_grade6_student_faq.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1152" NavClass = "selectedParent" if isCurrent("/edu_grade6_student_faq.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Teacher FAQ") > 0 then NavText = "Teacher FAQ" else NavText = "" end if if isActive("/edu_grade6_teacher_faq.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1152" NavClass = "selectedParent" if isCurrent("/edu_grade6_teacher_faq.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Profiles") > 0 then NavText = "Municipal Profiles" else NavText = "" end if if isActive("/edu_grade6_profiles.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1152" NavClass = "selectedParent" if isCurrent("/edu_grade6_profiles.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Officials Search") > 0 then NavText = "Municipal Officials Search" else NavText = "" end if if isActive("/edu_grade6_officials.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1152" NavClass = "selectedParent" if isCurrent("/edu_grade6_officials.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("External Resources") > 0 then NavText = "External Resources" else NavText = "" end if if isActive("/edu_grade6_external_resources.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1152" NavClass = "selectedParent" if isCurrent("/edu_grade6_external_resources.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Careers in Local Government - Grade 11 Presentation") > 0 then NavText = "Careers in Local Government - Grade 11 Presentation" else NavText = "Careers in Local Government - Grade 11 Presentation" end if if isActive("/edu_grade11.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1110" NavClass = "selectedParent" if isCurrent("/edu_grade11.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Training") > 0 then NavText = "Training" else NavText = "Training" end if if isActive("/mc_training.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_training.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1296.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Services Training") > 0 then NavText = "Municipal Services Training" else NavText = "Municipal Services Training and Development" end if if isActive("/1296.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",593" NavClass = "selectedParent" if isCurrent("/1296.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Emergency Services Training") > 0 then NavText = "Emergency Services Training" else NavText = "Emergency Services Training " end if if isActive("/mc_fire_fighter_training.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",593" NavClass = "selectedParent" if isCurrent("/mc_fire_fighter_training.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Public Library Service") > 0 then NavText = "Public Library Service" else NavText = "Public Library Services Branch" end if if isActive("/mc_libraries.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_libraries.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/mc_provincial_public_library_service.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Public Library Service in Alberta") > 0 then NavText = "Public Library Service in Alberta" else NavText = "Public Library Services in Alberta" end if if isActive("/mc_provincial_public_library_service.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",605" NavClass = "selectedParent" if isCurrent("/mc_provincial_public_library_service.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Directory of Alberta's Public Libraries") > 0 then NavText = "Directory of Alberta's Public Libraries" else NavText = "Directory of Alberta's Public Libraries" end if if isActive("/mc_public_library_directory.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",605" NavClass = "selectedParent" if isCurrent("/mc_public_library_directory.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Public Library Statistics" end if if isActive("/mc_public_library_statistics.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",605" NavClass = "selectedParent" if isCurrent("/mc_public_library_statistics.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Library Systems") > 0 then NavText = "Library Systems" else NavText = "Library Systems" end if if isActive("/am_library_systems.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",605" NavClass = "selectedParent" if isCurrent("/am_library_systems.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Public Library History") > 0 then NavText = "Public Library History" else NavText = "Public Library History" end if if isActive("/mc_public_library_history.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",605" NavClass = "selectedParent" if isCurrent("/mc_public_library_history.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Financial Reporting") > 0 then NavText = "Financial Reporting" else NavText = "Financial Reporting" end if if isActive("/mc_financial_reporting.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_financial_reporting.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_municipal_statistical_return.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Statistical Return") > 0 then NavText = "Municipal Statistical Return" else NavText = "Municipal Statistical Return" end if if isActive("/am_municipal_statistical_return.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",828" NavClass = "selectedParent" if isCurrent("/am_municipal_statistical_return.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Financial Returns and Sample Statements ") > 0 then NavText = "Financial Returns and Sample Statements " else NavText = "Municipal Financial Information Return & Sample Financial Statements 2011" end if if isActive("/mc_financial_information_return_statements.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",828" NavClass = "selectedParent" if isCurrent("/mc_financial_information_return_statements.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Service Commission Financial Information sample") > 0 then NavText = "Service Commission Financial Information sample" else NavText = "Regional Services Commission, Financial Information Return and Sample Finance Statements" end if if isActive("/am_regional_services_commission_financial_reporting.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",828" NavClass = "selectedParent" if isCurrent("/am_regional_services_commission_financial_reporting.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Financial and Statistical Data") > 0 then NavText = "Municipal Financial and Statistical Data" else NavText = "Municipal Financial & Statistical Data" end if if isActive("/municipal_financial_statistical_data.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",828" NavClass = "selectedParent" if isCurrent("/municipal_financial_statistical_data.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1596.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Financial & Statistical Data Up To 2008") > 0 then NavText = "Municipal Financial & Statistical Data Up To 2008" else NavText = "Municipal Financial & Statistical Data Up To 2008" end if if isActive("/1596.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",991" NavClass = "selectedParent" if isCurrent("/1596.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("System Archive") > 0 then NavText = "System Archive" else NavText = "Municipal Financial Information System Archive" end if if isActive("/mc_mfis_system_archive.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",991" NavClass = "selectedParent" if isCurrent("/mc_mfis_system_archive.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Tangible Capital Assets (TCA)") > 0 then NavText = "Tangible Capital Assets (TCA)" else NavText = "Tangible Capital Assets Home" end if if isActive("/1248.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",828" NavClass = "selectedParent" if isCurrent("/1248.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1249.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("***") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Overview") > 0 then NavText = "Overview" else NavText = "Overview" end if if isActive("/1249.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1250" NavClass = "selectedParent" if isCurrent("/1249.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1255.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("TCA Toolkit Documents") > 0 then NavText = "TCA Toolkit Documents" else NavText = "TCA Toolkit Documents" end if if isActive("/1255.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1257" NavClass = "selectedParent" if isCurrent("/1255.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Budgets & Reporting") > 0 then NavText = "Budgets & Reporting" else NavText = "Budgets and Reporting" end if if isActive("/1254.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1257" NavClass = "selectedParent" if isCurrent("/1254.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Asset Inventory & Valuation") > 0 then NavText = "Asset Inventory & Valuation" else NavText = "Asset Inventory and Valuation" end if if isActive("/1253.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1257" NavClass = "selectedParent" if isCurrent("/1253.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Policies and Guidelines") > 0 then NavText = "Policies and Guidelines" else NavText = "Policies and Guidelines" end if if isActive("/1252.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1257" NavClass = "selectedParent" if isCurrent("/1252.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Implementation") > 0 then NavText = "Implementation" else NavText = "Implementation" end if if isActive("/1251.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1257" NavClass = "selectedParent" if isCurrent("/1251.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Newsletters") > 0 then NavText = "Newsletters" else NavText = "Newsletters" end if if isActive("/1256.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1250" NavClass = "selectedParent" if isCurrent("/1256.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Resources and Guidelines") > 0 then NavText = "Resources and Guidelines" else NavText = "Resources and Guidelines" end if if isActive("/1258.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1250" NavClass = "selectedParent" if isCurrent("/1258.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Excellence Network") > 0 then NavText = "Municipal Excellence Network" else NavText = "Welcome to the Municipal Excellence Network!" end if if isActive("/mc_municipal_excellence.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_municipal_excellence.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Officials Search") > 0 then NavText = "Municipal Officials Search" else NavText = "Municipal Officials Search" end if if isActive("/mc_municipal_officials_search.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_municipal_officials_search.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Nonprofit/Voluntary Sector Initiative") > 0 then NavText = "Nonprofit/Voluntary Sector Initiative" else NavText = "Nonprofit/Voluntary Sector Initiative" end if if isActive("/mc_volunteer_initiative.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/mc_volunteer_initiative.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/mc_Alberta_Non-profit_Voluntary_Sector_Scenarios.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Alberta Non-profit/Voluntary Sector Scenarios") > 0 then NavText = "Alberta Non-profit/Voluntary Sector Scenarios" else NavText = "Alberta Non-profit/Voluntary Sector Scenarios" end if if isActive("/mc_Alberta_Non-profit_Voluntary_Sector_Scenarios.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",752" NavClass = "selectedParent" if isCurrent("/mc_Alberta_Non-profit_Voluntary_Sector_Scenarios.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
" NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Permits") > 0 then NavText = "Codes & Permits" else NavText = "Codes & Permits" end if if isActive("/cp_index.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/cp_index.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1276.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
• " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*****************") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Safety Codes Act") > 0 then NavText = "Safety Codes Act" else NavText = "Safety Codes Act" end if if isActive("/1276.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/1276.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Permit Information") > 0 then NavText = "Permit Information" else NavText = "Permit Information" end if if isActive("/cp_permit_information.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_permit_information.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/CP_Permit_Reg_and_Guidelines.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Permit Regulation and Guidelines" end if if isActive("/CP_Permit_Reg_and_Guidelines.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",929" NavClass = "selectedParent" if isCurrent("/CP_Permit_Reg_and_Guidelines.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Permit Information Search") > 0 then NavText = "Permit Information Search" else NavText = "Permit Information Search" end if if isActive("/cp_permit_information_search.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",929" NavClass = "selectedParent" if isCurrent("/cp_permit_information_search.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Building") > 0 then NavText = "Building" else NavText = "Building" end if if isActive("/cp_building.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_building.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1237.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Residential Construction Practices") > 0 then NavText = "Residential Construction Practices" else NavText = "Residential Construction Practices" end if if isActive("/1237.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",614" NavClass = "selectedParent" if isCurrent("/1237.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = "Building Codes & Standards" end if if isActive("/cp_building_codes_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",614" NavClass = "selectedParent" if isCurrent("/cp_building_codes_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Secondary Suites") > 0 then NavText = "Secondary Suites" else NavText = "Secondary Suites" end if if isActive("/cp_secondary_suites.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",614" NavClass = "selectedParent" if isCurrent("/cp_secondary_suites.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Building STANDATA" end if if isActive("/cp_building_standata.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",614" NavClass = "selectedParent" if isCurrent("/cp_building_standata.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Advisories") > 0 then NavText = "Advisories" else NavText = "Building Advisories" end if if isActive("/cp_building_advisories.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",614" NavClass = "selectedParent" if isCurrent("/cp_building_advisories.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms & Reports") > 0 then NavText = "Forms & Reports" else NavText = "Building Forms and Reports" end if if isActive("/building_forms_reports.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",614" NavClass = "selectedParent" if isCurrent("/building_forms_reports.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Accessibility") > 0 then NavText = "Accessibility" else NavText = "Accessibility" end if if isActive("/1141.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/1141.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Safety & Emergencies") > 0 then NavText = "Safety & Emergencies" else NavText = "Safety & Emergencies" end if if isActive("/se_index.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/se_index.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1147.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("High-Intensity Residential Fires") > 0 then NavText = "High-Intensity Residential Fires" else NavText = "High-Intensity Residential Fires" end if if isActive("/1147.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1147.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Safety Tips & Brochures") > 0 then NavText = "Safety Tips & Brochures" else NavText = "Safety Tips & Brochures" end if if isActive("/am_safety_tips.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/am_safety_tips.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Fire") > 0 then NavText = "Fire" else NavText = " Fire" end if if isActive("/cp_fire.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_fire.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/cp_fire_codes_standards.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = " Fire Codes & Standards" end if if isActive("/cp_fire_codes_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",621" NavClass = "selectedParent" if isCurrent("/cp_fire_codes_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Secondary Suites") > 0 then NavText = "Secondary Suites" else NavText = "Secondary Suites" end if if isActive("/cp_secondary_suites.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",621" NavClass = "selectedParent" if isCurrent("/cp_secondary_suites.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Fire STANDATA" end if if isActive("/cp_fire_standata.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",621" NavClass = "selectedParent" if isCurrent("/cp_fire_standata.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms and Reports") > 0 then NavText = "Forms and Reports" else NavText = "Fire Forms and Reports" end if if isActive("/CP_Fire_Forms_and_Reports.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",621" NavClass = "selectedParent" if isCurrent("/CP_Fire_Forms_and_Reports.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Advisories") > 0 then NavText = "Advisories" else NavText = "Fire Advisories" end if if isActive("/CP_FireAdvisories.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",621" NavClass = "selectedParent" if isCurrent("/CP_FireAdvisories.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Petroleum Tank Management Association of Alberta" end if if isActive("/CP_PTMAA.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",621" NavClass = "selectedParent" if isCurrent("/CP_PTMAA.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Electrical") > 0 then NavText = "Electrical" else NavText = "Electrical" end if if isActive("/cp_electrical.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_electrical.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/cp_electrical_codes_standards.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = "Electrical Codes & Standards" end if if isActive("/cp_electrical_codes_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",627" NavClass = "selectedParent" if isCurrent("/cp_electrical_codes_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Electrical STANDATA" end if if isActive("/cp_electrical_standata.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",627" NavClass = "selectedParent" if isCurrent("/cp_electrical_standata.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Advisories") > 0 then NavText = "Advisories" else NavText = "Electrical Advisories" end if if isActive("/cp_electrical_advisories.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",627" NavClass = "selectedParent" if isCurrent("/cp_electrical_advisories.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms & Reports") > 0 then NavText = "Forms & Reports" else NavText = " Electrical Forms and Reports" end if if isActive("/cp_electrical_forms_and_reports.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",627" NavClass = "selectedParent" if isCurrent("/cp_electrical_forms_and_reports.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Gas (Natural & Propane)") > 0 then NavText = "Gas (Natural & Propane)" else NavText = " Gas" end if if isActive("/cp_gas.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_gas.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/cp_gas_codes_standards.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = "Gas Codes & Standards" end if if isActive("/cp_gas_codes_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",635" NavClass = "selectedParent" if isCurrent("/cp_gas_codes_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Gas STANDATA" end if if isActive("/cp_gas_standata.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",635" NavClass = "selectedParent" if isCurrent("/cp_gas_standata.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Advisories") > 0 then NavText = "Advisories" else NavText = "Gas Advisories" end if if isActive("/cp_gas_advisories.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",635" NavClass = "selectedParent" if isCurrent("/cp_gas_advisories.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms & Reports") > 0 then NavText = "Forms & Reports" else NavText = "Gas Forms and Reports" end if if isActive("/CP_GasFormsandReports.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",635" NavClass = "selectedParent" if isCurrent("/CP_GasFormsandReports.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Plumbing") > 0 then NavText = "Plumbing" else NavText = "Plumbing" end if if isActive("/cp_plumbing.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_plumbing.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/cp_Plumbing_codes_standards.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = "Plumbing Codes & Standards" end if if isActive("/cp_Plumbing_codes_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",639" NavClass = "selectedParent" if isCurrent("/cp_Plumbing_codes_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Plumbing STANDATA" end if if isActive("/cp_plumbing_standata.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",639" NavClass = "selectedParent" if isCurrent("/cp_plumbing_standata.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Reclaimed water working group") > 0 then NavText = "Reclaimed water working group" else NavText = "Reclaimed water working group" end if if isActive("/1171.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",639" NavClass = "selectedParent" if isCurrent("/1171.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/CP_RainwaterHarvesting.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Rainwater Harvesting" end if if isActive("/CP_RainwaterHarvesting.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1175" NavClass = "selectedParent" if isCurrent("/CP_RainwaterHarvesting.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Reclaimed Wastewater") > 0 then NavText = "Reclaimed Wastewater" else NavText = "Reclaimed Wastewater" end if if isActive("/1176.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1175" NavClass = "selectedParent" if isCurrent("/1176.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Advisories") > 0 then NavText = "Advisories" else NavText = "Plumbing Advisories" end if if isActive("/cp_plumbing_advisories.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",639" NavClass = "selectedParent" if isCurrent("/cp_plumbing_advisories.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Restricted Certificate Contractors List" end if if isActive("/CP_RestrictedCertificateContractorsList.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",639" NavClass = "selectedParent" if isCurrent("/CP_RestrictedCertificateContractorsList.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms and Reports") > 0 then NavText = "Forms and Reports" else NavText = "Plumbing Forms and Reports" end if if isActive("/CP_Plumbing_Forms_Reports.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",639" NavClass = "selectedParent" if isCurrent("/CP_Plumbing_Forms_Reports.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Private Sewage") > 0 then NavText = "Private Sewage" else NavText = "Private Sewage " end if if isActive("/cp_private_sewage.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_private_sewage.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/cp_private_sewage_codes_standards.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = "Private Sewage Codes & Standards" end if if isActive("/cp_private_sewage_codes_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",649" NavClass = "selectedParent" if isCurrent("/cp_private_sewage_codes_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Private Sewage STANDATA" end if if isActive("/cp_private_sewage_standata.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",649" NavClass = "selectedParent" if isCurrent("/cp_private_sewage_standata.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Advisories") > 0 then NavText = "Advisories" else NavText = "Private Sewage Advisories" end if if isActive("/cp_private_sewage_advisories.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",649" NavClass = "selectedParent" if isCurrent("/cp_private_sewage_advisories.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Work Camps") > 0 then NavText = "Work Camps" else NavText = "Private Sewage Systems at Work Camps" end if if isActive("/CP_PrivateSewageWorkCamps.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",649" NavClass = "selectedParent" if isCurrent("/CP_PrivateSewageWorkCamps.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Certified Contractors List") > 0 then NavText = "Certified Contractors List" else NavText = "Private Sewage Certified Contractors List" end if if isActive("/CP_PrivateSewageContractorList.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",649" NavClass = "selectedParent" if isCurrent("/CP_PrivateSewageContractorList.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Design Tools and Forms") > 0 then NavText = "Design Tools and Forms" else NavText = "Private Sewage Systems Design Tools and Forms" end if if isActive("/CP_PSDS_DesignToolsAndForms.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",649" NavClass = "selectedParent" if isCurrent("/CP_PSDS_DesignToolsAndForms.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Boilers and Pressure Vessels") > 0 then NavText = "Boilers and Pressure Vessels" else NavText = "Boilers and Pressure Vessels" end if if isActive("/am_boilers_and_pressure_vessels.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/am_boilers_and_pressure_vessels.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Elevators") > 0 then NavText = "Elevators" else NavText = " Elevators" end if if isActive("/cp_elevators.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_elevators.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/cp_elevators_codes_standards.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = "Elevators Codes & Standards" end if if isActive("/cp_elevators_codes_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",654" NavClass = "selectedParent" if isCurrent("/cp_elevators_codes_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Elevators STANDATA" end if if isActive("/cp_elevators_standata.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",654" NavClass = "selectedParent" if isCurrent("/cp_elevators_standata.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Amusement Rides") > 0 then NavText = "Amusement Rides" else NavText = "Amusement Rides" end if if isActive("/am_amusement_rides.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/am_amusement_rides.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/amusement_ride_codes_and_standards.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Codes & Standards") > 0 then NavText = "Codes & Standards" else NavText = "Amusement Rides Codes and Standards" end if if isActive("/amusement_ride_codes_and_standards.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",923" NavClass = "selectedParent" if isCurrent("/amusement_ride_codes_and_standards.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("STANDATA") > 0 then NavText = "STANDATA" else NavText = "Amusement Ride STANDATA" end if if isActive("/am_amusement_rides_information_bulletins.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",923" NavClass = "selectedParent" if isCurrent("/am_amusement_rides_information_bulletins.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Passenger Ropeways (Ski Lifts)" end if if isActive("/am_passenger_ropeways.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/am_passenger_ropeways.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Tank Site Remediation Program") > 0 then NavText = "Tank Site Remediation Program" else NavText = "Tank Site Remediation Program" end if if isActive("/am_tank_site_remediation_program.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/am_tank_site_remediation_program.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_tank_program_eligibility_and_funding.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Eligibility and Funding") > 0 then NavText = "Eligibility and Funding" else NavText = "Tank Program eligibility and funding " end if if isActive("/am_tank_program_eligibility_and_funding.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",933" NavClass = "selectedParent" if isCurrent("/am_tank_program_eligibility_and_funding.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Frequently Asked Questions") > 0 then NavText = "Frequently Asked Questions" else NavText = "Frequently Asked Questions (FAQs)" end if if isActive("/cp_FAQ.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/cp_FAQ.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Related Links") > 0 then NavText = "Related Links" else NavText = "Related Links" end if if isActive("/880.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/880.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
" NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Agencies, Boards, & Commissions") > 0 then NavText = "Agencies, Boards, & Commissions" else NavText = "Agencies, Boards & Commissions" end if if isActive("/abc_index.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/abc_index.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/abc_municipal_government_board_intro.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
• " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Government Board") > 0 then NavText = "Municipal Government Board" else NavText = "Municipal Government Board" end if if isActive("/abc_municipal_government_board_intro.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1089" NavClass = "selectedParent" if isCurrent("/abc_municipal_government_board_intro.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1499.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**********") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Composite Assessment Review Board (CARB)") > 0 then NavText = "Composite Assessment Review Board (CARB)" else NavText = "Composite Assessment Review Boards (CARB)" end if if isActive("/1499.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/1499.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Activity") > 0 then NavText = "Board Activity" else NavText = "Board Activity" end if if isActive("/abc_board_activity.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_board_activity.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Members") > 0 then NavText = "Board Members" else NavText = "Board Member Biographies " end if if isActive("/abc_mgb_bios.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_bios.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Recruitment & Appointments") > 0 then NavText = "Board Recruitment & Appointments" else NavText = "Board Recruitment and Appointments" end if if isActive("/abc_MGB_board_appointments.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_MGB_board_appointments.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Mission, Vision, and Goals") > 0 then NavText = "Mission, Vision, and Goals" else NavText = "MGB Mission, Vision, and Goals" end if if isActive("/abc_mgb_mission.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_mission.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("MGB Annexations") > 0 then NavText = "MGB Annexations" else NavText = "MGB Annexations" end if if isActive("/abc_MGB_annexations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_MGB_annexations.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("MGB Board Order Search") > 0 then NavText = "MGB Board Order Search" else NavText = "MGB Board Order Search" end if if isActive("/abc_MGB_board_order_search.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_MGB_board_order_search.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/board_order_definitions.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Order Definitions") > 0 then NavText = "Board Order Definitions" else NavText = "Board Order Definitions" end if if isActive("/board_order_definitions.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1570" NavClass = "selectedParent" if isCurrent("/board_order_definitions.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Current Key Decisions" end if if isActive("/abc_bulletin_board.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_bulletin_board.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms and Reports") > 0 then NavText = "Forms and Reports" else NavText = " Forms and Reports" end if if isActive("/abc_mgb_forms.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_forms.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("MGB Newsletters") > 0 then NavText = "MGB Newsletters" else NavText = "Municipal Government Board - Newsletters and Reports" end if if isActive("/abc_mgb_newsletters.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_newsletters.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
" NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Grants") > 0 then NavText = "Municipal Grants" else NavText = "Municipal Grants Web Portal" end if if isActive("/municipalgrants.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/municipalgrants.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/municipalgrants-funding-reports.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
• " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("************") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Grant Funding Reports" end if if isActive("/municipalgrants-funding-reports.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/municipalgrants-funding-reports.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Sustainability Programs") > 0 then NavText = "Municipal Sustainability Programs" else NavText = "Programs Supporting the Viability and Long-Term Sustainability of Municipalities" end if if isActive("/municipalgrants-sustainability.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/municipalgrants-sustainability.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Sustainability Initiative") > 0 then NavText = "Municipal Sustainability Initiative" else NavText = "The Municipal Sustainability Initiative (MSI)" end if if isActive("/msi.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/msi.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/msi-program-description.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("******") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Program Description") > 0 then NavText = "Program Description" else NavText = "Program Description" end if if isActive("/msi-program-description.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1552" NavClass = "selectedParent" if isCurrent("/msi-program-description.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Funding Allocations and Eligibility") > 0 then NavText = "Funding Allocations and Eligibility" else NavText = "Funding Allocations and Eligibility" end if if isActive("/msi-funding-allocations-eligibility.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1552" NavClass = "selectedParent" if isCurrent("/msi-funding-allocations-eligibility.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Eligible Projects") > 0 then NavText = "Eligible Projects" else NavText = "Eligible Projects" end if if isActive("/msi-qualifying-projects.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1552" NavClass = "selectedParent" if isCurrent("/msi-qualifying-projects.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Materials, Forms and Resources") > 0 then NavText = "Materials, Forms and Resources" else NavText = "Materials, Forms and Resources" end if if isActive("/msi-materials-resources.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1552" NavClass = "selectedParent" if isCurrent("/msi-materials-resources.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("See More Community Stories") > 0 then NavText = "See More Community Stories" else NavText = "Story Archive" end if if isActive("/msi-community-stories.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1552" NavClass = "selectedParent" if isCurrent("/msi-community-stories.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Contact Us") > 0 then NavText = "Contact Us" else NavText = "Do you have questions about the Municipal Sustainability Initiative?" end if if isActive("/msi-contact-us.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1552" NavClass = "selectedParent" if isCurrent("/msi-contact-us.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Community Health and Safety Programs") > 0 then NavText = "Community Health and Safety Programs" else NavText = "Programs Supporting Safe, Healthy and Vibrant Communities" end if if isActive("/municipalgrants-communities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/municipalgrants-communities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Core Municipal Infrastructure Programs") > 0 then NavText = "Core Municipal Infrastructure Programs" else NavText = "Programs Supporting the Development and Maintenance of Core Municipal Infrastructure" end if if isActive("/municipalgrants-infrastructure.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/municipalgrants-infrastructure.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Programs Supporting Municipal Capacity Building" end if if isActive("/municipalgrants-capacity.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/municipalgrants-capacity.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Municipal Grant Programs by Ministry" end if if isActive("/municipalgrants-ministry.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/municipalgrants-ministry.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Municipal Grant Programs By Name" end if if isActive("/municipalgrants-name.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/municipalgrants-name.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Grant Stacking Opportunities") > 0 then NavText = "Grant Stacking Opportunities" else NavText = "Grant Stacking Opportunities" end if if isActive("/1639.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/1639.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Information Booklet") > 0 then NavText = "Information Booklet" else NavText = "Municipal Grants Information Booklet" end if if isActive("/1462.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/1462.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "General Information" end if if isActive("/1463.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/1463.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Key Dates Archive") > 0 then NavText = "Key Dates Archive" else NavText = "Key Dates Archive" end if if isActive("/1592.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1464" NavClass = "selectedParent" if isCurrent("/1592.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
" NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Newsroom") > 0 then NavText = "Newsroom" else NavText = "Newsroom" end if if isActive("/news_index.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/news_index.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("government") > 0 then WTPath = WTPath & "/" & "government" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1203.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
• " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("News Releases") > 0 then NavText = "News Releases" else NavText = "News Releases" end if if isActive("/1203.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/1203.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Speeches") > 0 then NavText = "Speeches" else NavText = "Speeches" end if if isActive("/1204.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/1204.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Photos & Video") > 0 then NavText = "Photos & Video" else NavText = "Photos & Video" end if if isActive("/1205.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/1205.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1478.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Alberta Library Conference 2010" end if if isActive("/1478.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1218" NavClass = "selectedParent" if isCurrent("/1478.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("International Conflict Resolution Day") > 0 then NavText = "International Conflict Resolution Day" else NavText = "International Conflict Resolution Day" end if if isActive("/1207.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1218" NavClass = "selectedParent" if isCurrent("/1207.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Capital Region Board Growth Plan" end if if isActive("/1235.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1218" NavClass = "selectedParent" if isCurrent("/1235.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Emergency Preparedness Week Kick-Off" end if if isActive("/1234.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1218" NavClass = "selectedParent" if isCurrent("/1234.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "New Building and Fire Codes Launch" end if if isActive("/1233.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1218" NavClass = "selectedParent" if isCurrent("/1233.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Media Contacts") > 0 then NavText = "Media Contacts" else NavText = "Media Contacts" end if if isActive("/Media Contacts.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/Media Contacts.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
" NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("About Us") > 0 then NavText = "About Us" else NavText = "About The Ministry of Municipal Affairs" end if if isActive("/am_index.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/am_index.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_the_minister.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
• " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*********") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("The Minister") > 0 then NavText = "The Minister" else NavText = "The Minister" end if if isActive("/am_the_minister.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/am_the_minister.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Vision, Mission, and Goals") > 0 then NavText = "Vision, Mission, and Goals" else NavText = "Vision, Mission, Core Businesses and Goals " end if if isActive("/mc_mah_vision.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/mc_mah_vision.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Our Business Units") > 0 then NavText = "Our Business Units" else NavText = "Our Business Units" end if if isActive("/am_Our_Business_Units.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/am_Our_Business_Units.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/abc_municipal_government_board_intro.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*****") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Government Board") > 0 then NavText = "Municipal Government Board" else NavText = "Municipal Government Board" end if if isActive("/abc_municipal_government_board_intro.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",524" NavClass = "selectedParent" if isCurrent("/abc_municipal_government_board_intro.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/1499.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("**********") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Composite Assessment Review Board (CARB)") > 0 then NavText = "Composite Assessment Review Board (CARB)" else NavText = "Composite Assessment Review Boards (CARB)" end if if isActive("/1499.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/1499.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Activity") > 0 then NavText = "Board Activity" else NavText = "Board Activity" end if if isActive("/abc_board_activity.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_board_activity.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Members") > 0 then NavText = "Board Members" else NavText = "Board Member Biographies " end if if isActive("/abc_mgb_bios.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_bios.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Recruitment & Appointments") > 0 then NavText = "Board Recruitment & Appointments" else NavText = "Board Recruitment and Appointments" end if if isActive("/abc_MGB_board_appointments.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_MGB_board_appointments.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Mission, Vision, and Goals") > 0 then NavText = "Mission, Vision, and Goals" else NavText = "MGB Mission, Vision, and Goals" end if if isActive("/abc_mgb_mission.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_mission.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("MGB Annexations") > 0 then NavText = "MGB Annexations" else NavText = "MGB Annexations" end if if isActive("/abc_MGB_annexations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_MGB_annexations.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("MGB Board Order Search") > 0 then NavText = "MGB Board Order Search" else NavText = "MGB Board Order Search" end if if isActive("/abc_MGB_board_order_search.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_MGB_board_order_search.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/board_order_definitions.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Board Order Definitions") > 0 then NavText = "Board Order Definitions" else NavText = "Board Order Definitions" end if if isActive("/board_order_definitions.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1570" NavClass = "selectedParent" if isCurrent("/board_order_definitions.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NavCode(AppendToNav) = NavCode(AppendToNav) & "
        " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Current Key Decisions" end if if isActive("/abc_bulletin_board.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_bulletin_board.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms and Reports") > 0 then NavText = "Forms and Reports" else NavText = " Forms and Reports" end if if isActive("/abc_mgb_forms.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_forms.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("MGB Newsletters") > 0 then NavText = "MGB Newsletters" else NavText = "Municipal Government Board - Newsletters and Reports" end if if isActive("/abc_mgb_newsletters.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",598" NavClass = "selectedParent" if isCurrent("/abc_mgb_newsletters.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Public Library Services") > 0 then NavText = "Public Library Services" else NavText = "Public Library Services" end if if isActive("/am_public_library_services.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",524" NavClass = "selectedParent" if isCurrent("/am_public_library_services.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Alberta Emergency Management Agency") > 0 then NavText = "Alberta Emergency Management Agency" else NavText = "Alberta Emergency Management Agency" end if if isActive("/am_alberta_emergency_management_agency.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",524" NavClass = "selectedParent" if isCurrent("/am_alberta_emergency_management_agency.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Public Safety Division") > 0 then NavText = "Public Safety Division" else NavText = "Public Safety Division" end if if isActive("/am_public_safety_division.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",524" NavClass = "selectedParent" if isCurrent("/am_public_safety_division.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_safety_services.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Safety Services") > 0 then NavText = "Safety Services" else NavText = "Safety Services" end if if isActive("/am_safety_services.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",535" NavClass = "selectedParent" if isCurrent("/am_safety_services.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Local Government Services") > 0 then NavText = "Local Government Services" else NavText = "Local Government Services" end if if isActive("/am_local_government_services.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",524" NavClass = "selectedParent" if isCurrent("/am_local_government_services.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/am_assessment_services.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("***") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Assessment Services") > 0 then NavText = "Assessment Services" else NavText = "Assessment Services Branch " end if if isActive("/am_assessment_services.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",531" NavClass = "selectedParent" if isCurrent("/am_assessment_services.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Municipal Services") > 0 then NavText = "Municipal Services" else NavText = "Municipal Services" end if if isActive("/am_muncipal_services.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",531" NavClass = "selectedParent" if isCurrent("/am_muncipal_services.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Special Areas Board") > 0 then NavText = "Special Areas Board" else NavText = "Special Areas Board" end if if isActive("/am_special_areas_board.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",531" NavClass = "selectedParent" if isCurrent("/am_special_areas_board.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavCode(AppendToNav) = NavCode(AppendToNav) & "
      " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Acts & Regulations") > 0 then NavText = "Acts & Regulations" else NavText = "Acts and Regulations" end if if isActive("/am_acts_regulations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/am_acts_regulations.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Calendar of Events") > 0 then NavText = "Calendar of Events" else NavText = "Calendar of Events" end if if isActive("/am_calendar_of_events.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/am_calendar_of_events.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Workshops & Consultations") > 0 then NavText = "Workshops & Consultations" else NavText = "Workshops and Consultations" end if if isActive("/mc_workshops_and_consultations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/mc_workshops_and_consultations.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("/SpecialAreasRegulationsConsultation05-08.cfm") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then if len("*") > 0 then 'prevent empty ULs NavLevel = NavLevel + 1 'if "" = "1" then NavLevel = NavLevel + 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 'Show everything in the subnav component (for sitemap) NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Special Areas Disposition Regulation Consultation") > 0 then NavText = "Special Areas Disposition Regulation Consultation" else NavText = "Special Areas Disposition Regulation Consultation" end if if isActive("/SpecialAreasRegulationsConsultation05-08.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",931" NavClass = "selectedParent" if isCurrent("/SpecialAreasRegulationsConsultation05-08.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavCode(AppendToNav) = NavCode(AppendToNav) & "
    " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Employment Opportunities") > 0 then NavText = "Employment Opportunities" else NavText = "Employment Opportunities" end if if isActive("/employment_opportunities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/employment_opportunities.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Personal Information Banks") > 0 then NavText = "Personal Information Banks" else NavText = "Directory of Personal Information Banks" end if if isActive("/1190.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/1190.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Local Government Services Staff Directory") > 0 then NavText = "Local Government Services Staff Directory" else NavText = "Who Knows - Local Government Services Staff Directory" end if if isActive("/1143.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/1143.cfm",CurPageURL,CurMode) then NavClass = "selected" NewClassCurrent = "Current" NewClassActive = "" else if len("") > 0 then WTPath = WTPath & "/" & "" BCCode = BCCode & "> " & NavText & "" end if ShowSubNavs = true else NavClass = "unselected" ShowSubNavs = false end if if len("") > 0 then 'Node Has Children NewClassType = "Parent" else NewClassType = "" end if 'isParent - HAS Children but is NOT active or current 'isParentCurrent - HAS Children, IS current 'isParentActive - HAS Children, is NOT current, but IS in active path 'isCurrent - IS current, has NO children 'isActive - IS in active Path, has no children in menu, but BC goes past menu NavClass = "class=""" & NavClass & " is" & NewClassType & NewClassActive & NewClassCurrent & """" NavCode(AppendToNav) = NavCode(AppendToNav) & "
  • " & NavText & "" if ShowSubNavs or NavMode = "OPEN" then end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavCode(AppendToNav) = NavCode(AppendToNav) & "
  " NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
" NavCode(AppendToNav) = NavCode(AppendToNav) & "

" NavLevel = NavLevel - 1 'if "" = "1" then NavLevel = NavLevel - 1 AppendToNav = 2 If NavLevel = 1 then AppendToNav = 1 if NavMode = "OPEN" then AppendToNav = 2 end if ShowSecureSection = ShowSecureSection & "|BuildBridge|" 'check ShowSecureSection string variable for existance of section 'e.g. if inStr(ShowSecureSection, "|SectionName|") then ... %> <% if("Full") = "Home" and curPageId = "23" then %> <% elseif ("Full") = "Home" and curPageId <> "23" then %> <% else %> <% end if %>