<%
' --- 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,09/06/11) changed to use new div version
Sub ShowPageTitle(ATitle)
%>
  <div class="panel panel-default">
    <div class="panel-heading"><%=ATitle%></div>
  </div>          
<%
End Sub

' (SS,17/2/05) '
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
Function GetMessage(AName)
  Dim Result
  If AName = "Voucher" Then
    Result = "No active vouchers available"
  ' (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 --- '
%>