<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "325, 355, 359, 401, 402" 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. '=============================================== '----------------------------------------------- 'COLLECT VALUES FROM FORM '----------------------------------------------- LS_ID = sqlsafe(Request.Form("LS_ID")) LS_Name = sqlsafe(Request.Form("LS_Name")) LS_Value = sqlsafe(Request.Form("LS_Value")) LS_FrontBack = sqlsafe(request.Form("LS_FrontBack")) LS_Description = sqlsafe(request.Form("LS_Description")) LS_VersionAdded = sqlsafe(request.Form("LS_VersionAdded")) numLangID = sqlsafe(request.Form("numLangID")) strCallMode = request.Form("strCallMode") '----------------------------------------------- 'ERROR CHECKING '----------------------------------------------- strErrorText = CheckNotBlank(strErrorText, numErrorNo, GetString("ContentText_Name"), LS_Name) strErrorText = CheckNotBlank(strErrorText, numErrorNo, GetString("ContentText_Value"), LS_Value) strErrorText = ErrorcheckLength(strErrorText, numErrorNo, GetString("ContentText_Name"), LS_Name, Application(LICENSENUMBER & "LS_Name_AL")) strErrorText = ErrorcheckLength(strErrorText, numErrorNo, GetString("ContentText_Value"), LS_Value, Application(LICENSENUMBER & "LS_Value_AL")) '----------------------------------------------- 'UPDATE DATABASE RECORDS '----------------------------------------------- If strErrorText = "" then '----------------------------------------------- 'FORM UPDATE OR INSERT QUERY '----------------------------------------------- If strCallMode = "New" then strQuery = "INSERT INTO tblCactuShopLanguageStrings" & CStr(numLangID) & " (LS_ID, LS_FrontBack, LS_Name, LS_Value, LS_Description, LS_VersionAdded) VALUES (" & LS_ID & ",'" & LS_FrontBack & "','" & LS_Name & "','" & LS_Value & "','" & LS_Description & "'," & LS_VersionAdded & ")" Else strQuery = "UPDATE tblCactuShopLanguageStrings" & CStr(numLangID) & " SET LS_FrontBack='" & LS_FrontBack & "', LS_Name='" & LS_Name & "', LS_Value='" & LS_Value & "', LS_Description='" & LS_Description & "', LS_VersionAdded=" & LS_VersionAdded & " WHERE LS_ID = " & LS_ID End If Call ExecuteSQL(strQuery, numCursorType, objRecordSet) strQuery = "SELECT LS_FrontBack, LS_Name FROM tblCactuShopLanguageStrings" & CStr(numLangID) & " WHERE LS_ID = " & LS_ID Call ExecuteSQL(strQuery, numCursorType, objRecordSet) arySN = split(objRecordSet("LS_Name"), "_") strThisFB = objRecordSet("LS_FrontBack") strThisSN = arySN(0) response.redirect("_langstrings_list.asp?numLangID=" & numLangID & "&strThisSN=" & strThisSN & "&LS_FrontBack=" & strThisFB) else %>

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

<% end if %>