HEX

File: D:/web/hyperflight/bank-details.asp
<%Option Explicit%>
<%
' === COMMON TEMPLATE (SAME FOR ALL SHOPPING SITES) ===
' (SS,09/08/17) shows the bank transfer details (only works in local mode i.e. for internal use)
%>
<!--#include file="dbfunctions.asp"-->
<!--#include file="apputils.asp"-->
<html>
<head><%DisableCache%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Bank Details</title>
</head>
<body>
<h1>Bank Details</h1>
<div><%
If IsLocalMode Then
  ShowBankDetailsFor "GBP"
  ShowBankDetailsFor "EUR"
  ShowBankDetailsFor "USD"
Else
  Response.Write "Sorry, only works in local mode"
End If
%></div>
</body>
</html><%Finalise%>
<%
Sub ShowBankDetailsFor(ACurrencyCode)
  Response.Write "<h2>" & ACurrencyCode & "</h2>"
  Response.Write BankTransferDetailsToHTML(GetBankTransferDetailsForCurrency(ACurrencyCode))
End Sub
%>