C "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <% 'this should be using: if "Full" = "Home" then homeVar = "true" 'and since the variable is only used in once place (the UFO JS), 'just check the field there if "535" = "23" then homeVar = "true" %> <% Dim curPageId : curPageId = "535" Dim curPageGUID : curPageGUID = "80F205BC62744427B8DAEEF78E5B87D6" Dim curPageURL : curPageURL = "/publish/535.cfm" Dim RedDotBCPath : RedDotBCPath = "/publish/19.htm|/publish/24.htm|/publish/includes/39.htm|/publish/523.cfm|" 'response.write "BC:" & RedDotBCPath RedDotBCPath = RedDotBCPath & "/publish/535.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) & "" 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 ... %> Government of Alberta: Parent Link Centres <% if homeVar = "true" then %> <% else %> <% end if %> <% if ("535") = "23" then %> <% else %> <% end if %>