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