<%

' (SS,15/08/14) Bootstrap version
'  Added GetBreadcrumbHeader, GetBreadcrumbLink, GetBreadcrumbSeparator and GetBreadcrumbFooter these override the ones in apptils.asp
' (SS,19/04/24) Modified for Bootstrap 5

' (SS,17/5/11) changed from GetProductsPageTitle to GetProductsPageTitleV2
' (SS,26/8/14) <div class="heading"></div> replaced with bootstrap panel div
' (SS,3/6/24) replaced (for "Your Basket" initially)
'  <div class="panel panel-default">
'    <div class="panel-heading">.%=LPageTitle%.</div>
'  </div>
' with ShowSectionHeading LPageTitle
Sub ShowPage_products
  Dim LPageTitle
  LPageTitle = GetProductsPageTitleV2("home") ' (SS,19/4/14) added "home" option to include "Home" in the breadcrumb
  If LPageTitle <> "" Then ' (SS,17/5/11) only show if not blank
    ' (SS,26/8/14) if title doesn't contain a breadcrumb then add the panel heading, a bit messy, might be a better way
    ' (SS,28/6/24) changed "mt-3" to "mt-0"
    If InStr(LPageTitle, "breadcrumb") = 0 Then
      ShowSectionHeading LPageTitle, "mt-0"
    Else
      Response.Write LPageTitle
    End If
  End If
%>  
<!-- START OF PRODUCT VIEW -->
<%ProductsMain%>
<!-- END OF PRODUCT VIEW -->
<%
End Sub

' (SS,15/8/14)
' (SS,19/4/24) adjusted for Bootstrap 5
Function GetBreadcrumbHeader
  ' GetBreadcrumbHeader = "<ul class=""breadcrumb"">"
  GetBreadcrumbHeader = "<nav aria-label=""breadcrumb""><ol class=""breadcrumb"">"  
End Function

' (SS,17/5/11)
' (SS,26/7/11) added HTMLEncode to ensure people don't try to add html tags to the names
' (SS,15/8/14) copied from apputils.asp, this overrides it, for new Bootstrap RWD
' (SS,19/4/24) adjusted for Bootstrap 5, also if AHRef is blank it assumes it's the active page 
Function GetBreadcrumbLink(AName, AHRef)
  ' GetBreadcrumbLink = "<li><a href=""" & AHRef & """>" & HTMLEncode(AName) & "</a></li>"
  If AHRef = "" Then
    GetBreadcrumbLink = "<li class=""breadcrumb-item active"" aria-current=""page"">" & HTMLEncode(AName) & "</li>"
  Else
    GetBreadcrumbLink = "<li class=""breadcrumb-item""><a href=""" & AHRef & """>" & HTMLEncode(AName) & "</a></li>"
  End If
End Function

' (SS,17/5/11)
' (SS,15/8/14) copied from apputils.asp, this overrides it, for new Bootstrap RWD
' (SS,19/4/24) adjusted for Bootstrap 5
Function GetBreadcrumbSeparator
  GetBreadcrumbSeparator = ""
  'GetBreadcrumbSeparator = "<span class=""breadcrumb-separator""> &raquo; </span>"
End Function

' (SS,15/8/14)
' (SS,19/4/24) adjusted for Bootstrap 5
Function GetBreadcrumbFooter
  ' GetBreadcrumbFooter = "</ul>"
  GetBreadcrumbFooter = "</ol></nav>"  
End Function

%>