<%
Response.Charset = "utf-8"
Response.CodePage = 65001
Dim pageTitle
If IsObject(CurrentController) Then
On Error Resume Next
pageTitle = CurrentController.Title
If Err.Number <> 0 Then
pageTitle = "BrainOrdure"
Err.Clear
End If
On Error GoTo 0
End If
If Len(pageTitle) = 0 Then pageTitle = "BrainOrdure"
Dim currentPath
currentPath = LCase(Request.ServerVariables("HTTP_X_ORIGINAL_URL"))
If InStr(currentPath, "?") > 0 Then currentPath = Left(currentPath, InStr(currentPath, "?") - 1)
Function NavClass(ByVal prefix)
If Left(currentPath, Len(prefix)) = prefix Then
NavClass = "nav-link active"
Else
NavClass = "nav-link"
End If
End Function
%>
<%= H(pageTitle) %> — BrainOrdure