<%

' (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
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
%>
  <div class="panel panel-default">
    <div class="panel-heading"><%=LPageTitle%></div>
  </div>    
  <%Else
      Response.Write LPageTitle
    End If
  End If
%>  
<!-- START OF PRODUCT VIEW -->
<%ProductsMain%>
<!-- END OF PRODUCT VIEW -->
<%
End Sub

' (SS,15/8/14)
Function GetBreadcrumbHeader
  GetBreadcrumbHeader = "<ul 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
Function GetBreadcrumbLink(AName, AHRef)
  GetBreadcrumbLink = "<li><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)
Function GetBreadcrumbFooter
  GetBreadcrumbFooter = "</ul>"
End Function

%>