<%
' --- START OF MESSAGE TEMPLATES --- '
' (SS,29/08/19) for Ground Screw Centre
' (SS,18/09/19) added ShowPageBreadcrumb
' Modified ShowPageTitle to no use panel, just the straightforward H1 tag
' (SS,05/10/20) added 2 new parameters to Sub ShowPageTitle for compatibility
' (SS,27/10/20) correction to Sub ShowMessage

' (SS,29/9/19) added breadcrumb to be used at start of every page, relative to home page, also added HTMLEncode
Sub ShowPageBreadcrumb(APageName)
%> 
  <nav aria-label="breadcrumb">
    <ol class="breadcrumb">
      <li class="breadcrumb-item"><a href="/">Home</a></li>
      <li class="breadcrumb-item active" aria-current="page"><%=HTMLEncode(APageName)%></li>
    </ol>
  </nav>  
<%
End Sub

' (SS,09/06/11) changed to use new div version
' (SS,19/9/19) removed panel, now just h1 tag, added HTMLEncode
' now calls ShowPageBreadcrumb first
' (SS,5/10/20) for compatibility with latest, added APageName and AOptions parameters
' Existing ATitle is now second parameter
Sub ShowPageTitle(APageName, ATitle, AOptions)
  ' (SS,5/10/20) use APageName if ATitle is blank (value call in inc-template-accounts.asp is being passed as first parameter)
  Dim LTitle
  LTitle = ATitle
  If LTitle = "" Then LTitle = APageName
  ShowPageBreadcrumb LTitle
%>
  <h1><%=HTMLEncode(LTitle)%></h1>
<%
End Sub

' (SS,17/2/05)
' (SS,27/10/20) corrected tag was <b> at the end, now </b>
Sub ShowMessage(AMessage)
%>
<b><%=AMessage%></b><br>
<%
End Sub

Sub ShowSearchNotFound
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%">&nbsp;&nbsp;&nbsp;</td>
<td width="99%" valign="top">
If there is an item in particular you are looking for, but can&#8217;t find it on this site, please <a href="products.asp?page=contact"><font color="#990000">contact us</font></a> and we will try and find it for you.<br>    <br>
</td>
</tr>
</table>
<%
End Sub

Function GetOrderConfirmationExtraMessage
  GetOrderConfirmationExtraMessage = ""
End Function

Function EmailOrderConfirmationFooter
  Dim NL
  NL = Chr(13) + Chr(10)
  EmailOrderConfirmationFooter = ""
End Function

' (SS,17/7/07) message shown next to country combo to ensure user selects correct country
Function GetImportantCountryMessage
  GetImportantCountryMessage = ""
End Function

Function GetPaymentExtraMessage
  GetPaymentExtraMessage = ""
End Function

Sub ShowBasketInfo(ATotalWeight)
%>    
    <p>Total weight of this order: <b><%=ATotalWeight & " " & GetWeightUnits%></b></p>    
<%
  ' (SS,25/11/15) show the holiday message for the basket
  CustomShowHolidayNotice "B", 0  
End Sub

' (SS,11/12/07) for checkout just before making payment
Function GetCheckoutMessage
  GetCheckoutMessage = ""
End Function

' (SS,20/4/16) add following multipurpose message return routine, overcomes having to create a new function for each new message and having to add it to each site for full compatibility
Function GetMessage(AName)
  Dim Result
  Result = "" ' "No active vouchers available"
  GetMessage = Result 
End Function


' --- END OF MESSAGE TEMPLATES --- '
%>