<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "359, 401, 402, 570, 575, 576" 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 For Each numCounter In Request.Form numRecordID = mid(numCounter,2) strTypeID = left(numCounter,1) Select Case strTypeID Case "n" numDashPoint = instr(numCounter, "-") numCurrLangID = mid(numCounter, numDashPoint + 1) numRecordID = mid(numCounter,2,1) strQuery = "UPDATE tblCactuShopShippingMethods SET SM_Name" & numCurrLangID & "='" & sqlsafe(request.form(numCounter)) & "' WHERE SM_ID=" & numRecordID Case "d" numDashPoint = instr(numCounter, "-") numCurrLangID = mid(numCounter, numDashPoint + 1) numRecordID = mid(numCounter,2,1) strQuery = "UPDATE tblCactuShopShippingMethods SET SM_Description" & numCurrLangID & "='" & sqlsafe(request.form(numCounter)) & "' WHERE SM_ID=" & numRecordID Case "w" if isnumeric(request.form(numCounter)) then strQuery = "UPDATE tblCactuShopShippingRates SET S_Boundary=" & request.form(numCounter) & " WHERE S_ID=" & numRecordID else numErrorNo = numErrorNo +1 end if Case "x" if isnumeric(request.Form(numCounter)) then strQuery = "UPDATE tblCactuShopShippingRates SET S_ShippingRate=" & request.form(numCounter) & " WHERE S_ID=" & numRecordID else numErrorNo = numErrorNo +1 end if Case "v" strQuery = "UPDATE tblCactuShopShippingRates SET S_Live='" & sqlsafe(request.form(numCounter)) & "' WHERE S_ID=" & numRecordID End Select Call ExecuteSQL(strQuery, numCursorType, objRecordSet) Next %>

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

<% objDataConn.Close set objDataConn = nothing %>