<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "359, 401, 402, 570, 916, 1202" 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. '=============================================== dim numRecordID, numErrorNo, numExchangeRate For Each numCounter In request.form numRecordID = mid(numCounter, 4) numErrorNo = 0 If (NOT IsNumeric(request.form(numCounter))) then numErrorNo = numErrorNo +1 strErrorText = GetString("ContentText_ErrorCurrency") else 'grab text and number values from form strCurrencySymbol = request.form("sym"&numRecordID) strISOCode = request.form("iso"&numRecordID) numExchangeRate = request.form("exc"&numRecordID) strDecimals = request.form("dec"&numRecordID) strLive = request.form("isl"&numRecordID) If (NOT IsNumeric(numRecordID)) OR (NOT IsNumeric(numExchangeRate)) then numErrorNo = numErrorNo +1 else numCounter2=0 for numCounter2 = 1 to numTotalLanguages if aryLangLiveBack(numCounter2) = "y" then strLangName = request.form("nam"&numRecordID&"-"&numCounter2) strQuery = "UPDATE tblCactuShopCurrencies SET CUR_Name" & numCounter2 & "='" & sqlsafe(strLangName) & "' WHERE CUR_ID=" & numRecordID Call ExecuteSQL(strQuery, numCursorType, objRecordSet) end if next strQuery2 = "UPDATE tblCactuShopCurrencies SET CUR_Symbol='" & sqlsafe(strCurrencySymbol) & "', CUR_ISOCode='" & sqlsafe(strISOCode) & "', CUR_ExchangeRate=" & numExchangeRate & ", CUR_HasDecimals='" & strDecimals & "', CUR_Live='" & strLive & "' WHERE CUR_ID=" & numRecordID Call ExecuteSQL(strQuery2, numCursorType, objRecordSet) end if end if Next %>

<% if numErrorNo=0 then %> <% else %> <% end if %> <% WriteString("PageTitle_Updated") %> <% WriteString("ContentText_CurrenciesUpdatePagetext") %> <% WriteString("PageTitle_Problems") %> <% =strErrorText %> << <% WriteString("ContentText_BackLink") %>

<% objDataConn.Close set objDataConn = nothing %>