<% '************************************************************************* ' ASP Scripting: ' Filename: link_select_country_text.asp ' Written by: Wilbert Madarang ' Date: January 2, 2003 '************************************************************************* ' Description: This is a link to put appropriate verbage for selecting ' a country on the appropriate page. '************************************************************************* ' Revision History: ' October 21, 2003 ' 1.0 Addressed loophole. Buyers can change currency after putting in cart. ' For example, US price has lower ticket price. When switched to Canadian ' currency, price is still US ticket price, but now currency is Canadian. ' also, there are issues when a user selects different currencies in one ' shopping cart. '************************************************************************* ' November 8, 2003 ' 1.0 Addresses another loophole. Buyers can purchase in US Dollars. But ' sign-in as a Canadian customer. All prices will have a Cdn Currency with ' the US dollar price. ' 2.0 Solution. Added Session Variable "MyCurrency" and not "MyCountry" '************************************************************************* %> <% 'Retrieve Currency strCurrency = Session("MyCurrency") nShoppingCartItems = Session("NumShopItems") If strCurrency = "canada" OR strCurrency = "us" Then Else strCurrency = DEFAULT_COUNTRY End If strSelectCountryHandler = "handler_select_country.asp" ' Modified by WM. October 21, 2003 ' Check if There is an Item in the Shopping Cart. If there is, do not show this link. If ( nShoppingCartItems > 0 ) Then Else If strCurrency = "us" Then Response.Write "Canadian customers, please click " & "here.

" & vbCrlf Elseif strCurrency = "canada" Then Response.Write "US customers, please click " & "here.

" & vbCrlf End If End If 'End of Modification by WM - October 21, 2003 %>