%@ 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 %>
| <% WriteString("PageTitle_Updated") %> |
| <% WriteString("ContentText_LanguagesUpdated") %> |
<% else %>
| <% WriteString("PageTitle_Problems") %> |
| <% WriteString("ContentText_PleaseGoBackAndCorrect") %> |
| <% =ErrorText %> |
| << <% WriteString("ContentText_BackLink") %> |
<% end if %>
|
<%
objDataConn.Close
set objDataConn = nothing
%>