<%
' --- START OF MESSAGE TEMPLATES --- '
' (SS,26/08/14) modified for Bootstrap
' (SS,02/10/14) added text function GetCheckoutMessage
' (SS,09/10/14) updated Sub ShowBasketInfo to show delivery info
' (SS,25/11/15) added CustomShowHolidayNotice to Sub ShowBasketInfo
' (SS,20/04/16) added Function GetMessage
' (SS,05/04/17) added "BankTransferExtra" to GetMessage
' (SS,05/10/20) for compatibility with latest common templates new version of Sub ShowPageTitle with 3 parameters and added Sub ShowPageBreadcrumb, Function ProperPageName
' (SS,24/05/22) added brexit to Function ProperPageName
' (SS,10/03/23) ending <b> tag correction to Sub ShowMessage
' (SS,28/07/23) change to Function GetMessage modified Voucher text to return the discount info


' (SS,5/12/19) added breadcrumb to be used at start of every page, relative to home page, also added HTMLEncode
Sub ShowPageBreadcrumb(APageName)
%> 
  <ul class="breadcrumb">
    <li><a href="/">Home</a></li>
    <li><%=HTMLEncode(ProperPageName(APageName))%></li>
  </ul>
<%
End Sub

' (SS,09/06/11) changed to use new div version
' (SS,5/12/19) new version which shows a breadcrumb, previously this was a top of a panel which wasn't ideal
' also added an extra (APageName) parameter to allow page name to be different, i.e. calls ShowPageBreadcrumb above
' had to change all calls to ShowPageTitle to added the extra parameter, added a 3rd parameter for additional options, not used currently
' if APageName is blank then it assume same value as ATitle
Sub ShowPageTitle(APageName, ATitle, AOptions)
  Dim LTitle
  LTitle = ATitle
  If LTitle = "" Then LTitle = ProperPageName(APageName)
  ShowPageBreadcrumb APageName
%>
  <h1><%=HTMLEncode(LTitle)%></h1>
<%  
End Sub

' (SS,5/12/19) converts the lowercase page name to proper one, perhaps in future have a separate field in settings for this
' (SS,24/5/22) added brexit
Function ProperPageName(APageName)
  Dim LResult
  Select Case APageName
    Case "about"
      LResult = "About Us"
    Case "deliveryinfo"
      LResult = "Delivery Info" 
    Case "howtoorder"
      LResult = "How to Order"
    Case "customerinfo"
      LResult = "Customer Info" 
    Case "privacy"
      LResult = "Privacy"
    Case "links"
      LResult = "Links"
    Case "faq"
      LResult = "FAQ" 
    Case "coronavirus"
      LResult = "Coronavirus"
    Case "brexit"
      LResult = "Brexit"         
    Case "fittingguidelines"
      LResult = "Fitting Guidelines"            
    Case Else
      LResult = APageName
  End Select
  
  ProperPageName = LResult
End Function

' (SS,17/2/05)
' (SS,10/3/23) corrected ending <b> tag to </b> was <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

' (SS,11/12/07) used to add extra note before or after existing note
' (SS,16/3/12) removed
'Function GetBasketNote(AExistingNote)
'  Dim LNewNote
'  LNewNote = ""
'  GetBasketNote = AExistingNote + LNewNote
'End Function

' (SS,16/3/12) this replaces above GetBasketNote, total weight is passed here from ShowBasketFooter (inc-template-messages.asp)
' (SS,9/9/14) removed <p>We hope you enjoy your visit to ..=GetStoreName..'s website.</p>
' (SS,9/10/14) added delivery info, also added space between total weight and units
' (SS,10/10/14) removed "<p>If you have any comments or suggestions we would be happy to hear from you.</p>"
Sub ShowBasketInfo(ATotalWeight)
%>    
    <p>Total weight of this order: <b><%=ATotalWeight & " " & GetWeightUnits%></b></p>    
    
    <p><b><%=GetDeliveryInfo%></b></p>
<%
  CustomShowRecommendation ' (SS,10/10/14)

  ' (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
' (SS,2/10/14) modified message from blank to following
Function GetCheckoutMessage
  GetCheckoutMessage = GetStoreName + " is a division of Mossmead Limited. Your payment will be made to 'MOSSMEAD LIMITED' which will show on your statement."
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
' (SS,28/7/23) modified Voucher text to return the discount info
Function GetMessage(AName)
  Dim Result
  If AName = "Voucher" Then
    ' Result = "No active vouchers available"
    ' (SS,28/7/23) replaced above with following
    If GetDiscountInfo <> "" Then
      Result = "Discount applied: " & GetDiscountInfo
    ElseIf GetVoucherCode <> "" Then
      Result = "No discount applied"
    Else
      Result = ""
    End If
    
  ' (SS,5/4/17) bold version to override the usual one
  ElseIf AName = "BankTransferExtra" Then  
    Result = "<b>Failure to pay immediately will result in your order being delayed.</b>"
  Else
    Result = ""
  End If
  GetMessage = Result 
End Function


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