<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "355, 365, 430, 431, 432, 433, 434, 435, 798" 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. '=============================================== appvar = request.QueryString("appvar") if instr(appvar,"#") > 0 then aryAppVar = split(appvar,"#") appvar = aryAppVar(0) end if 'If a specific section was passed, add in a WHERE clause strSection = request.QueryString("strSection") strPaymentGateways = "'payflowpro','protx','paypal','authorizenet','cactuspay','UPS','verisign','worldpay','secure trading','secpay','AIM'" Select Case strSection Case "pg" 'Payment gateways only strWhereClause = " WHERE CFG_Group IN (" & strPaymentGateways & ")" case "al" 'Allowable lengths section strWhereClause = " WHERE CFG_Group IN ('allowable lengths')" case "ss" 'Site settings - everything but the above strWhereClause = " WHERE CFG_Group NOT IN (" & strPaymentGateways & ",'allowable lengths')" End Select '----------------------------------------------- 'LIST CONFIG SETTINGS '----------------------------------------------- strQuery = "SELECT * FROM tblCactuShopConfig" & strWhereClause & " ORDER BY CFG_Group, CFG_Name" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) %>

<% If appvar = "reset" then %> <% end if %> <% numMaxLength = 35 do while not objRecordSet.EOF 'Ignore the ignore section (surprisingly) If objRecordSet("CFG_Group") <> "ignore" then numBackgroundCounter = numBackgroundCounter + 1 If numBackgroundCounter mod 2 = 0 then strBgColour="#EEEEEE" else strBgColour="#DDDDDD" CFG_Value = objRecordSet("CFG_Value") If len(CFG_Value) > numMaxLength then CFG_Value = left(CFG_Value, numMaxLength - 3) & "..." 'Write out the section title if it's different 'to the last one If CFG_Group <> objRecordSet("CFG_Group") then%> <% end if 'Write out the config setting and edit button %> <% CFG_Group = objRecordSet("CFG_Group") end if objRecordSet.moveNext loop objRecordSet.Close %> <% WriteString("PageTitle_ConfigListing") %> <% WriteString("ContentText_BackToCategories") %> <% WriteString("ContentText_ConfigAppVariablesRebuilt") %> <% WriteString("ContentText_AppVariable") %> <% WriteString("ContentText_Value") %> <% WriteString("ContentText_Type") %> "><% =Ucase(objRecordSet("CFG_Group")) %> <% =objRecordSet("CFG_Name") %> <% =CFG_Value %> <% =objRecordSet("CFG_DataType") %> &strSection=<%=strSection%>">" title="<% WriteSafeString("ImageLabel_EditThisVariable") %>" src="images_webshop/modify.gif" border="0">

<% objDataConn.Close set objDataConn = nothing %>