<%
' (SS,15/8/14) Bootstrap version
'  Added GetBreadcrumbHeader, GetBreadcrumbLink, GetBreadcrumbSeparator and GetBreadcrumbFooter these override the ones in apptils.asp
' (SS,17/5/11) changed from GetProductsPageTitle to GetProductsPageTitleV2
' (SS,26/8/14) <div class="heading"></div> replaced with bootstrap panel div
' (SS,13/09/19) For Bootstrap 4 replaced panel with card
' (SS,19/9/19) replaced the panel/card with call to ShowPageTitle in (inc-template-messages.asp)
' (SS,11/10/19) modified breadcrumb for Bootstrap 4
' (SS,05/10/20) change to call to ShowPageTitle

Sub ShowPage_products
  Dim LPageTitle
  LPageTitle = GetProductsPageTitleV2("")
  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
    If InStr(LPageTitle, "breadcrumb") = 0 Then
      ShowPageTitle "", LPageTitle, "" ' (SS,5/10/20) added 2 blank parameter
    Else
      Response.Write LPageTitle
    End If
  End If
%>  
<!-- START OF PRODUCT VIEW -->
<%ProductsMain%>
<!-- END OF PRODUCT VIEW -->
<%
End Sub

' (SS,15/8/14)
' (SS,11/10/19) modified for Bootstrap 4
Function GetBreadcrumbHeader
  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,11/10/19) modified for Bootstrap 4
Function GetBreadcrumbLink(AName, AHRef)
  'GetBreadcrumbLink = "<li><a href=""" & AHRef & """>" & HTMLEncode(AName) & "</a></li>"
  GetBreadcrumbLink = "<li class=""breadcrumb-item""><a href=""" & AHRef & """>" & HTMLEncode(AName) & "</a></li>"
End Function

' (SS,17/5/11)
' (SS,15/8/14) copied from apputils.asp, this overrides it, for new Bootstrap RWD
Function GetBreadcrumbSeparator
  GetBreadcrumbSeparator = ""
End Function

' (SS,15/8/14)
' (SS,11/10/19) modified for Bootstrap 4
Function GetBreadcrumbFooter
  GetBreadcrumbFooter = "</ol></nav>"
End Function

%>