<%
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 hdr_path
hdr_path = LCase(Request.ServerVariables("HTTP_X_ORIGINAL_URL"))
If InStr(hdr_path, "?") > 0 Then hdr_path = Left(hdr_path, InStr(hdr_path, "?") - 1)
Dim hdr_navHome, hdr_navPosts, hdr_navCats
hdr_navHome = "nav-link"
hdr_navPosts = "nav-link"
hdr_navCats = "nav-link"
If hdr_path = "/" Or hdr_path = "" Or Left(hdr_path, 5) = "/home" Then
hdr_navHome = "nav-link active"
ElseIf Left(hdr_path, 6) = "/posts" Then
hdr_navPosts = "nav-link active"
ElseIf Left(hdr_path, 11) = "/categories" Then
hdr_navCats = "nav-link active"
End If
%>
<%= H(pageTitle) %> — BrainOrdure