<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "400, 450, 451, 489, 905, 906, 908, 909, 910, 911" strThisBackPage = "config" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'MODIFY TAXRATES 'This page pulls out the current tax rates into 'a form from where they can be updated if 'necessary. '----------------------------------------------- strQuery = "SELECT * FROM tblCactuShopCurrencies ORDER BY CUR_ID" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) %>

<% do while not objRecordSet.EOF numCurrencyTotal = numCurrencyTotal+1 %> <% objRecordSet.moveNext loop objRecordSet.Close %> <% WriteString("PageTitle_Currencies") %> <% =GetString("ContentText_CurrencyType") & " " & numCurrencyTotal %> <% numCounter = 0 for numCounter = 1 to numTotalLanguages if aryLangLiveBack(numCounter) = "y" then %> <% end if next %> <% WriteString("ContentText_Symbol") %> " value="<% =objRecordSet("CUR_Symbol") %>"> <% WriteString("ContentText_ISOCode") %> " value="<% =objRecordSet("CUR_ISOCode") %>"> <% WriteString("ContentText_ExchangeRate") %> " value="<% =objRecordSet("CUR_ExchangeRate") %>"> <% WriteString("ContentText_CurrencyDecimalFractions") %> <% WriteString("ContentText_RadioYes") %> name="dec<% =objRecordSet("CUR_ID") %>" value="y">  <% WriteString("ContentText_RadioNo") %> name="dec<% =objRecordSet("CUR_ID") %>" value="n"> <% WriteString("ContentText_CurrencyIsLive") %> <% WriteString("ContentText_RadioYes") %> name="isl<% =objRecordSet("CUR_ID") %>" value="y">  <% WriteString("ContentText_RadioNo") %> name="isl<% =objRecordSet("CUR_ID") %>" value="n">   <% =aryLangBackNames(numCounter) %> -<%=numCounter%>" value="<% =objRecordSet("CUR_Name" & CStr(numCounter)) %>"> ">

<% objDataConn.Close set objDataConn = nothing %>