<%
' === COMMON TEMPLATE (SAME FOR ALL SHOPPING SITES) ===

' (SS,17/06/09) added extra site seals and improvements to centre using div
' (SS,18/06/09) added different site seals
' (SS,19/06/09) further improvements, no longer to be used as template, but added to inc-main.asp and called using ShowSiteSeal or
' (SS,29/03/09) removed link in ShowPayPalSiteSeal1 and ShowPayPalSiteSeal2 to avoid confusion
' (SS,12/05/10) added a forth WorldPay site seal logo with RBS
' (SS,18/08/10) new version of Sub ShowSecureSiteSeal which uses GeoTrust instead of Comodo, old one renamed to ShowSecureSiteSealOld and not used
' (SS,30/09/10) added a third shorter PayPal logo, larger PayPal logo, and WorldPay without text and non-clickable PayPal etc.

Sub DummyHTMLHeaderToFoolDreamweaverSiteSeal
%>
<link href="styles.css" rel="stylesheet" type="text/css">
<%
End Sub

' (SS,17/6/09) modified to show for all 3 payment types instead of just one
Sub ShowSiteSeals
	ShowSiteSealForPaymentType(GetPaymentType1)
	ShowSiteSealForPaymentType(GetPaymentType2)
	ShowSiteSealForPaymentType(GetPaymentType3)
End Sub

' (SS,17/6/09) renamed from ShowSiteSeal to ShowSiteSealForPaymentType and added parameter
' (SS,17/6/09) added GoogleCheckoutSeal
Sub ShowSiteSealForPaymentType(APaymentType)
	If APaymentType <> "" Then
		ShowSiteSealDivider
		Response.Write "<div align=""center"">" ' to center
	End If
  If APaymentType = ptDirect Then
    If IsSecureSite Then  ' (SS,2/9/05) added for secure site
      ShowSecureSiteSeal("SC")
    Else
      ShowSecureSiteSeal("S4")
    End If
  ElseIf APaymentType = ptWorldPay Then
    ShowWorldPaySiteSeal("")
  ElseIf APaymentType = ptPayPal Then
    ShowPayPalSiteSeal("")
  ElseIf APaymentType = ptGoogleCheckout Then
  	ShowGoogleCheckoutSeal("")
  ElseIf APaymentType = ptEPDQ Then
    ShowEPDQSiteSeal    
  End If
  If APaymentType <> "" Then
		Response.Write "</div>"	' end the div opened earlier
	End If
End Sub

' (SS,18/8/10) old version for Comodo, no longer used, replaced by GeoTrust at 1and1
Sub ShowSecureSiteSealOld(AType)
  Dim LImage
  Select Case AType
    Case "S4"
      LImage = "horz_master_120pixels"
    Case "S3"
      LImage = "horz_master_100pixels"
    Case "S2"
      LImage = "horz_master_85pixels"
    Case "S1"
      LImage = "square_70pixels"
    Case "C2"
      LImage = "circle_master21"
    Case "C1"
      LImage = "circle_master2a"
    Case "SC"
      LImage = "secure_site"
  End Select

%>
<table width="100%">
<tr><td align="left">
<%
If AType = "SC" Then
%>
<script type="text/javascript">TrustLogo("images/ssl-<%=LImage%>.gif", "SC", "none");</script>
<%
Else
%>
<a href="http://www.instantssl.com" target="_blank"><img src="images/ssl-<%=LImage%>.gif" alt="SSL" style="border: 0px;"><br></a>
<%
End If
%>
</td></tr>
</table>
<%
End Sub

' (SS,18/8/10) replaced old version above, Comodo replaced by free SSL from 1and1 (GeoTrust)
' Only SC for secure site is shown, S1, S2, S3, S4 etc. for main site no longer valid
Sub ShowSecureSiteSeal(AType)
If AType = "SC" Then
%>
<table width="100%">
<tr><td align="left">

<!-- GeoTrust QuickSSL [tm] Smart  Icon tag. Do not edit. -->
<script language="JavaScript"  type="text/javascript"  src="//smarticon.geotrust.com/si.js"></script>
<!-- end  GeoTrust Smart Icon tag --> 

