<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "570, 882" 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. '=============================================== 'Get the comma-delimited list of news ids and split into array aryNewsIDs = split(Mid(request.form("LangIDs"), 3), ",") If strErrorText = "" then For Each i In aryNewsIDs LANG_BackName = request.Form("e" & i) LANG_FrontName = request.Form("r" & i) LANG_SkinLocation = request.Form("s" & i) LANG_LiveBack = request.Form("lb" & i) LANG_LiveFront = request.Form("lf" & i) LANG_EmailFrom = request.Form("er" & i) LANG_EmailTo = request.Form("eo" & i) LANG_EmailToContact = request.Form("ec" & i) If LANG_LiveBack <> "y" then LANG_LiveBack = "n" If LANG_LiveFront <> "y" then LANG_LiveFront = "n" strQuery="UPDATE tblCactuShopLanguages SET LANG_BackName='" & sqlsafe(LANG_BackName) & "', LANG_FrontName='" & sqlsafe(LANG_FrontName) & "', LANG_SkinLocation='" & sqlsafe(LANG_SkinLocation) & "', LANG_LiveFront='" & sqlsafe(LANG_LiveFront) & "', LANG_LiveBack='" & sqlsafe(LANG_LiveBack) & "', LANG_EmailFrom = '" & sqlsafe(LANG_EmailFrom) & "', " & "LANG_EmailTo = '" & sqlsafe(LANG_EmailTo) & "', LANG_EmailToContact = '" & sqlsafe(LANG_EmailToContact) & "' WHERE LANG_ID=" & i Call ExecuteSQL(strQuery, numCursorType, objRecordSet) Next End If %> <% =GetString("Config_headtitle") %>
<% if strErrorText = "" then %> <% else %> <% end if %>
<% WriteString("PageTitle_Updated") %>
<% WriteString("ContentText_LanguagesUpdated") %>
<% WriteString("PageTitle_Problems") %>
<% WriteString("ContentText_PleaseGoBackAndCorrect") %>
<% =ErrorText %>
<< <% WriteString("ContentText_BackLink") %>
<% objDataConn.Close set objDataConn = nothing %>