<%
' --- 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/12/19) added Sub ShowPageBreadcrumb and new parameters added to Sub ShowPageTitle, also added Function ProperPageName(APageName)
' (SS,03/04/20) added coronavirus to Function ProperPageName
' (SS,24/05/22) added brexit to Function ProperPageName

' (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,3/4/20) added importantnotice
' (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 "fittingguidelines"
      LResult = "Fitting Guidelines" 
    Case "calculatingpipecentres"
      LResult = "Calculating Pipe Centres"
    Case "handlingcastironradiators"
      LResult = "Handling Cast Iron Radiators"
    Case "coronavirus"
      LResult = "Coronavirus"
    Case "brexit"
      LResult = "Brexit"       
    Case Else
      LResult = APageName
  End Select
  
  ProperPageName = LResult
End Function

' (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>"
  ' (SS,2/10/20) moved this message here from inc-template-other.asp  
  ElseIf AName = "OrderingSuspended" Then  
    Result = "<strong><span style=""color:red"">Temporary Covid-19 notice:</span> Our daily radiator order quota has been reached for today due to current Covid-19 safe staff working restrictions. We cannot take orders over the phone either. It will renew again from midnight tonight to allow more orders, so please try again tomorrow. We are very sorry for any inconvenience.</strong>"
  Else
    Result = ""
  End If
  GetMessage = Result 
End Function


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