</td></tr>
</table>
<%
End If
End Sub

' (SS,12/5/10) added a forth worldpay site seal
' (SS,30/9/10) added a fifth, same as 1 but without "payments powered by"
Sub ShowWorldPaySiteSeal(ASiteSeal)
	Dim LSiteSeal
	LSiteSeal = ASiteSeal
	If LSiteSeal = "" Then LSiteSeal = GetWorldPaySiteSeal 
	If LSiteSeal = "2" Then
		ShowWorldPaySiteSeal2
	ElseIf LSiteSeal = "3" Then
		ShowWorldPaySiteSeal3
	ElseIf LSiteSeal = "4" Then
		ShowWorldPaySiteSeal4
	ElseIf LSiteSeal = "5" Then
		ShowWorldPaySiteSeal5
	Else
		ShowWorldPaySiteSeal1
	End If
End Sub

Sub ShowWorldPaySiteSeal1
%>
<a href="http://www.worldpay.co.uk" target="_blank"><img src="images/worldpay-logo.gif" alt="Powered by WorldPay" border="0"></a>
<%
End Sub

Sub ShowWorldPaySiteSeal2
%>
<a href="http://www.worldpay.co.uk" target="_blank"><img src="images/worldpay-logo2.gif" alt="Powered by WorldPay" border="0"></a>
<%
End Sub

Sub ShowWorldPaySiteSeal3
%>
<a href="http://www.worldpay.co.uk" target="_blank"><img src="images/worldpay-logo3.gif" alt="Powered by WorldPay" border="0"></a>
<%
End Sub

' (SS,12/5/10)
Sub ShowWorldPaySiteSeal4
%>
<a href="http://www.worldpay.co.uk" target="_blank"><img src="images/worldpay-logo4.gif" alt="Payments powered by WorldPay" border="0"></a>
<%
End Sub

' (SS,30/5/10) same as 1 but without the "payments powered by" text, better for non-English sites
Sub ShowWorldPaySiteSeal5
%>
<a href="http://www.worldpay.co.uk" target="_blank"><img src="images/worldpay-logo5.gif" alt="Powered by WorldPay" border="0"></a>
<%
End Sub

' (SS,30/9/10) added larger and non-clickable versions
Sub ShowPayPalSiteSeal(ASiteSeal)
	Dim LSiteSeal
	LSiteSeal = ASiteSeal
	If LSiteSeal = "" Then LSiteSeal = GetPayPalSiteSeal 
	If LSiteSeal = "2" Then
		ShowPayPalSiteSeal2
	ElseIf LSiteSeal = "3" Then
		ShowPayPalSiteSeal3	
	ElseIf LSiteSeal = "4" Then
		ShowPayPalSiteSeal4	
	ElseIf LSiteSeal = "5" Then
		ShowPayPalSiteSeal5
	ElseIf LSiteSeal = "6" Then
		ShowPayPalSiteSeal6										
	Else
		ShowPayPalSiteSeal1
	End If
End Sub

' (SS,29/3/10) removed PayPal link which could cause confusion, people may click it when paying
' (SS,30/9/10) made clickable again, if non-clickable required then use ShowPayPalSiteSeal3
Sub ShowPayPalSiteSeal1
%>
<a href="#" onclick="javascript:window.open('https://www.paypal.com/us/cgi-bin/webscr?cmd=xpt/Marketing/popup/OLCWhatIsPayPal-outside','olcwhatispaypal','toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=yes, width=400, height=350');"><img src="images/paypal-logo.gif" alt="Payments by PayPal" border="0"></a>
<%
End Sub

' (SS,30/9/10) non-clickable version of 1
Sub ShowPayPalSiteSeal2
%>
<img src="images/paypal-logo.gif" alt="Payments by PayPal" border="0">
<%
End Sub

