IC "-//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 "672" = "23" then homeVar = "true" %> <% Dim curPageId : curPageId = "672" Dim curPageGUID : curPageGUID = "03F5FDC48AA7476BAFF8E06E5CB1C3AB" Dim curPageURL : curPageURL = "/672.cfm" Dim RedDotBCPath : RedDotBCPath = "/index.cfm|/Drivers_MotorVehicles.cfm|" 'response.write "BC:" & RedDotBCPath RedDotBCPath = RedDotBCPath & "/672.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("Consumer Information") > 0 then NavText = "Consumer Information" else NavText = "" end if if isActive("/Consumer_Info.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/Consumer_Info.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("/548.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("Consumer Alerts ") > 0 then NavText = "Consumer Alerts " else NavText = "Consumer Alerts " end if if isActive("/548.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/548.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("/2148.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("2013 Consumer Alerts") > 0 then NavText = "2013 Consumer Alerts" else NavText = "2013 Consumer Alerts" end if if isActive("/2148.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/2148.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 = "2012 Consumer Alerts" end if if isActive("/2073.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/2073.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 = "2011 Consumer Alerts" end if if isActive("/2072.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/2072.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 = "2010 Consumer Alerts" end if if isActive("/1761.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/1761.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 = "2009 Consumer Alerts" end if if isActive("/1679.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/1679.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 = "2008 Consumer Alerts" end if if isActive("/1678.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/1678.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 = "2007 Consumer Alerts" end if if isActive("/1677.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/1677.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 = "2006 Consumer Alerts" end if if isActive("/1680.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/1680.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 = "2005 Consumer Alerts" end if if isActive("/1676.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/1676.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 = "2004 Consumer Alerts" end if if isActive("/920.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/920.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 = "2003 Consumer Alerts" end if if isActive("/926.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1681" NavClass = "selectedParent" if isCurrent("/926.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("Charitable Organizations") > 0 then NavText = "Charitable Organizations" else NavText = "" end if if isActive("/Charitable_Organizations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/Charitable_Organizations.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("/90.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("Registering Charities") > 0 then NavText = "Registering Charities" else NavText = "Registering Charities" end if if isActive("/90.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/90.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("Responsibilities and Requirements") > 0 then NavText = "Responsibilities and Requirements" else NavText = "Responsibilities and Requirements" end if if isActive("/182.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/182.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("Search for a Business, Charity or Fundraiser") > 0 then NavText = "Search for a Business, Charity or Fundraiser" else NavText = "Search for a Business, Charity or Fundraiser" end if if isActive("/976.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/976.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("Consumer Tips - Charitable Organizations") > 0 then NavText = "Consumer Tips - Charitable Organizations" else NavText = "Consumer Tips - Charitable Organizations" end if if isActive("/1131.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/1131.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("Common Questions - Charities and Fundraisers") > 0 then NavText = "Common Questions - Charities and Fundraisers" else NavText = "Common Questions - Charities and Fundraisers" end if if isActive("/1778.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/1778.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 - Charities and Fund-raisers ") > 0 then NavText = "Forms - Charities and Fund-raisers " else NavText = "Forms - Charities and Fund-raisers" end if if isActive("/272.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/272.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("Legislation - Charities and Fundraisers") > 0 then NavText = "Legislation - Charities and Fundraisers" else NavText = "Legislation - Charities and Fundraisers" end if if isActive("/491.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/491.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("External Links - Charities and Fundraisers") > 0 then NavText = "External Links - Charities and Fundraisers" else NavText = "External Links - Charities and Fundraisers" end if if isActive("/329.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/329.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("Filing a Consumer Complaint") > 0 then NavText = "Filing a Consumer Complaint" else NavText = "Filing a Consumer Complaint" end if if isActive("/562.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/562.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("/1006.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 = "Online Consumer Complaints Form" end if if isActive("/1006.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",601" NavClass = "selectedParent" if isCurrent("/1006.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 = "Director's Orders" end if if isActive("/1287.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",601" NavClass = "selectedParent" if isCurrent("/1287.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 = "Undertakings" end if if isActive("/1288.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",601" NavClass = "selectedParent" if isCurrent("/1288.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("Consumer Tips") > 0 then NavText = "Consumer Tips" else NavText = "Consumer Tips" end if if isActive("/ConsumerTipsheets.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/ConsumerTipsheets.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("/Other Publications.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("Other publications") > 0 then NavText = "Other publications" else NavText = "Other Publications" end if if isActive("/Other Publications.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2057" NavClass = "selectedParent" if isCurrent("/Other 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) & "
      • " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("E-tips ") > 0 then NavText = "E-tips " else NavText = "Consumer e-tips" end if if isActive("/2056.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2057" NavClass = "selectedParent" if isCurrent("/2056.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("/2060.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 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("Free Resources and Materials") > 0 then NavText = "Free Resources and Materials" else NavText = "Free Resources and Materials for Consumers" end if if isActive("/1733.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/1733.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("Fraud Awareness") > 0 then NavText = "Fraud Awareness" else NavText = "Fraud Awareness" end if if isActive("/560.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/560.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("/1135.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("Changing Faces Presentation") > 0 then NavText = "Changing Faces Presentation" else NavText = "Changing Faces Presentation" end if if isActive("/1135.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1139" NavClass = "selectedParent" if isCurrent("/1135.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("Travelling") > 0 then NavText = "Travelling" else NavText = "Travelling" end if if isActive("/1137.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1139" NavClass = "selectedParent" if isCurrent("/1137.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("Reality Choices") > 0 then NavText = "Reality Choices" else NavText = "Reality Choices" end if if isActive("/561.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/561.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("Common Questions - Consumer Information") > 0 then NavText = "Common Questions - Consumer Information" else NavText = "Common Questions - Consumer Information" end if if isActive("/1786.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/1786.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("License and Register a Business") > 0 then NavText = "License and Register a Business" else NavText = "License and Register a Business" end if if isActive("/Consumers_Licenses.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/Consumers_Licenses.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("/1254.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 end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Forms - Consumer Information") > 0 then NavText = "Forms - Consumer Information" else NavText = "Forms - Consumer Information" end if if isActive("/564.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/564.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("/835.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 = "Forms - Consumer Licensing and Registration" end if if isActive("/835.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1764" NavClass = "selectedParent" if isCurrent("/835.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("Search for a Business, Charity or Fundraiser") > 0 then NavText = "Search for a Business, Charity or Fundraiser" else NavText = "Search for a Business, Charity or Fundraiser" end if if isActive("/976.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/976.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("Payday Loan Calculator") > 0 then NavText = "Payday Loan Calculator" else NavText = "Payday Loan Calculator" end if if isActive("/1608.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/1608.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("Utilities Consumer Advocate") > 0 then NavText = "Utilities Consumer Advocate" else NavText = "" end if if isActive("/1755.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/1755.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("Legislation - Consumer Information") > 0 then NavText = "Legislation - Consumer Information" else NavText = "Legislation - Consumer Information" end if if isActive("/563.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/563.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 Links - Consumer Information") > 0 then NavText = "External Links - Consumer Information" else NavText = "External Links - Consumer Information" end if if isActive("/566.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",92" NavClass = "selectedParent" if isCurrent("/566.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("Businesses/ Charities") > 0 then NavText = "Businesses/ Charities" else NavText = "" end if if isActive("/Businesses_Charities.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/Businesses_Charities.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("/bizpal.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("BizPaL") > 0 then NavText = "BizPaL" else NavText = "" end if if isActive("/bizpal.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",898" NavClass = "selectedParent" if isCurrent("/bizpal.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("Charitable Organizations") > 0 then NavText = "Charitable Organizations" else NavText = "" end if if isActive("/Charitable_Organizations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",898" NavClass = "selectedParent" if isCurrent("/Charitable_Organizations.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("/90.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("Registering Charities") > 0 then NavText = "Registering Charities" else NavText = "Registering Charities" end if if isActive("/90.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/90.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("Responsibilities and Requirements") > 0 then NavText = "Responsibilities and Requirements" else NavText = "Responsibilities and Requirements" end if if isActive("/182.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/182.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("Search for a Business, Charity or Fundraiser") > 0 then NavText = "Search for a Business, Charity or Fundraiser" else NavText = "Search for a Business, Charity or Fundraiser" end if if isActive("/976.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/976.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("Consumer Tips - Charitable Organizations") > 0 then NavText = "Consumer Tips - Charitable Organizations" else NavText = "Consumer Tips - Charitable Organizations" end if if isActive("/1131.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/1131.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("Common Questions - Charities and Fundraisers") > 0 then NavText = "Common Questions - Charities and Fundraisers" else NavText = "Common Questions - Charities and Fundraisers" end if if isActive("/1778.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/1778.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 - Charities and Fund-raisers ") > 0 then NavText = "Forms - Charities and Fund-raisers " else NavText = "Forms - Charities and Fund-raisers" end if if isActive("/272.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/272.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("Legislation - Charities and Fundraisers") > 0 then NavText = "Legislation - Charities and Fundraisers" else NavText = "Legislation - Charities and Fundraisers" end if if isActive("/491.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/491.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("External Links - Charities and Fundraisers") > 0 then NavText = "External Links - Charities and Fundraisers" else NavText = "External Links - Charities and Fundraisers" end if if isActive("/329.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/329.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("") > 0 then NavText = "" else NavText = "Cooperatives - Overview" end if if isActive("/1200.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",898" NavClass = "selectedParent" if isCurrent("/1200.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("Corporate Registry") > 0 then NavText = "Corporate Registry" else NavText = "Corporate Registry Overview" end if if isActive("/Corporate_Registry.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",898" NavClass = "selectedParent" if isCurrent("/Corporate_Registry.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("/674.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("How to Incorporate/Register a Business or Non-Profit Body") > 0 then NavText = "How to Incorporate/Register a Business or Non-Profit Body" else NavText = "How to Incorporate/Register a Business or Non-Profit Body" end if if isActive("/674.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/674.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("/730.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("Partnerships and Trade Names (Business Names)") > 0 then NavText = "Partnerships and Trade Names (Business Names)" else NavText = "Partnerships and Trade Names (Business Names)" end if if isActive("/730.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/730.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("Alberta Corporations") > 0 then NavText = "Alberta Corporations" else NavText = "Alberta Corporations" end if if isActive("/712.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/712.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 = "Cooperatives - Overview" end if if isActive("/1200.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/1200.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("Extra-Provincial Corporations") > 0 then NavText = "Extra-Provincial Corporations" else NavText = "Extra-Provincial Corporations" end if if isActive("/713.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/713.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("Non-Profit Companies") > 0 then NavText = "Non-Profit Companies" else NavText = "Non-Profit Companies" end if if isActive("/714.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/714.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("Religious Societies") > 0 then NavText = "Religious Societies" else NavText = "Religious Societies" end if if isActive("/715.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/715.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("Societies") > 0 then NavText = "Societies" else NavText = "Societies" end if if isActive("/716.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/716.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("Dissolve or Revive a Legal Entity") > 0 then NavText = "Dissolve or Revive a Legal Entity" else NavText = "Dissolve or Revive a Legal Entity" end if if isActive("/707.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/707.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("/708.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("Dissolve a Legal Entity") > 0 then NavText = "Dissolve a Legal Entity" else NavText = "Dissolve a Legal Entity" end if if isActive("/708.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",709" NavClass = "selectedParent" if isCurrent("/708.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("Revive a Legal Entity") > 0 then NavText = "Revive a Legal Entity" else NavText = "Revive a Legal Entity" end if if isActive("/710.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",709" NavClass = "selectedParent" if isCurrent("/710.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("Searches") > 0 then NavText = "Searches" else NavText = "Searches" end if if isActive("/705.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/705.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("/731.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("Corporate Registry Searches") > 0 then NavText = "Corporate Registry Searches" else NavText = "Corporate Registry Searches" end if if isActive("/731.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",735" NavClass = "selectedParent" if isCurrent("/731.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("Corporate and Business Name Reports (NUANS)") > 0 then NavText = "Corporate and Business Name Reports (NUANS)" else NavText = "Corporate and Business Name Reports (NUANS)" end if if isActive("/732.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",735" NavClass = "selectedParent" if isCurrent("/732.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("New West Partnership Trade Agreement (NWPTA)") > 0 then NavText = "New West Partnership Trade Agreement (NWPTA)" else NavText = "New West Partnership Trade Agreement (NWPTA)" end if if isActive("/1535.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/1535.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("/1532.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("NWPTA - Frequently Asked Questions") > 0 then NavText = "NWPTA - Frequently Asked Questions" else NavText = "NWPTA - Frequently Asked Questions" end if if isActive("/1532.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2107" NavClass = "selectedParent" if isCurrent("/1532.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("Obligations and Responsibilities After Incorporation or Registration") > 0 then NavText = "Obligations and Responsibilities After Incorporation or Registration" else NavText = "Obligations and Responsibilities After Incorporation or Registration" end if if isActive("/718.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/718.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 Providers ") > 0 then NavText = "Service Providers " else NavText = "Service Providers" end if if isActive("/719.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/719.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("/721.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("Level 1 Services") > 0 then NavText = "Level 1 Services" else NavText = "Level 1 Services" end if if isActive("/721.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",724" NavClass = "selectedParent" if isCurrent("/721.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("Level 2 Services") > 0 then NavText = "Level 2 Services" else NavText = "Level 2 Services" end if if isActive("/722.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",724" NavClass = "selectedParent" if isCurrent("/722.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("Level 3 Services") > 0 then NavText = "Level 3 Services" else NavText = "Level 3 Services" end if if isActive("/723.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",724" NavClass = "selectedParent" if isCurrent("/723.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("Common Questions - Corporate Registry") > 0 then NavText = "Common Questions - Corporate Registry" else NavText = "Common Questions - Corporate Registry" end if if isActive("/820.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/820.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 - Corporate Registry") > 0 then NavText = "Forms - Corporate Registry" else NavText = "Forms - Corporations and Other Entities" end if if isActive("/840.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/840.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("/841.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("Forms - Alberta Corporations") > 0 then NavText = "Forms - Alberta Corporations" else NavText = "Forms - Alberta Corporations" end if if isActive("/841.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/841.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 - Cooperatives") > 0 then NavText = "Forms - Cooperatives" else NavText = "Forms - Cooperatives" end if if isActive("/930.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/930.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 = "Forms - Extra-provincial Registrations" end if if isActive("/842.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/842.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 - Non-profit Companies") > 0 then NavText = "Forms - Non-profit Companies" else NavText = "Forms - Non-profit Companies" end if if isActive("/848.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/848.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 - Religious Societies") > 0 then NavText = "Forms - Religious Societies" else NavText = "Forms - Religious Societies" end if if isActive("/2066.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/2066.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 - Societies") > 0 then NavText = "Forms - Societies" else NavText = "Forms - Societies" end if if isActive("/847.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/847.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 - Trade Names & Partnerships (Business Names)") > 0 then NavText = "Forms - Trade Names & Partnerships (Business Names)" else NavText = " Forms - Trade Names & Partnerships (Business Names)" end if if isActive("/846.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/846.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("Government Buying/Selling") > 0 then NavText = "Government Buying/Selling" else NavText = "" end if if isActive("/Govt_BuySell.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",898" NavClass = "selectedParent" if isCurrent("/Govt_BuySell.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("/581.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("Buying From Government - Surplus Sales") > 0 then NavText = "Buying From Government - Surplus Sales" else NavText = "Buying From Government - Surplus Sales" end if if isActive("/581.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/581.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("/843.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("Cash and Carry Sales") > 0 then NavText = "Cash and Carry Sales" else NavText = "Cash and Carry Sales" end if if isActive("/843.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/843.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 Auctions") > 0 then NavText = "Public Auctions" else NavText = "Public Auctions" end if if isActive("/725.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/725.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 Tenders") > 0 then NavText = "Public Tenders" else NavText = "Public Tenders" end if if isActive("/726.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/726.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("General Procurement Policies") > 0 then NavText = "General Procurement Policies" else NavText = "General Procurement Policies" end if if isActive("/733.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/733.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("/736.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("Access to Opportunities") > 0 then NavText = "Access to Opportunities" else NavText = "Access to Opportunities" end if if isActive("/736.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/736.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("Contract Awards") > 0 then NavText = "Contract Awards" else NavText = "Contract Awards" end if if isActive("/740.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/740.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("Delivery of Goods") > 0 then NavText = "Delivery of Goods" else NavText = "Delivery of Goods" end if if isActive("/741.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/741.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("Preparing Responses") > 0 then NavText = "Preparing Responses" else NavText = "Preparing Responses" end if if isActive("/738.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/738.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("Submitting Responses") > 0 then NavText = "Submitting Responses" else NavText = "Submitting Responses" end if if isActive("/739.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/739.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("Procurement Services") > 0 then NavText = "Procurement Services" else NavText = "Procurement Services" end if if isActive("/1097.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/1097.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("Selling to Government") > 0 then NavText = "Selling to Government" else NavText = "Selling to Government" end if if isActive("/582.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/582.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("/1669.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("Agreement on Government Procurement") > 0 then NavText = "Agreement on Government Procurement" else NavText = "Agreement on Government Procurement" end if if isActive("/1669.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/1669.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("Agreement on Internal Trade") > 0 then NavText = "Agreement on Internal Trade" else NavText = "Agreement on Internal Trade" end if if isActive("/844.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/844.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("Procurement and Contracting Templates") > 0 then NavText = "Procurement and Contracting Templates" else NavText = "Procurement and Contracting Templates" end if if isActive("/729.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/729.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("Electronic Tendering System (APC)") > 0 then NavText = "Electronic Tendering System (APC)" else NavText = "Electronic Tendering System (APC)" end if if isActive("/849.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/849.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("Government Seminars") > 0 then NavText = "Government Seminars" else NavText = "Government Seminars" end if if isActive("/697.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/697.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") > 0 then NavText = "Policies" else NavText = "Policies" end if if isActive("/696.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/696.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("Procurement") > 0 then NavText = "Procurement" else NavText = "Procurement" end if if isActive("/698.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/698.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("New West Partnership Trade Agreement (NWPTA) and Trade, Investment and Labour Mobility Agreement (TILMA)") > 0 then NavText = "New West Partnership Trade Agreement (NWPTA) and Trade, Investment and Labour Mobility Agreement (TILMA)" else NavText = "New West Partnership Trade Agreement (NWPTA) and Trade, Investment and Labour Mobility Agreement (TILMA)" end if if isActive("/1066.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/1066.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("Service Centres") > 0 then NavText = "Service Centres" else NavText = "Service Centres" end if if isActive("/675.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/675.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("License and Register a Business") > 0 then NavText = "License and Register a Business" else NavText = "License and Register a Business" end if if isActive("/Consumers_Licenses.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",898" NavClass = "selectedParent" if isCurrent("/Consumers_Licenses.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("/1254.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 end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
    • " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Legislation - Businesses") > 0 then NavText = "Legislation - Businesses" else NavText = "Legislation - Businesses" end if if isActive("/628.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",898" NavClass = "selectedParent" if isCurrent("/628.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("Landlords/ Tenants") > 0 then NavText = "Landlords/ Tenants" else NavText = "" end if if isActive("/Landlords_Tenants.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/Landlords_Tenants.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("/562.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("Filing a Consumer Complaint") > 0 then NavText = "Filing a Consumer Complaint" else NavText = "Filing a Consumer Complaint" end if if isActive("/562.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/562.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("/1006.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 = "Online Consumer Complaints Form" end if if isActive("/1006.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",601" NavClass = "selectedParent" if isCurrent("/1006.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 = "Director's Orders" end if if isActive("/1287.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",601" NavClass = "selectedParent" if isCurrent("/1287.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 = "Undertakings" end if if isActive("/1288.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",601" NavClass = "selectedParent" if isCurrent("/1288.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("Residential Tenancy Dispute Resolution Service") > 0 then NavText = "Residential Tenancy Dispute Resolution Service" else NavText = "" end if if isActive("/869.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/869.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("Security Deposits") > 0 then NavText = "Security Deposits" else NavText = "Security Deposits" end if if isActive("/620.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/620.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("/1033.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 = "Interest Rates on Security Deposits" end if if isActive("/1033.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1199" NavClass = "selectedParent" if isCurrent("/1033.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("Security Deposit Interest Calculator") > 0 then NavText = "Security Deposit Interest Calculator" else NavText = "" end if if isActive("/978.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1199" NavClass = "selectedParent" if isCurrent("/978.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("Consumer Tips - Landlords and Tenants") > 0 then NavText = "Consumer Tips - Landlords and Tenants" else NavText = "Consumer Tips - Landlords and Tenants" end if if isActive("/1132.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/1132.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("RTA Handbook and Quick Reference Guide") > 0 then NavText = "RTA Handbook and Quick Reference Guide" else NavText = "RTA Handbook and Quick Reference Guide" end if if isActive("/621.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/621.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("Common Questions - Landlords and Tenants") > 0 then NavText = "Common Questions - Landlords and Tenants" else NavText = "Common Questions - Landlords and Tenants" end if if isActive("/618.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/618.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 - Landlords and Tenants") > 0 then NavText = "Forms - Landlords and Tenants" else NavText = "Forms - Landlords and Tenants" end if if isActive("/623.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/623.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("Legislation - Landlords and Tenants") > 0 then NavText = "Legislation - Landlords and Tenants" else NavText = "Legislation - Landlords and Tenants" end if if isActive("/624.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/624.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 Links - Landlords and Tenants") > 0 then NavText = " External Links - Landlords and Tenants" else NavText = " External Links - Landlords and Tenants" end if if isActive("/625.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",63" NavClass = "selectedParent" if isCurrent("/625.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("Registries") > 0 then NavText = "Registries" else NavText = "" end if if isActive("/Registries.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/Registries.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("/Charitable_Organizations.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("Charitable Organizations") > 0 then NavText = "Charitable Organizations" else NavText = "" end if if isActive("/Charitable_Organizations.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",671" NavClass = "selectedParent" if isCurrent("/Charitable_Organizations.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("/90.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("Registering Charities") > 0 then NavText = "Registering Charities" else NavText = "Registering Charities" end if if isActive("/90.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/90.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("Responsibilities and Requirements") > 0 then NavText = "Responsibilities and Requirements" else NavText = "Responsibilities and Requirements" end if if isActive("/182.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/182.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("Search for a Business, Charity or Fundraiser") > 0 then NavText = "Search for a Business, Charity or Fundraiser" else NavText = "Search for a Business, Charity or Fundraiser" end if if isActive("/976.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/976.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("Consumer Tips - Charitable Organizations") > 0 then NavText = "Consumer Tips - Charitable Organizations" else NavText = "Consumer Tips - Charitable Organizations" end if if isActive("/1131.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/1131.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("Common Questions - Charities and Fundraisers") > 0 then NavText = "Common Questions - Charities and Fundraisers" else NavText = "Common Questions - Charities and Fundraisers" end if if isActive("/1778.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/1778.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 - Charities and Fund-raisers ") > 0 then NavText = "Forms - Charities and Fund-raisers " else NavText = "Forms - Charities and Fund-raisers" end if if isActive("/272.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/272.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("Legislation - Charities and Fundraisers") > 0 then NavText = "Legislation - Charities and Fundraisers" else NavText = "Legislation - Charities and Fundraisers" end if if isActive("/491.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/491.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("External Links - Charities and Fundraisers") > 0 then NavText = "External Links - Charities and Fundraisers" else NavText = "External Links - Charities and Fundraisers" end if if isActive("/329.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",103" NavClass = "selectedParent" if isCurrent("/329.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("Corporate Registry") > 0 then NavText = "Corporate Registry" else NavText = "Corporate Registry Overview" end if if isActive("/Corporate_Registry.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",671" NavClass = "selectedParent" if isCurrent("/Corporate_Registry.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("/674.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("How to Incorporate/Register a Business or Non-Profit Body") > 0 then NavText = "How to Incorporate/Register a Business or Non-Profit Body" else NavText = "How to Incorporate/Register a Business or Non-Profit Body" end if if isActive("/674.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/674.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("/730.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("Partnerships and Trade Names (Business Names)") > 0 then NavText = "Partnerships and Trade Names (Business Names)" else NavText = "Partnerships and Trade Names (Business Names)" end if if isActive("/730.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/730.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("Alberta Corporations") > 0 then NavText = "Alberta Corporations" else NavText = "Alberta Corporations" end if if isActive("/712.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/712.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 = "Cooperatives - Overview" end if if isActive("/1200.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/1200.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("Extra-Provincial Corporations") > 0 then NavText = "Extra-Provincial Corporations" else NavText = "Extra-Provincial Corporations" end if if isActive("/713.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/713.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("Non-Profit Companies") > 0 then NavText = "Non-Profit Companies" else NavText = "Non-Profit Companies" end if if isActive("/714.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/714.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("Religious Societies") > 0 then NavText = "Religious Societies" else NavText = "Religious Societies" end if if isActive("/715.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/715.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("Societies") > 0 then NavText = "Societies" else NavText = "Societies" end if if isActive("/716.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",717" NavClass = "selectedParent" if isCurrent("/716.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("Dissolve or Revive a Legal Entity") > 0 then NavText = "Dissolve or Revive a Legal Entity" else NavText = "Dissolve or Revive a Legal Entity" end if if isActive("/707.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/707.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("/708.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("Dissolve a Legal Entity") > 0 then NavText = "Dissolve a Legal Entity" else NavText = "Dissolve a Legal Entity" end if if isActive("/708.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",709" NavClass = "selectedParent" if isCurrent("/708.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("Revive a Legal Entity") > 0 then NavText = "Revive a Legal Entity" else NavText = "Revive a Legal Entity" end if if isActive("/710.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",709" NavClass = "selectedParent" if isCurrent("/710.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("Searches") > 0 then NavText = "Searches" else NavText = "Searches" end if if isActive("/705.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/705.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("/731.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("Corporate Registry Searches") > 0 then NavText = "Corporate Registry Searches" else NavText = "Corporate Registry Searches" end if if isActive("/731.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",735" NavClass = "selectedParent" if isCurrent("/731.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("Corporate and Business Name Reports (NUANS)") > 0 then NavText = "Corporate and Business Name Reports (NUANS)" else NavText = "Corporate and Business Name Reports (NUANS)" end if if isActive("/732.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",735" NavClass = "selectedParent" if isCurrent("/732.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("New West Partnership Trade Agreement (NWPTA)") > 0 then NavText = "New West Partnership Trade Agreement (NWPTA)" else NavText = "New West Partnership Trade Agreement (NWPTA)" end if if isActive("/1535.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/1535.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("/1532.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("NWPTA - Frequently Asked Questions") > 0 then NavText = "NWPTA - Frequently Asked Questions" else NavText = "NWPTA - Frequently Asked Questions" end if if isActive("/1532.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2107" NavClass = "selectedParent" if isCurrent("/1532.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("Obligations and Responsibilities After Incorporation or Registration") > 0 then NavText = "Obligations and Responsibilities After Incorporation or Registration" else NavText = "Obligations and Responsibilities After Incorporation or Registration" end if if isActive("/718.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/718.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 Providers ") > 0 then NavText = "Service Providers " else NavText = "Service Providers" end if if isActive("/719.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/719.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("/721.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("Level 1 Services") > 0 then NavText = "Level 1 Services" else NavText = "Level 1 Services" end if if isActive("/721.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",724" NavClass = "selectedParent" if isCurrent("/721.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("Level 2 Services") > 0 then NavText = "Level 2 Services" else NavText = "Level 2 Services" end if if isActive("/722.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",724" NavClass = "selectedParent" if isCurrent("/722.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("Level 3 Services") > 0 then NavText = "Level 3 Services" else NavText = "Level 3 Services" end if if isActive("/723.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",724" NavClass = "selectedParent" if isCurrent("/723.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("Common Questions - Corporate Registry") > 0 then NavText = "Common Questions - Corporate Registry" else NavText = "Common Questions - Corporate Registry" end if if isActive("/820.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/820.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 - Corporate Registry") > 0 then NavText = "Forms - Corporate Registry" else NavText = "Forms - Corporations and Other Entities" end if if isActive("/840.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",706" NavClass = "selectedParent" if isCurrent("/840.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("/841.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("Forms - Alberta Corporations") > 0 then NavText = "Forms - Alberta Corporations" else NavText = "Forms - Alberta Corporations" end if if isActive("/841.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/841.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 - Cooperatives") > 0 then NavText = "Forms - Cooperatives" else NavText = "Forms - Cooperatives" end if if isActive("/930.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/930.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 = "Forms - Extra-provincial Registrations" end if if isActive("/842.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/842.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 - Non-profit Companies") > 0 then NavText = "Forms - Non-profit Companies" else NavText = "Forms - Non-profit Companies" end if if isActive("/848.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/848.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 - Religious Societies") > 0 then NavText = "Forms - Religious Societies" else NavText = "Forms - Religious Societies" end if if isActive("/2066.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/2066.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 - Societies") > 0 then NavText = "Forms - Societies" else NavText = "Forms - Societies" end if if isActive("/847.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/847.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 - Trade Names & Partnerships (Business Names)") > 0 then NavText = "Forms - Trade Names & Partnerships (Business Names)" else NavText = " Forms - Trade Names & Partnerships (Business Names)" end if if isActive("/846.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",932" NavClass = "selectedParent" if isCurrent("/846.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("Drivers/ Vehicles") > 0 then NavText = "Drivers/ Vehicles" else NavText = "" end if if isActive("/Drivers_MotorVehicles.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",671" NavClass = "selectedParent" if isCurrent("/Drivers_MotorVehicles.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("/556.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("Access to Motor Vehicle Information") > 0 then NavText = "Access to Motor Vehicle Information" else NavText = "Access to Motor Vehicle Information" end if if isActive("/556.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/556.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("Change of Name, Address or Sex") > 0 then NavText = "Change of Name, Address or Sex" else NavText = "Change of Name, Address or Sex" end if if isActive("/1692.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1692.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("Driver's Abstracts") > 0 then NavText = "Driver's Abstracts" else NavText = "Driver's Abstracts" end if if isActive("/1229.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1229.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("Driver's Licence") > 0 then NavText = "Driver's Licence" else NavText = "Driver's Licence" end if if isActive("/Drivers_Licence.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/Drivers_Licence.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("/1742.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("Common Driver's Licence Services") > 0 then NavText = "Common Driver's Licence Services" else NavText = "Common Driver's Licence Services" end if if isActive("/1742.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1742.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("Visitors, Students and Temporary Foreign Workers") > 0 then NavText = "Visitors, Students and Temporary Foreign Workers" else NavText = "Visitors, Students and Temporary Foreign Workers in Alberta" end if if isActive("/1741.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1741.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("Enhanced Security") > 0 then NavText = "Enhanced Security" else NavText = "Enhanced Security" end if if isActive("/1301.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1301.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("New Canadian and Alberta Residents") > 0 then NavText = "New Canadian and Alberta Residents" else NavText = "" end if if isActive("/1671.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1671.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("Identification and Residency Requirements") > 0 then NavText = "Identification and Residency Requirements" else NavText = "Identification and Residency Requirements" end if if isActive("/1305.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1305.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("Identification Card") > 0 then NavText = "Identification Card" else NavText = "Identification Card" end if if isActive("/1048.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1048.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("Online Services - Fine Payments and Registration Renewals") > 0 then NavText = "Online Services - Fine Payments and Registration Renewals" else NavText = "Online Services" end if if isActive("/2096.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/2096.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("Parking Placards for Persons with Disabilities") > 0 then NavText = "Parking Placards for Persons with Disabilities" else NavText = "" end if if isActive("/2070.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/2070.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("Serving Court Documents") > 0 then NavText = "Serving Court Documents" else NavText = "Release of Motor Vehicle Information for Service of Documents" end if if isActive("/1806.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1806.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("Travel Documents and Identification") > 0 then NavText = "Travel Documents and Identification" else NavText = "Travel Documents and Identification" end if if isActive("/1302.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1302.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("Vehicle Licence Plate and Registration") > 0 then NavText = "Vehicle Licence Plate and Registration" else NavText = "Vehicle Licence Plate and Registration" end if if isActive("/572.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/572.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("/1763.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("Buying a Used Vehicle") > 0 then NavText = "Buying a Used Vehicle" else NavText = "Buying a Used Vehicle" end if if isActive("/1763.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1763.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("Common Vehicle Registration Services") > 0 then NavText = "Common Vehicle Registration Services" else NavText = "Common Vehicle Registration Services" end if if isActive("/1743.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1743.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("Registering an Imported Vehicle From Outside Canada") > 0 then NavText = "Registering an Imported Vehicle From Outside Canada" else NavText = "Registering an Imported Vehicle From Outside Canada" end if if isActive("/1493.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" 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("Registering a Vehicle or Trailer") > 0 then NavText = "Registering a Vehicle or Trailer" else NavText = "Registering a Vehicle or Trailer" end if if isActive("/577.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/577.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("Registration Expiry Month Chart") > 0 then NavText = "Registration Expiry Month Chart" else NavText = "Registration Expiry Month Chart" end if if isActive("/1088.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1088.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("Vehicle Plate Class Quick Reference") > 0 then NavText = "Vehicle Plate Class Quick Reference" else NavText = "Vehicle Plate Class Quick Reference" end if if isActive("/1087.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1087.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("Common Questions - Drivers and Motor Vehicles") > 0 then NavText = "Common Questions - Drivers and Motor Vehicles" else NavText = "Common Questions - Drivers and Motor Vehicles" end if if isActive("/672.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/672.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, Legislation and Links - Drivers and Motor Vehicles") > 0 then NavText = "Forms, Legislation and Links - Drivers and Motor Vehicles" else NavText = "Forms, Legislation and Links - Drivers and Motor Vehicles" end if if isActive("/596.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/596.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("Land Titles") > 0 then NavText = "Land Titles" else NavText = "" end if if isActive("/LandTitles.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",671" NavClass = "selectedParent" if isCurrent("/LandTitles.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("/1046.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("ALTA 2") > 0 then NavText = "ALTA 2" else NavText = "ALTA 2" end if if isActive("/1046.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/1046.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("Document Registration") > 0 then NavText = "Document Registration" else NavText = "Document Registration" end if if isActive("/594.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/594.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("Foreign Ownership of Land") > 0 then NavText = "Foreign Ownership of Land" else NavText = "Foreign Ownership of Land" end if if isActive("/586.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/586.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("/853.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("Applying for an Exemption") > 0 then NavText = "Applying for an Exemption" else NavText = "Applying for an Exemption" end if if isActive("/853.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",832" NavClass = "selectedParent" if isCurrent("/853.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("Legislative Authority") > 0 then NavText = "Legislative Authority" else NavText = "Legislative Authority" end if if isActive("/833.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",832" NavClass = "selectedParent" if isCurrent("/833.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("Office Location and Contact Information") > 0 then NavText = "Office Location and Contact Information" else NavText = "Office Location and Contact Information" end if if isActive("/856.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",832" NavClass = "selectedParent" if isCurrent("/856.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("Land Titles Notices") > 0 then NavText = "Land Titles Notices" else NavText = "Land Titles Notices" end if if isActive("/587.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/587.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("Name Search") > 0 then NavText = "Name Search" else NavText = "Name Search" end if if isActive("/912.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/912.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("Office Locations") > 0 then NavText = "Office Locations" else NavText = "Office Locations" end if if isActive("/591.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/591.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("Procedures Manual") > 0 then NavText = "Procedures Manual" else NavText = "Procedures Manual" end if if isActive("/595.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/595.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("Spatial Information System (SPIN)") > 0 then NavText = "Spatial Information System (SPIN)" else NavText = "Spatial Information System (SPIN) " end if if isActive("/588.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/588.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("Surface and Mineral Rights") > 0 then NavText = "Surface and Mineral Rights" else NavText = "Surface and Mineral Rights" end if if isActive("/589.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/589.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("Surveyor's Information") > 0 then NavText = "Surveyor's Information" else NavText = "Surveyor's Information" end if if isActive("/590.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/590.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("/1075.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("Digital Submission of Survey Plans for Registration") > 0 then NavText = "Digital Submission of Survey Plans for Registration" else NavText = "Digital Submission of Survey Plans for Registration" end if if isActive("/1075.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1047" NavClass = "selectedParent" if isCurrent("/1075.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 = "Plan Registration" end if if isActive("/852.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1047" NavClass = "selectedParent" if isCurrent("/852.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("Titles, Documents and Plans") > 0 then NavText = "Titles, Documents and Plans" else NavText = "Titles, Documents and Plans" end if if isActive("/907.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/907.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("/908.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("Current Title") > 0 then NavText = "Current Title" else NavText = "Current Title" end if if isActive("/908.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/908.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("Document Copies") > 0 then NavText = "Document Copies" else NavText = "Document Copies" end if if isActive("/915.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/915.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("Historical Title") > 0 then NavText = "Historical Title" else NavText = "Historical Title" end if if isActive("/914.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/914.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("Plan Copies") > 0 then NavText = "Plan Copies" else NavText = "Plan Copies" end if if isActive("/917.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/917.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("Common Questions - Land Titles") > 0 then NavText = "Common Questions - Land Titles" else NavText = "Common Questions - Land Titles" end if if isActive("/592.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/592.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 - Land Titles") > 0 then NavText = "Forms - Land Titles" else NavText = "Forms - Land Titles" end if if isActive("/850.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/850.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("Legislation - Land Titles") > 0 then NavText = "Legislation - Land Titles" else NavText = "Legislation - Land Titles" end if if isActive("/593.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/593.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("Personal Property Registry") > 0 then NavText = "Personal Property Registry" else NavText = "" end if if isActive("/8.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",671" NavClass = "selectedParent" if isCurrent("/8.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("/553.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("Registrations") > 0 then NavText = "Registrations" else NavText = "Registrations" end if if isActive("/553.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",128" NavClass = "selectedParent" if isCurrent("/553.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("Searches") > 0 then NavText = "Searches" else NavText = "Searches" end if if isActive("/554.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",128" NavClass = "selectedParent" if isCurrent("/554.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("Common Questions - Personal Property Registry") > 0 then NavText = "Common Questions - Personal Property Registry" else NavText = "Common Questions - Personal Property Registry" end if if isActive("/555.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",128" NavClass = "selectedParent" if isCurrent("/555.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 - Personal Property Registry") > 0 then NavText = "Forms - Personal Property Registry" else NavText = "Forms - Personal Property Registry" end if if isActive("/WP_PersonalPropertyForms.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",128" NavClass = "selectedParent" if isCurrent("/WP_PersonalPropertyForms.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("Registry Agents") > 0 then NavText = "Registry Agents" else NavText = "Registry Agents" end if if isActive("/1641.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",671" NavClass = "selectedParent" if isCurrent("/1641.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("/1644.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 = "Registry Agent Products and Services" end if if isActive("/1644.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1642" NavClass = "selectedParent" if isCurrent("/1644.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 = "Becoming a Registry Agent" end if if isActive("/1643.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1642" NavClass = "selectedParent" if isCurrent("/1643.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("Vital Statistics") > 0 then NavText = "Vital Statistics" else NavText = "" end if if isActive("/VitalStatistics.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",671" NavClass = "selectedParent" if isCurrent("/VitalStatistics.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("/540.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("Birth Information") > 0 then NavText = "Birth Information" else NavText = "Birth Information" end if if isActive("/540.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/540.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("/776.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("Adoption Information") > 0 then NavText = "Adoption Information" else NavText = "Adoption Information" end if if isActive("/776.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/776.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("Choosing a Last Name for Your Child") > 0 then NavText = "Choosing a Last Name for Your Child" else NavText = "Choosing a Last Name for Your Child" end if if isActive("/778.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/778.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 = "Delayed Registration of Birth" end if if isActive("/1144.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/1144.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/777.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("Ordering a Birth Document") > 0 then NavText = "Ordering a Birth Document" else NavText = "Ordering a Birth Document " end if if isActive("/785.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/785.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("/1181.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 end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Registering a Birth") > 0 then NavText = "Registering a Birth" else NavText = "Registering a Birth" end if if isActive("/779.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/779.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("Home Birth Information for Registering a Birth") > 0 then NavText = "Home Birth Information for Registering a Birth" else NavText = "Home Birth Information for Registering a Birth" end if if isActive("/2115.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/2115.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("Death Information") > 0 then NavText = "Death Information" else NavText = "Deaths" end if if isActive("/657.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/657.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("/1145.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 = "Burial Permits" end if if isActive("/1145.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1145.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 = "Delayed Registration of Death " end if if isActive("/1820.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1820.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 = "Disinter - Reinter Permit" end if if isActive("/1146.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1146.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/777.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("Ordering a Death Document ") > 0 then NavText = "Ordering a Death Document " else NavText = "Ordering a Death Document " end if if isActive("/1147.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" 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 end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
        • " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Registration of Death" end if if isActive("/1148.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1148.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("Legal Change of Name Information") > 0 then NavText = "Legal Change of Name Information" else NavText = "Legal Change of Name Information" end if if isActive("/1490.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" 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("/798.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("Ordering a Legal Change of Name Document") > 0 then NavText = "Ordering a Legal Change of Name Document" else NavText = "Ordering a Legal Change of Name Document" end if if isActive("/798.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1824" NavClass = "selectedParent" if isCurrent("/798.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("Marriage Information") > 0 then NavText = "Marriage Information" else NavText = "Marriages" end if if isActive("/542.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/542.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("/1158.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("Ordering a Marriage Document") > 0 then NavText = "Ordering a Marriage Document" else NavText = "Ordering a Marriage Document" end if if isActive("/1158.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1158.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("/2067.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 = "Available Marriage Documents" end if if isActive("/2067.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2155" NavClass = "selectedParent" if isCurrent("/2067.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 = "Eligibility for Marriage Documents" end if if isActive("/2132.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2155" NavClass = "selectedParent" if isCurrent("/2132.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("Identification Requirements") > 0 then NavText = "Identification Requirements" else NavText = "Identification Requirements" end if if isActive("/2135.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2155" NavClass = "selectedParent" if isCurrent("/2135.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("Getting Married") > 0 then NavText = "Getting Married" else NavText = "Getting Married" end if if isActive("/1822.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1822.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("/1149.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 = "Marriage Licences" end if if isActive("/1149.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1149.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 = "Registration of Marriages" end if if isActive("/1159.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1159.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 = "Marriage Commissioner Listing" end if if isActive("/1156.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1156.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 = "Married Last Name" end if if isActive("/1184.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1184.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 = "Marriage Officiants" end if if isActive("/1151.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1151.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("/1152.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("Become a Marriage Commissioner ") > 0 then NavText = "Become a Marriage Commissioner " else NavText = "Become a Marriage Commissioner " end if if isActive("/1152.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2158" NavClass = "selectedParent" if isCurrent("/1152.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 = "Religious Organization and Clergy Registration" end if if isActive("/1155.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2158" NavClass = "selectedParent" if isCurrent("/1155.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 = "Temporary Marriage Commissioner Appointment" end if if isActive("/1153.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2158" NavClass = "selectedParent" if isCurrent("/1153.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 = "Delayed Registration of Marriage" end if if isActive("/1821.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1821.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/777.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("Statistical Information") > 0 then NavText = "Statistical Information" else NavText = "Statistical Information" end if if isActive("/660.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/660.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("/Alberta_Top_Babies_Names.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's Top Babies Names") > 0 then NavText = "Alberta's Top Babies Names" else NavText = "Alberta's Top Babies Names" end if if isActive("/Alberta_Top_Babies_Names.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1167" NavClass = "selectedParent" if isCurrent("/Alberta_Top_Babies_Names.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 = "Alberta's Top Baby Names 90-99" end if if isActive("/1166.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1167" NavClass = "selectedParent" if isCurrent("/1166.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 = "Annual Review" end if if isActive("/1164.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1167" NavClass = "selectedParent" if isCurrent("/1164.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("Stillbirth Information") > 0 then NavText = "Stillbirth Information" else NavText = "Stillbirths" end if if isActive("/658.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/658.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("/1168.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 = "Burial Permits" end if if isActive("/1168.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/1168.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 = "Disinter - Reinter Permit" end if if isActive("/1146.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/1146.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/777.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("Ordering a Stillbirth Document") > 0 then NavText = "Ordering a Stillbirth Document" else NavText = "Ordering a Stillbirth Document" end if if isActive("/1170.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/1170.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 = "Eligibility for Stillbirth Documents" end if if isActive("/1171.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" 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("") > 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("Vital Statistics Searches") > 0 then NavText = "Vital Statistics Searches" else NavText = "Vital Statistics Searches" end if if isActive("/659.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/659.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("/1175.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 = "Genealogical Search" end if if isActive("/1175.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1180" NavClass = "selectedParent" if isCurrent("/1175.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("Record Search") > 0 then NavText = "Record Search" else NavText = "Record Search" end if if isActive("/1176.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1180" 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("Vital Statistics Forms") > 0 then NavText = "Vital Statistics Forms" else NavText = "Vital Statistics Forms" end if if isActive("/775.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/775.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("") > 0 then NavText = "" else NavText = "Vital Statistics Contact Information" end if if isActive("/1154.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/1154.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("Fees") > 0 then NavText = "Fees" else NavText = "Fees" end if if isActive("/789.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/789.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("Acts and Legislation") > 0 then NavText = "Acts and Legislation" else NavText = "Acts and Legislation" end if if isActive("/208.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/208.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) & "
    • " 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("Drivers/ Vehicles") > 0 then NavText = "Drivers/ Vehicles" else NavText = "" end if if isActive("/Drivers_MotorVehicles.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/Drivers_MotorVehicles.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("/556.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("Access to Motor Vehicle Information") > 0 then NavText = "Access to Motor Vehicle Information" else NavText = "Access to Motor Vehicle Information" end if if isActive("/556.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/556.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("Change of Name, Address or Sex") > 0 then NavText = "Change of Name, Address or Sex" else NavText = "Change of Name, Address or Sex" end if if isActive("/1692.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1692.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("Driver's Abstracts") > 0 then NavText = "Driver's Abstracts" else NavText = "Driver's Abstracts" end if if isActive("/1229.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1229.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("Driver's Licence") > 0 then NavText = "Driver's Licence" else NavText = "Driver's Licence" end if if isActive("/Drivers_Licence.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/Drivers_Licence.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("/1742.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("Common Driver's Licence Services") > 0 then NavText = "Common Driver's Licence Services" else NavText = "Common Driver's Licence Services" end if if isActive("/1742.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1742.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("Visitors, Students and Temporary Foreign Workers") > 0 then NavText = "Visitors, Students and Temporary Foreign Workers" else NavText = "Visitors, Students and Temporary Foreign Workers in Alberta" end if if isActive("/1741.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1741.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("Enhanced Security") > 0 then NavText = "Enhanced Security" else NavText = "Enhanced Security" end if if isActive("/1301.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1301.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("New Canadian and Alberta Residents") > 0 then NavText = "New Canadian and Alberta Residents" else NavText = "" end if if isActive("/1671.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1304" NavClass = "selectedParent" if isCurrent("/1671.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("Identification and Residency Requirements") > 0 then NavText = "Identification and Residency Requirements" else NavText = "Identification and Residency Requirements" end if if isActive("/1305.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1305.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("Identification Card") > 0 then NavText = "Identification Card" else NavText = "Identification Card" end if if isActive("/1048.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1048.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("Online Services - Fine Payments and Registration Renewals") > 0 then NavText = "Online Services - Fine Payments and Registration Renewals" else NavText = "Online Services" end if if isActive("/2096.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/2096.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("Parking Placards for Persons with Disabilities") > 0 then NavText = "Parking Placards for Persons with Disabilities" else NavText = "" end if if isActive("/2070.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/2070.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("Serving Court Documents") > 0 then NavText = "Serving Court Documents" else NavText = "Release of Motor Vehicle Information for Service of Documents" end if if isActive("/1806.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1806.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("Travel Documents and Identification") > 0 then NavText = "Travel Documents and Identification" else NavText = "Travel Documents and Identification" end if if isActive("/1302.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/1302.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("Vehicle Licence Plate and Registration") > 0 then NavText = "Vehicle Licence Plate and Registration" else NavText = "Vehicle Licence Plate and Registration" end if if isActive("/572.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/572.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("/1763.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("Buying a Used Vehicle") > 0 then NavText = "Buying a Used Vehicle" else NavText = "Buying a Used Vehicle" end if if isActive("/1763.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1763.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("Common Vehicle Registration Services") > 0 then NavText = "Common Vehicle Registration Services" else NavText = "Common Vehicle Registration Services" end if if isActive("/1743.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1743.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("Registering an Imported Vehicle From Outside Canada") > 0 then NavText = "Registering an Imported Vehicle From Outside Canada" else NavText = "Registering an Imported Vehicle From Outside Canada" end if if isActive("/1493.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" 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("Registering a Vehicle or Trailer") > 0 then NavText = "Registering a Vehicle or Trailer" else NavText = "Registering a Vehicle or Trailer" end if if isActive("/577.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/577.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("Registration Expiry Month Chart") > 0 then NavText = "Registration Expiry Month Chart" else NavText = "Registration Expiry Month Chart" end if if isActive("/1088.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1088.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("Vehicle Plate Class Quick Reference") > 0 then NavText = "Vehicle Plate Class Quick Reference" else NavText = "Vehicle Plate Class Quick Reference" end if if isActive("/1087.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",578" NavClass = "selectedParent" if isCurrent("/1087.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("Common Questions - Drivers and Motor Vehicles") > 0 then NavText = "Common Questions - Drivers and Motor Vehicles" else NavText = "Common Questions - Drivers and Motor Vehicles" end if if isActive("/672.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/672.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, Legislation and Links - Drivers and Motor Vehicles") > 0 then NavText = "Forms, Legislation and Links - Drivers and Motor Vehicles" else NavText = "Forms, Legislation and Links - Drivers and Motor Vehicles" end if if isActive("/596.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",84" NavClass = "selectedParent" if isCurrent("/596.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("Land Titles") > 0 then NavText = "Land Titles" else NavText = "" end if if isActive("/LandTitles.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/LandTitles.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("/1046.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("ALTA 2") > 0 then NavText = "ALTA 2" else NavText = "ALTA 2" end if if isActive("/1046.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/1046.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("Document Registration") > 0 then NavText = "Document Registration" else NavText = "Document Registration" end if if isActive("/594.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/594.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("Foreign Ownership of Land") > 0 then NavText = "Foreign Ownership of Land" else NavText = "Foreign Ownership of Land" end if if isActive("/586.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/586.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("/853.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("Applying for an Exemption") > 0 then NavText = "Applying for an Exemption" else NavText = "Applying for an Exemption" end if if isActive("/853.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",832" NavClass = "selectedParent" if isCurrent("/853.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("Legislative Authority") > 0 then NavText = "Legislative Authority" else NavText = "Legislative Authority" end if if isActive("/833.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",832" NavClass = "selectedParent" if isCurrent("/833.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("Office Location and Contact Information") > 0 then NavText = "Office Location and Contact Information" else NavText = "Office Location and Contact Information" end if if isActive("/856.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",832" NavClass = "selectedParent" if isCurrent("/856.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("Land Titles Notices") > 0 then NavText = "Land Titles Notices" else NavText = "Land Titles Notices" end if if isActive("/587.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/587.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("Name Search") > 0 then NavText = "Name Search" else NavText = "Name Search" end if if isActive("/912.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/912.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("Office Locations") > 0 then NavText = "Office Locations" else NavText = "Office Locations" end if if isActive("/591.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/591.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("Procedures Manual") > 0 then NavText = "Procedures Manual" else NavText = "Procedures Manual" end if if isActive("/595.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/595.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("Spatial Information System (SPIN)") > 0 then NavText = "Spatial Information System (SPIN)" else NavText = "Spatial Information System (SPIN) " end if if isActive("/588.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/588.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("Surface and Mineral Rights") > 0 then NavText = "Surface and Mineral Rights" else NavText = "Surface and Mineral Rights" end if if isActive("/589.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/589.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("Surveyor's Information") > 0 then NavText = "Surveyor's Information" else NavText = "Surveyor's Information" end if if isActive("/590.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/590.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("/1075.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("Digital Submission of Survey Plans for Registration") > 0 then NavText = "Digital Submission of Survey Plans for Registration" else NavText = "Digital Submission of Survey Plans for Registration" end if if isActive("/1075.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1047" NavClass = "selectedParent" if isCurrent("/1075.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 = "Plan Registration" end if if isActive("/852.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1047" NavClass = "selectedParent" if isCurrent("/852.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("Titles, Documents and Plans") > 0 then NavText = "Titles, Documents and Plans" else NavText = "Titles, Documents and Plans" end if if isActive("/907.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/907.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("/908.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("Current Title") > 0 then NavText = "Current Title" else NavText = "Current Title" end if if isActive("/908.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/908.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("Document Copies") > 0 then NavText = "Document Copies" else NavText = "Document Copies" end if if isActive("/915.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/915.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("Historical Title") > 0 then NavText = "Historical Title" else NavText = "Historical Title" end if if isActive("/914.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/914.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("Plan Copies") > 0 then NavText = "Plan Copies" else NavText = "Plan Copies" end if if isActive("/917.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",909" NavClass = "selectedParent" if isCurrent("/917.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("Common Questions - Land Titles") > 0 then NavText = "Common Questions - Land Titles" else NavText = "Common Questions - Land Titles" end if if isActive("/592.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/592.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 - Land Titles") > 0 then NavText = "Forms - Land Titles" else NavText = "Forms - Land Titles" end if if isActive("/850.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/850.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("Legislation - Land Titles") > 0 then NavText = "Legislation - Land Titles" else NavText = "Legislation - Land Titles" end if if isActive("/593.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",116" NavClass = "selectedParent" if isCurrent("/593.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("Vital Statistics") > 0 then NavText = "Vital Statistics" else NavText = "" end if if isActive("/VitalStatistics.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/VitalStatistics.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("/540.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("Birth Information") > 0 then NavText = "Birth Information" else NavText = "Birth Information" end if if isActive("/540.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/540.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("/776.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("Adoption Information") > 0 then NavText = "Adoption Information" else NavText = "Adoption Information" end if if isActive("/776.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/776.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("Choosing a Last Name for Your Child") > 0 then NavText = "Choosing a Last Name for Your Child" else NavText = "Choosing a Last Name for Your Child" end if if isActive("/778.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/778.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 = "Delayed Registration of Birth" end if if isActive("/1144.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/1144.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/777.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("Ordering a Birth Document") > 0 then NavText = "Ordering a Birth Document" else NavText = "Ordering a Birth Document " end if if isActive("/785.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/785.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("/1181.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 end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("Registering a Birth") > 0 then NavText = "Registering a Birth" else NavText = "Registering a Birth" end if if isActive("/779.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/779.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("Home Birth Information for Registering a Birth") > 0 then NavText = "Home Birth Information for Registering a Birth" else NavText = "Home Birth Information for Registering a Birth" end if if isActive("/2115.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1078" NavClass = "selectedParent" if isCurrent("/2115.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("Death Information") > 0 then NavText = "Death Information" else NavText = "Deaths" end if if isActive("/657.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/657.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("/1145.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 = "Burial Permits" end if if isActive("/1145.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1145.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 = "Delayed Registration of Death " end if if isActive("/1820.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1820.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 = "Disinter - Reinter Permit" end if if isActive("/1146.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1146.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/777.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("Ordering a Death Document ") > 0 then NavText = "Ordering a Death Document " else NavText = "Ordering a Death Document " end if if isActive("/1147.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" 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 end if NavCode(AppendToNav) = NavCode(AppendToNav) & "
      • " NewClassType = "" NewClassActive = "" NewClassCurrent = "" NavClass = "" if len("") > 0 then NavText = "" else NavText = "Registration of Death" end if if isActive("/1148.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1162" NavClass = "selectedParent" if isCurrent("/1148.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("Legal Change of Name Information") > 0 then NavText = "Legal Change of Name Information" else NavText = "Legal Change of Name Information" end if if isActive("/1490.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" 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("/798.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("Ordering a Legal Change of Name Document") > 0 then NavText = "Ordering a Legal Change of Name Document" else NavText = "Ordering a Legal Change of Name Document" end if if isActive("/798.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1824" NavClass = "selectedParent" if isCurrent("/798.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("Marriage Information") > 0 then NavText = "Marriage Information" else NavText = "Marriages" end if if isActive("/542.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/542.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("/1158.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("Ordering a Marriage Document") > 0 then NavText = "Ordering a Marriage Document" else NavText = "Ordering a Marriage Document" end if if isActive("/1158.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1158.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("/2067.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 = "Available Marriage Documents" end if if isActive("/2067.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2155" NavClass = "selectedParent" if isCurrent("/2067.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 = "Eligibility for Marriage Documents" end if if isActive("/2132.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2155" NavClass = "selectedParent" if isCurrent("/2132.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("Identification Requirements") > 0 then NavText = "Identification Requirements" else NavText = "Identification Requirements" end if if isActive("/2135.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2155" NavClass = "selectedParent" if isCurrent("/2135.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("Getting Married") > 0 then NavText = "Getting Married" else NavText = "Getting Married" end if if isActive("/1822.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1822.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("/1149.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 = "Marriage Licences" end if if isActive("/1149.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1149.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 = "Registration of Marriages" end if if isActive("/1159.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1159.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 = "Marriage Commissioner Listing" end if if isActive("/1156.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1156.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 = "Married Last Name" end if if isActive("/1184.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2156" NavClass = "selectedParent" if isCurrent("/1184.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 = "Marriage Officiants" end if if isActive("/1151.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1151.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("/1152.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("Become a Marriage Commissioner ") > 0 then NavText = "Become a Marriage Commissioner " else NavText = "Become a Marriage Commissioner " end if if isActive("/1152.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2158" NavClass = "selectedParent" if isCurrent("/1152.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 = "Religious Organization and Clergy Registration" end if if isActive("/1155.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2158" NavClass = "selectedParent" if isCurrent("/1155.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 = "Temporary Marriage Commissioner Appointment" end if if isActive("/1153.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2158" NavClass = "selectedParent" if isCurrent("/1153.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 = "Delayed Registration of Marriage" end if if isActive("/1821.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/1821.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1161" NavClass = "selectedParent" if isCurrent("/777.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("Statistical Information") > 0 then NavText = "Statistical Information" else NavText = "Statistical Information" end if if isActive("/660.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/660.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("/Alberta_Top_Babies_Names.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's Top Babies Names") > 0 then NavText = "Alberta's Top Babies Names" else NavText = "Alberta's Top Babies Names" end if if isActive("/Alberta_Top_Babies_Names.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1167" NavClass = "selectedParent" if isCurrent("/Alberta_Top_Babies_Names.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 = "Alberta's Top Baby Names 90-99" end if if isActive("/1166.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1167" NavClass = "selectedParent" if isCurrent("/1166.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 = "Annual Review" end if if isActive("/1164.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1167" NavClass = "selectedParent" if isCurrent("/1164.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("Stillbirth Information") > 0 then NavText = "Stillbirth Information" else NavText = "Stillbirths" end if if isActive("/658.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/658.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("/1168.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 = "Burial Permits" end if if isActive("/1168.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/1168.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 = "Disinter - Reinter Permit" end if if isActive("/1146.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/1146.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("Making an Amendment to a Registration") > 0 then NavText = "Making an Amendment to a Registration" else NavText = "Making an Amendment to a Registration" end if if isActive("/777.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/777.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("Ordering a Stillbirth Document") > 0 then NavText = "Ordering a Stillbirth Document" else NavText = "Ordering a Stillbirth Document" end if if isActive("/1170.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" NavClass = "selectedParent" if isCurrent("/1170.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 = "Eligibility for Stillbirth Documents" end if if isActive("/1171.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1174" 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("") > 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("Vital Statistics Searches") > 0 then NavText = "Vital Statistics Searches" else NavText = "Vital Statistics Searches" end if if isActive("/659.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/659.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("/1175.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 = "Genealogical Search" end if if isActive("/1175.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1180" NavClass = "selectedParent" if isCurrent("/1175.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("Record Search") > 0 then NavText = "Record Search" else NavText = "Record Search" end if if isActive("/1176.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1180" 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("Vital Statistics Forms") > 0 then NavText = "Vital Statistics Forms" else NavText = "Vital Statistics Forms" end if if isActive("/775.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/775.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("") > 0 then NavText = "" else NavText = "Vital Statistics Contact Information" end if if isActive("/1154.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/1154.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("Fees") > 0 then NavText = "Fees" else NavText = "Fees" end if if isActive("/789.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/789.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("Acts and Legislation") > 0 then NavText = "Acts and Legislation" else NavText = "Acts and Legislation" end if if isActive("/208.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",85" NavClass = "selectedParent" if isCurrent("/208.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("Information/ Technology") > 0 then NavText = "Information/ Technology" else NavText = "" end if if isActive("/InfoTech.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/InfoTech.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("/837.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("Access and Privacy") > 0 then NavText = "Access and Privacy" else NavText = "Access and Privacy" end if if isActive("/837.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1085" NavClass = "selectedParent" if isCurrent("/837.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("/2116.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("FOIP Review") > 0 then NavText = "FOIP Review" else NavText = "Freedom of Information and Protection of Privacy Act Review" end if if isActive("/2116.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2117" NavClass = "selectedParent" if isCurrent("/2116.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("Alberta SuperNet") > 0 then NavText = "Alberta SuperNet" else NavText = "" end if if isActive("/AlbertaSuperNet.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1085" NavClass = "selectedParent" if isCurrent("/AlbertaSuperNet.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("/1557.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("Benefits and Use") > 0 then NavText = "Benefits and Use" else NavText = "Benefits and Use" end if if isActive("/1557.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1559" NavClass = "selectedParent" if isCurrent("/1557.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("The Network (Technical Info.)") > 0 then NavText = "The Network (Technical Info.)" else NavText = "The Network (Technical Information)" end if if isActive("/1561.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1559" NavClass = "selectedParent" if isCurrent("/1561.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("Rural Internet") > 0 then NavText = "Rural Internet" else NavText = "Rural Internet" end if if isActive("/2127.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1085" NavClass = "selectedParent" if isCurrent("/2127.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("/FMRCI.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("Final Mile Rural Connectivity Initiative") > 0 then NavText = "Final Mile Rural Connectivity Initiative" else NavText = "Final Mile Rural Connectivity Initiative" end if if isActive("/FMRCI.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2136" NavClass = "selectedParent" if isCurrent("/FMRCI.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("/CASS_Search.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("Central Alberta Satellite Solution") > 0 then NavText = "Central Alberta Satellite Solution" else NavText = "Central Alberta Satellite Solution" end if if isActive("/CASS_Search.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1889" NavClass = "selectedParent" if isCurrent("/CASS_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("Internet Service Coverage Search") > 0 then NavText = "Internet Service Coverage Search" else NavText = "Internet Service Coverage Search" end if if isActive("/WISP_Search.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2136" NavClass = "selectedParent" if isCurrent("/WISP_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("Alberta Government Library") > 0 then NavText = "Alberta Government Library" else NavText = "Alberta Government Library" end if if isActive("/Library.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1085" NavClass = "selectedParent" if isCurrent("/Library.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("/1894.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("Library Catalogue") > 0 then NavText = "Library Catalogue" else NavText = "Library Catalogue" end if if isActive("/1894.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1896" NavClass = "selectedParent" if isCurrent("/1894.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 = "Contact the Library" end if if isActive("/1891.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1896" NavClass = "selectedParent" if isCurrent("/1891.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("Audio-Visual Services") > 0 then NavText = "Audio-Visual Services" else NavText = "Audio-Visual Services" end if if isActive("/AVServices.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1896" NavClass = "selectedParent" if isCurrent("/AVServices.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("/1899.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("Borrowing Instructions") > 0 then NavText = "Borrowing Instructions" else NavText = "Borrowing from the Audio-Visual Collection" end if if isActive("/1899.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2045" NavClass = "selectedParent" if isCurrent("/1899.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("Audio-Visual Collection Order Form") > 0 then NavText = "Audio-Visual Collection Order Form" else NavText = "Audio-Visual Collection Order Form" end if if isActive("/AV_OrderForm.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2045" NavClass = "selectedParent" if isCurrent("/AV_OrderForm.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("Occupational Health and Safety") > 0 then NavText = "Occupational Health and Safety" else NavText = "Occupational Health and Safety Audio-Visual Collection" end if if isActive("/1904.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2045" NavClass = "selectedParent" if isCurrent("/1904.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("Human Resources and Careers") > 0 then NavText = "Human Resources and Careers" else NavText = "Human Resources and Careers Audio-Visual Collection" end if if isActive("/1903.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2045" NavClass = "selectedParent" if isCurrent("/1903.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("Fire Protection") > 0 then NavText = "Fire Protection" else NavText = "Fire Protection Audio-Visual Collection" end if if isActive("/1901.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",2045" NavClass = "selectedParent" if isCurrent("/1901.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("CIO Council") > 0 then NavText = "CIO Council" else NavText = "CIO Council" end if if isActive("/815.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1085" NavClass = "selectedParent" if isCurrent("/815.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("Records and Information Management") > 0 then NavText = "Records and Information Management" else NavText = "Records and Information Management" end if if isActive("/687.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1085" NavClass = "selectedParent" if isCurrent("/687.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("Technology Initiatives") > 0 then NavText = "Technology Initiatives" else NavText = "Technology Initiatives" end if if isActive("/830.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",1085" NavClass = "selectedParent" if isCurrent("/830.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("Government Buying/Selling") > 0 then NavText = "Government Buying/Selling" else NavText = "" end if if isActive("/Govt_BuySell.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",40" NavClass = "selectedParent" if isCurrent("/Govt_BuySell.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("/581.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("Buying From Government - Surplus Sales") > 0 then NavText = "Buying From Government - Surplus Sales" else NavText = "Buying From Government - Surplus Sales" end if if isActive("/581.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/581.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("/843.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("Cash and Carry Sales") > 0 then NavText = "Cash and Carry Sales" else NavText = "Cash and Carry Sales" end if if isActive("/843.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/843.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 Auctions") > 0 then NavText = "Public Auctions" else NavText = "Public Auctions" end if if isActive("/725.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/725.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 Tenders") > 0 then NavText = "Public Tenders" else NavText = "Public Tenders" end if if isActive("/726.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",585" NavClass = "selectedParent" if isCurrent("/726.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("General Procurement Policies") > 0 then NavText = "General Procurement Policies" else NavText = "General Procurement Policies" end if if isActive("/733.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/733.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("/736.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("Access to Opportunities") > 0 then NavText = "Access to Opportunities" else NavText = "Access to Opportunities" end if if isActive("/736.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/736.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("Contract Awards") > 0 then NavText = "Contract Awards" else NavText = "Contract Awards" end if if isActive("/740.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/740.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("Delivery of Goods") > 0 then NavText = "Delivery of Goods" else NavText = "Delivery of Goods" end if if isActive("/741.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/741.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("Preparing Responses") > 0 then NavText = "Preparing Responses" else NavText = "Preparing Responses" end if if isActive("/738.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/738.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("Submitting Responses") > 0 then NavText = "Submitting Responses" else NavText = "Submitting Responses" end if if isActive("/739.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",737" NavClass = "selectedParent" if isCurrent("/739.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("Procurement Services") > 0 then NavText = "Procurement Services" else NavText = "Procurement Services" end if if isActive("/1097.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/1097.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("Selling to Government") > 0 then NavText = "Selling to Government" else NavText = "Selling to Government" end if if isActive("/582.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/582.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("/1669.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("Agreement on Government Procurement") > 0 then NavText = "Agreement on Government Procurement" else NavText = "Agreement on Government Procurement" end if if isActive("/1669.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/1669.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("Agreement on Internal Trade") > 0 then NavText = "Agreement on Internal Trade" else NavText = "Agreement on Internal Trade" end if if isActive("/844.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/844.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("Procurement and Contracting Templates") > 0 then NavText = "Procurement and Contracting Templates" else NavText = "Procurement and Contracting Templates" end if if isActive("/729.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/729.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("Electronic Tendering System (APC)") > 0 then NavText = "Electronic Tendering System (APC)" else NavText = "Electronic Tendering System (APC)" end if if isActive("/849.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/849.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("Government Seminars") > 0 then NavText = "Government Seminars" else NavText = "Government Seminars" end if if isActive("/697.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/697.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") > 0 then NavText = "Policies" else NavText = "Policies" end if if isActive("/696.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/696.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("Procurement") > 0 then NavText = "Procurement" else NavText = "Procurement" end if if isActive("/698.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/698.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("New West Partnership Trade Agreement (NWPTA) and Trade, Investment and Labour Mobility Agreement (TILMA)") > 0 then NavText = "New West Partnership Trade Agreement (NWPTA) and Trade, Investment and Labour Mobility Agreement (TILMA)" else NavText = "New West Partnership Trade Agreement (NWPTA) and Trade, Investment and Labour Mobility Agreement (TILMA)" end if if isActive("/1066.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",728" NavClass = "selectedParent" if isCurrent("/1066.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("Service Centres") > 0 then NavText = "Service Centres" else NavText = "Service Centres" end if if isActive("/675.cfm",RedDotBCPath,CurMode) then NewClassActive = "Active" ActivePath = ActivePath & ",127" NavClass = "selectedParent" if isCurrent("/675.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) & "
  • " 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 ... %> Service Alberta: Common Questions - Drivers and Motor Vehicles <% if homeVar = "true" then %> <% else %> <% end if %> <% if ( Len("") > 0 and ucase("Full") <> "HOME" ) then %> <% end if %> <% if ("672") = "23" then %> <% else %> <% end if %>
<% if ("672") = "1699" then %>
<% end if %> <% if ( Len("") > 0 and ucase("Full") <> "HOME" ) then %>
<% end if %>

Common Questions - Drivers and Motor Vehicles


Be advised that the answers provided here to frequently asked questions cover basic situations and, depending on the circumstances, cannot be applied to all situations.

Click on a below question to see its answer.

Note: Effective January 14, 2009, registry agents will retain a copy of all vehicle ownership documents at the time of applicable vehicle services. This includes the vehicle Certificate of Origin. As well, the original New Vehicle Information Statement (NVIS) and the Transport Canada Vehicle Import Form (Form 1) must be surrendered at the time of registration.

<% If UCASE("no") <> "YES" Then if ucase("Full") = "FULL" then columnStyle = "1" elseif ucase("Full") = "HALF" or ucase("Full") = "THIRD" then columnStyle = "2" elseif ucase("Full") = "HOME" then columnStyle = "3" else columnStyle = "1" end if %> <% if ucase("Full") = "DEFAULT" or ucase("Full") = "THIRD" or ucase("Full") = "2COLUMNCUSTOM" then cssClass = "Third" elseif ucase("Full") = "CUSTOM" or ucase("Full") = "FULL" then cssClass = "Full" elseif ucase("Full") = "HALF" then cssClass = "Half" end if %> <% if columnStyle = "1" then %> <% if ("") = "" then %>
<% if ucase("no") = "YES" then %> <% else %> <% end if %> <% if ucase("yes") = "YES" then %>

Where do I go for motor vehicle services?

You may visit any one of the private registry agent locations throughout the province who provide the motor vehicle services.

Canada Post has changed my address and/or postal code. I know I need to update this information on my driver’s licence and registration, but will I be charged a fee for that?

No. Regulation changes that came into effect on July 17, 2006 allow you to change the address information on your driver’s licence and/or vehicle registration free of charge as long as the change was mandated by some authority (e.g., Canada Post, municipal government) and you have not physically moved to another residence. You must provide the letter from Canada Post informing you of the change as proof.

What are the fees for motor vehicle services?

The Registy Agent Product Catalogue lists all available registry services and related fees.

I see the term "highway" used with respect to the operation of motor vehicles. What does it mean?

The term “highway” means any thoroughfare, street, road, trail, avenue, parkway, driveway, viaduct, lane, alley, square, bridge, causeway, trestleway or other place or any part of any of them, whether publicly or privately owned, that the public is ordinarily entitled or permitted to use for the passage or parking of vehicles and includes:

  • A sidewalk, including a boulevard adjacent to the sidewalk

  • If a ditch lies adjacent to and parallel with the roadway, the ditch

  • If a highway right of way is contained between fences or between a fence and one side of the roadway, all the land between the fences, or all the land between the fence and the edge of the roadway, as the case may be

How do I change my name on my drivers licence or vehicle registration?

There are three types of name changes: a legal name change, an assumed name change through marriage and reverting to a birth (maiden) name.
  • For a legal name change, you must apply to Vital Statistics. Once approved, you will be issued a 'Legal Change of Name' certificate that you will need to present to a registry agent.
  • For an assumed name due to marriage, you will need to present your original marriage certificate to the registry agent.
  • To revert back to a maiden name, you will need to present your marriage certificate or divorce decree in addition to your birth certificate.

To avoid the change of name/address fees, you may have the option to renew your drivers licence early. If this option is chosen, the normal renewal fees are charged and the change of name and/or address is included at no extra charge. Please discuss this option with your registry agent to see if you are eligible.

The Operator Licensing and Vehicle Control Regulation of the Alberta Traffic Safety Act requires that if a person changes their name, address or postal address, they must make application within 14 days of the change to have a new licence issued. For a legal name change, this would be 14 days from the time you receive your legal name change certificate. For assumed names, since the use of these names are optional, this would be 14 days from the time you start using the assumed name.

Do I need the renewal form that I received in the mail in order to renew my driver's licence and vehicle registration?

No, you are not required to present the renewal form if you don't have it. Simply present your existing photo licence and / or registration along with your insurance to a registry agent and pay the required fee. If non-photo licence is presented, two other forms of identification are required.

My children are not residents of Alberta but are attending school full time in Alberta. Do they have to register their vehicles and change their operator licences in Alberta?

No. Provided they are full time students and the vehicle is registered in their home jurisdiction in their name.

I live in another province, but I am working here as part of a co-op program. Do I need to get an Alberta driver’s licence and/or vehicle registration?

No. The rules for co-op program participants are the same as those for full time students. You may use the valid licence and registration from your home jurisdiction, as long as you also have valid insurance and the registration is in your name.

I just moved to Alberta from Manitoba. Can I continue to use my Manitoba driver’s licence and registration?

Only for 90 days. From the day you move to Alberta, you have 90 days to exchange your licence for an Alberta one and to register your non-commercial vehicle in this province.

I live in Saskatchewan but I work in Alberta. Do I have to get an Alberta driver’s licence and registration?

No. If your residence is not in Alberta, you can continue to use your valid licence from your home jurisdiction. Provided you have valid insurance and your vehicle is not a commercial vehicle, you may also continue to use your home jurisdiction vehicle registration and insurance for up to 183 days. If your vehicle remains in Alberta past the 183 days, you must register your vehicle with Alberta plates.

I live in one of the U.S. states, but I’m coming to Alberta for an extended vacation. Can I use my state driver’s licence and registration while I’m in Alberta?

Yes. Visitors to Alberta may use their valid licence, registration and plates (with valid insurance) from their home jurisdiction as long as they have a legitimate residence there and do not take up residency in Alberta. However, they must obtain Alberta registration if their vehicle has been located in Alberta past 183 days.

I will be out of the province on vacation when my drivers licence expires, what should I do?

You do not have to wait until the expiry date of your licence before you renew it. Anyone may renew their licence up to a year prior to the actual expiry date.

Do I need a medical report to renew my driver's licence?

A medical report is required when applying for or renewing a class 1, 2 or 4 licence. In addition, if you have a condition code C (periodic satisfactory medical report) or code D (periodic vision report) on your licence, or if you have a medical condition that may affect your driving ability, you must submit a medical report. If you are 75 years of age or older you will be required to submit a medical report and provide a vision screening.

At what age can a person obtain a learner's licence?

In Alberta, an individual must be at least 14 years of age to apply for a learner's licence with parental consent (pdf) if under 18.

I don’t live in Alberta, but I spend a lot of time here. Am I eligible for an Alberta driver’s licence?

No. Alberta licences can only be issued to residents of Alberta. A resident of Alberta is a person who is lawfully entitled to be in Canada and who makes their home in, and is ordinarily present in, Alberta. Registry agents require proof of residency before they will issue a driver’s licence.

What do I need to do to register my vehicle?

To register a vehicle, you will require proof of ownership (such as a bill of sale, lease agreement), proof of valid insurance and two pieces of identification. If the vehicle is new, you will also require a new vehicle information statement (NVIS); if the vehicle was imported into Canada, you will require a Vehicle Import Form from Transport Canada. Used Vehicles previously registered outside of the province require a safety inspection. Please refer to Registering a Vehicle or Trailer section for more details.

Is there a place where I can check whether a vehicle is stolen?

Yes. The Canadian Police Information Centre (CPIC) website allows the public to check the ‘stolen’ status of a vehicle using either a vehicle identification number (VIN) or a licence plate. The vehicle records in this database are updated every day and the property files are updated every Tuesday morning. It is important to note that even if you get a positive response to your search, it does not necessarily mean the item is stolen.

If you do get a positive response, the item’s status should then be confirmed with your local police." Access the Canadian Police Information Centre website (external site).

Does Alberta intend to offer other speciality or commemorative plates other than the veterans licence plate?

Suggestions for specialized licence plates programs, for specific professions, medical research groups and a host of other specialty groups and organizations, have been raised in Alberta from time to time over the past few years. In response, the Alberta Government studied the feasibility of introducing specialty licence plates by reviewing similar programs in Canada and the United States. The result; these programs are very costly to set up and administer.

These types of plates also make it difficult for law enforcement officials to easily determine a plate's jurisdiction of origin or legitimacy. For these reasons, Alberta has opted not to add any new specialty plates at this time. However, should one of the specialty groups choose to produce their own, the front licence plate area on a vehicle would be ideal to show these as Alberta law currently only requires the use of a rear plate.