<%
' (SS,30/10/23) new blog handling page

Sub ShowBlogHeader(AHeading)
  ' no need to page heading/title just wasting space because we have panels in the two sections which are headings
  ' ShowPageTitle "Blog", "", ""
  ' page title is in the blog itself, just show the breadcrumb
  ShowPageBreadcrumb "Blog"
%>
<div id="other-pages2">
<%
End Sub

Sub ShowBlogContent(AText)
%>
  <div class="container">
    <div id="other-pages">
    <%=AText%>
    </div>
  </div>
<%
End Sub

Sub ShowBlogFooter
%>
</div> <!-- end #other-pages2 -->
<%
End Sub

Sub DoBlogPage
  Dim LBlogPostName, LContent, LHeading
  
  LBlogPostName = CleanRequestQueryString("name")
  If LBlogPostName = "" Then
    LContent = GetPageContent("Blog", LHeading)
  Else
    LContent = GetBlogPostContent(LBlogPostName, LHeading)
  End If
    
  ShowBlogHeader LHeading 

  ShowBlogContent LContent
  
  ShowBlogFooter  
End Sub

%>