' (SS,30/9/10) 60 x 38 logo, modified to hold here instead of link to https://www.paypal.com/en_GB/GB/i/logo/PayPal_mark_60x38.gif
' for more details see https://www.paypal.com/uk/cgi-bin/webscr?cmd=xpt/cps/general/AcceptanceMarkLogos-outside
Sub ShowPayPalSiteSeal3
%>
<a href="#" onclick="javascript:window.open('https://www.paypal.com/uk/cgi-bin/webscr?cmd=xpt/Marketing/popup/OLCWhatIsPayPal-outside','olcwhatispaypal','toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=yes, width=400, height=350');">
<img src="images/paypal-logo2.gif" alt="Payments by PayPal" border="0">
</a>
<%
End Sub

' (SS,30/9/10) non clickable version of 3
' (SS,29/3/10) removed PayPal link which could cause confusion, people may click it when paying
Sub ShowPayPalSiteSeal4
%>
<img src="images/paypal-logo2.gif" border="0" alt="Payments by PayPal">
<%
End Sub

' (SS,30/9/10) larger 151 x 95 versions without "payments by" text
Sub ShowPayPalSiteSeal5
%>
<a href="#" onclick="javascript:window.open('https://www.paypal.com/uk/cgi-bin/webscr?cmd=xpt/Marketing/popup/OLCWhatIsPayPal-outside','olcwhatispaypal','toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=yes, width=400, height=350');">
<img src="images/paypal-logo3.gif" alt="Payments by PayPal" border="0">
</a>
<%
End Sub

' (SS,30/9/10) non clickable version of 5
Sub ShowPayPalSiteSeal6
%>
<img src="images/paypal-logo3.gif" alt="Payments by PayPal" border="0">
<%
End Sub

Sub ShowGoogleCheckoutSeal(ASiteSeal)
	Dim LSiteSeal
	LSiteSeal = ASiteSeal
	If LSiteSeal = "" Then LSiteSeal = GetGoogleCheckoutSiteSeal 
	If LSiteSeal = "2" Then
		ShowGoogleCheckoutSeal2
	ElseIf LSiteSeal = "3" Then
		ShowGoogleCheckoutSeal3
	Else
  	ShowGoogleCheckoutSeal1
  End If	
End Sub

' (SS,17/6/08)
Sub ShowGoogleCheckoutSeal1
%>
<link rel="stylesheet" href="https://checkout.google.com/seller/accept/s.css" type="text/css" media="screen" /> <script type="text/javascript" src="https://checkout.google.com/seller/accept/j-en_GB.js"></script> <script type="text/javascript">showMark(1);</script> <noscript><img src="https://checkout.google.com/seller/accept/images/st-en_GB.gif" width="92" height="88" alt="Google Checkout Acceptance Mark" /></noscript>
<%
End Sub

Sub ShowGoogleCheckoutSeal2
%>
<link rel="stylesheet" href="https://checkout.google.com/seller/accept/s.css" type="text/css" media="screen" /> <script type="text/javascript" src="https://checkout.google.com/seller/accept/j-en_GB.js"></script> <script type="text/javascript">showMark(2);</script> <noscript><img src="https://checkout.google.com/seller/accept/images/ht-en_GB.gif" width="182" height="44" alt="Google Checkout Acceptance Mark" /></noscript>
<%
End Sub

Sub ShowGoogleCheckoutSeal3
%>
<link rel="stylesheet" href="https://checkout.google.com/seller/accept/s.css" type="text/css" media="screen" /> <script type="text/javascript" src="https://checkout.google.com/seller/accept/j-en_GB.js"></script> <script type="text/javascript">showMark(3);</script> <noscript><img src="https://checkout.google.com/seller/accept/images/sc.gif" width="72" height="73" alt="Google Checkout Acceptance Mark" /></noscript>
<%
End Sub


Sub ShowEPDQSiteSeal
%>
<font color="#999999">payments powered by</font><br>
<a href="http://www.epdq.co.uk/" target="_blank"><img src="images/epdq-logo.gif" alt="Payments by ePDQ" border="0"></a>
<%
End Sub

' (SS,17/6/08)
Sub ShowSiteSealDivider
%>
<br><br>
<%
End Sub

%>