<%
' (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-no">
    <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)
    ' (SS,17/5/24) Bootstrap 5 
    'LContent = ReplaceStr(LContent, "col-sm-6 col-md-4 grid-item", " col-12 col-sm-6 col-md-6 col-lg-4 col-xl-4 col-xxl-4 mb-3")
    'LContent = ReplaceStr(LContent, "thumbnail", "card")
    'LContent = ReplaceStr(LContent, "<img src", "<img class=""img-thumbnail"" src")
    'LContent = ReplaceStr(LContent, "class=""caption""", "class=""card-body pb-0""")
    ' (SS,23/5/24)
    'LContent = ReplaceStr(LContent, "<h4>", "<h5 class=""card-title"">")
    'LContent = ReplaceStr(LContent, "</h4>", "</h5>")
    'LContent = ReplaceStr(LContent, " style=""margin-bottom:20px""", "") 
    'LContent = ReplaceStr(LContent, "<p>", "<p class=""d-none"">")
    
    ' (SS,20/6/24) kept following which is just for the page name "blog" content
    LContent = ReplaceStr(LContent, "<div class=""row grid"">", "<div class=""row"">")
    
    ' (SS,18/6/24)
   ' LContent = ReplaceStr(LContent, "class=""card""", "class=""card rounded-5""")
    
    
  Else
    LContent = GetBlogPostContent(LBlogPostName, LHeading)
    ' (SS,17/5/24) Bootstrap 5, replace "img-responsive with" "img-fluid" and "center-block" with "mx-auto d-block" for centring
    LContent = ReplaceStr(LContent, "img-responsive center-block", "img-fluid mx-auto d-block")
  End If
    
  ShowBlogHeader LHeading  

  ShowBlogContent LContent
  
  ShowBlogFooter  
End Sub

%>