Q/. How can I add the multi currency selector with a flag to my header, like the one on the YourVirtualStore site?

A/.

To add currency switching to your header as appears in the YourVirtualStore header, follow the steps below.

Step 1 - Add this code to atemplate_default.asp or shoppage_header.htm where you want the link to appear:

<%'======================================= 'YourVirtualStore code 'Cam Flanigan/Claire Banks 'Added currency display to home page '======================================= If GetSess("theimage") <> "" then Response.write "<a href=""rox_currencychange.asp"">Display prices in: </a> " %></td><td align="right" nowrap class="menulite"><% Response.write "<a href=""rox_currencychange.asp""><img src=""" & GetSess("theimage") & """ border=0 alt=""Set your currency"" height=""20""></a> " ElseIf GetSess("Fullunitname") <> "" then Response.write "<a href=""rox_currencychange.asp"">Display prices in: " Response.write "" & GetSess("Fullunitname") & "</a>" Else Response.write "<a href=""rox_currencychange.asp"">Choose Your Location" End If '=======================================%>

Step 2 - Locate the following line in rox_currencychange.asp:
       sql="select CID,Fullunitname,Conversionvalue,currencysymbol from currencyvalues where CID = '" & Request("CID") & "'"

Change it to:
       sql="select CID,Fullunitname,Conversionvalue,currencysymbol,theimage from currencyvalues where CID = '" & Request("CID") & "'"

Step 3 - Locate the following line in rox_currencychange.asp:
       SetSess "Newcurrencysymbol",rs("currencysymbol")

Add the following line below it:
       SetSess "theimage",rs("theimage")

Step 4 - Locate the following line in rox_convertcurrency.asp:
       Call GetCurrData(CurrencyID, CurrName, CurrRate, CurrSymbol)

Change it to:
       Call GetCurrData(CurrencyID, CurrName, CurrRate, CurrSymbol, CurrImage)

Step 5 - Locate the following line in rox_convertcurrency.asp:
       SetSess "IncVAT", CBool(VAT)

Add the following line below it:
       SetSess "theimage", CurrImage

Step 6 - Locate the following line in rox_convertcurrency.asp:
       Sub GetCurrData(CurrID, CurrName, CurrRate, CurrSymbol)

Change it to:
       Sub GetCurrData(CurrID, CurrName, CurrRate, CurrSymbol, CurrImage)

Step 7 - Locate the following line in rox_convertcurrency.asp:
       CurrSymbol=rs("currencysymbol")

Add the following line below it:
       CurrImage=rs("theimage")

printable version

Back to Main Page