<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "359, 401, 402, 1136" %> <% '=============================================== ' 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. '=============================================== '----------------------------------------------- 'COLLECT VALUES FROM FORM '----------------------------------------------- CFG_Name = Request.Form("CFG_Name") CFG_Value = Request.Form("CFG_Value") CFG_Group = request.Form("CFG_Group") CFG_DataType = request.Form("CFG_DataType") strSection = request.Form("strSection") '----------------------------------------------- 'ERROR CHECKING '----------------------------------------------- 'If it's a number datatype, check the value is numeric If Not IsNumeric(CFG_Value) and CFG_DataType = "n" Then numErrorNo = numErrorNo + 1 strErrorText = strErrorText + "" + Cstr(numErrorNo) + ". " + GetString("ContentText_ErrorChkConfigNumeric") & "
" End if '----------------------------------------------- 'UPDATE DATABASE RECORDS '----------------------------------------------- If strErrorText = "" Then strQuery = "UPDATE tblCactuShopConfig SET CFG_Value='" & sqlsafe(CFG_Value) & "' WHERE CFG_Name = '" & sqlsafe(CFG_Name) & "'" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) response.redirect("_config_list.asp?appvar=reset&strSection=" & strSection & "#" & replace(lcase(CFG_Group), " ", "_")) response.write strQuery else %>

<% WriteString("PageTitle_Problems") %> <% WriteString("ContentText_PleaseGoBackAndCorrect") %> <% =strErrorText %> << <% WriteString("ContentText_BackLink") %>

<% end if %>