<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "325, 333, 355, 359, 400, 427, 429, 716, 719, 870, 871, 1075, 1079" 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. '=============================================== '----------------------------------------------- 'MODIFY LANGUAGE STRING '----------------------------------------------- numLangID = request.QueryString("numLangID") LS_ID = request.Querystring("LS_ID") 'Error-check numLangID... If Not IsNumeric(numLangID) Then Response.Redirect("_langstrings_list.asp") ElseIf Not IsNull(numLangID) Or numLangID = "" Then numLangID = CInt(numLangID) If numLangID < 1 Or numLangID > numTotalLanguages Then Response.Redirect("_langstrings_list.asp") End If End If '----------------------------------------------- 'RUN DATABASE QUERY '----------------------------------------------- If LS_ID = "" Or IsNull(LS_ID) Then blnNewString = true strQuery = "SELECT MAX(LS_ID) AS LS_ID FROM tblCactuShopLanguageStrings" & CStr(numLangID) Else strQuery = "SELECT * FROM tblCactuShopLanguageStrings" & CStr(numLangID) & " WHERE LS_ID=" & LS_ID End If Call ExecuteSQL(strQuery, numCursorType, objRecordSet) numRecordCount=objRecordSet.RecordCount 'If a record has been found then set variables If numRecordCount>0 and blnNewString <> true then LS_ID = objRecordSet("LS_ID") LS_FrontBack = objRecordSet("LS_FrontBack") LS_Value = objRecordSet("LS_Value") LS_Name = SafeHTMLencode(objRecordSet("LS_Name")) LS_Description = SafeHTMLencode(objRecordSet("LS_Description")) LS_VersionAdded = SafeHTMLencode(objRecordSet("LS_VersionAdded")) Else blnNewString = True LS_ID = objRecordSet("LS_ID") End If objRecordSet.close If blnNewString = true Then LS_ID = LS_ID + 1 LS_VersionAdded = CACTUSHOPVERSION newLS_ID = request.QueryString("newLS_ID") If Not newLS_ID = "" Then LS_ID = newLS_ID LS_FrontBack = request.QueryString("LS_FrontBack") LS_Name = request.QueryString("LS_Name") LS_VersionAdded = Request.QueryString("LS_VersionAdded") If Not numLangID = Application(LICENSENUMBER & "defaultlanguageid") Then blnDoPrimary = True strQuery = "SELECT LS_Name, LS_Value, LS_Description, LS_FrontBack FROM tblCactuShopLanguageStrings" & Application(LICENSENUMBER & "defaultlanguageid") & " WHERE LS_ID = " & LS_ID Call ExecuteSQL(strQuery, numCursorType, objRecordSet) If Not (objRecordSet.BOF And objRecordSet.EOF) Then LS_PriName = SafeHTMLEncode(objRecordSet("LS_Name")) LS_PriValue = SafeHTMLEncode(objRecordSet("LS_Value")) LS_PriDescription = SafeHTMLEncode(objRecordSet("LS_Description")) LS_PriFrontBack = objRecordSet("LS_FrontBack") End If objRecordSet.Close End If End If If Not Request.QueryString("prefix") = "" Then LS_FrontBack = Request.QueryString("fb") LS_Name = Request.QueryString("prefix") & "_" End If End If %>

<% if blnNewString = true then %><% end if %> <% if blnNewString=true then WriteString("ContentText_LanguageStrings") else WriteString("PageTitle_EditLanguageString") %> <% '----------------------------------------------- 'PRODUCE PAGE TRAIL LINKS '----------------------------------------------- strQuery = "SELECT LANG_BackName FROM tblCactuShopLanguages WHERE LANG_ID = " & numLangID call executeSQL(strQuery,numCursorType,objRecordSet2) strLanguageBackName = objRecordSet2("LANG_BackName") objRecordSet2.close arySN = split(LS_Name, "_") strTrail = "" & GetString("ContentText_Languages") & " > " strTrail = strTrail & "" & strLanguageBackName & " > " if blnNewString=true then strTrail = strTrail & "New" else strTrail = strTrail & "" & arySN(0)& " > " strTrail = strTrail & LS_Name end if response.Write(strTrail) %> <% WriteString("ContentText_ID") %>: <% =LS_ID %> <% WriteString("ContentText_VersionAdded") %>: <% = LS_VersionAdded %> <% If blnDoPrimary = True Then %>* = <% WriteString("ContentText_PrimaryStringDetails") %><% End If %> <% WriteString("ContentText_FrontOrBack") %> >Front<% If blnDoPrimary And LS_PriFrontBack = "f" Then %> *<% End If %> >Back<% If blnDoPrimary And LS_PriFrontBack = "b" Then %> *<% End If %>   <% WriteString("ContentText_Name") %> <% If blnDoPrimary Then Response.Write(" * " & LS_PriName) End If %> <% WriteString("ContentText_Value") %> <% =SafeHTMLEncode(LS_Value) %><% If blnDoPrimary Then Response.Write(" * " & LS_PriValue) End If %> <% WriteString("ContentText_Description") %> <% =SafeHTMLEncode(LS_Description) %><% If blnDoPrimary Then Response.Write(" * " & LS_PriDescription) End If %> << <% WriteString("ContentText_BackLink") %> ">

<% objDataConn.Close set objDataConn = nothing %>