<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "435, 716, 720, 355, 717, 718, 359, 721, 722, 158, 723, 870" 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. '=============================================== LS_FrontBack = lcase(request.QueryString("LS_FrontBack")) strThisSN = request.QueryString("strThisSN") strSearchString = request.Form("strSearchString") If LS_FrontBack <> "f" and LS_FrontBack <> "b" then LS_FrontBack = "" If IsNumeric(strSearchString) then strSearchNumericClause = " OR LS_ID=" & strSearchString '--------------------------------------------- 'HAS THE LANGUAGE BEEN SELECTED YET? '--------------------------------------------- numSelLanguageID = request.QueryString("numLangID") If numSelLanguageID = "" then 'Check to see if there are multiple languages if numTotalLanguages = 1 then numSelLanguageID = 1 else numSelLanguageID = 0 End if If numSelLanguageID = 0 then '----------------------------------------------- 'GET LIST OF LANGUAGES '----------------------------------------------- strQuery = "SELECT LANG_ID, LANG_BackName, LANG_FrontName FROM tblCactuShopLanguages" else If strSearchString <> "" then '----------------------------------------------- 'SEARCH FOR ITEMS BY VALUE '----------------------------------------------- blnDoingSections = False strQuery = "SELECT LS_ID, LS_Name, LS_Value, LS_FrontBack FROM tblCactuShopLanguageStrings" & CStr(numSelLanguageID) & " WHERE LS_Value LIKE '%" & sqlsafe(strSearchString) & "%' OR LS_Name LIKE '%" & sqlsafe(strSearchString) & "%'" & strSearchNumericClause & " ORDER BY LS_Name ASC" ElseIf LS_FrontBack <> "" and LS_FrontBack <> "" then '----------------------------------------------- 'LIST ITEMS IN A SPECIFIC SECTION '----------------------------------------------- blnDoingSections = False strQuery = "SELECT LS_ID, LS_Name, LS_Value, LS_FrontBack FROM tblCactuShopLanguageStrings" & CStr(numSelLanguageID) & " WHERE LS_FrontBack = '" & LS_FrontBack & "' AND LS_Name LIKE '" & strThisSN & "_%' ORDER BY LS_Name ASC" Else '----------------------------------------------- 'LIST SECTIONS '----------------------------------------------- blnDoingSections = True strQuery = "SELECT LS_Name, LS_FrontBack FROM tblCactuShopLanguageStrings" & CStr(numSelLanguageID) & " ORDER BY LS_FrontBack DESC, LS_Name ASC, LS_ID ASC" End If end if Call ExecuteSQL(strQuery, numCursorType, objRecordSet) %>

<% 'Build up trail if we've at least hit a language If numSelLanguageID > 0 then 'Get language name strQuery = "SELECT LANG_BackName FROM tblCactuShopLanguages WHERE LANG_ID = " & numSelLanguageID call executeSQL(strQuery, numCursorType, objRecordSet2) LANG_BackName = objRecordSet2("LANG_BackName") objRecordSet2.close strTrail = "" & GetString("ContentText_Languages") & " > " If blnDoingSections then strTrail = strTrail & LANG_BackName else If strSearchString <> "" then strTrail = strTrail & "" & LANG_BackName & " > " & GetString("ContentText_Search") & " : '" & strSearchString & "'" else strTrail = strTrail & "" & LANG_BackName & " > " & strThisSN end if end if else strTrail = " " end if %> <% If numSelLanguageID = 0 then %> <% else %> <% if Not blnDoingSections then %> <% if objRecordSet.bof and objRecordSet.eof then response.Write("") else do while not objRecordSet.EOF numBackgroundCounter = numBackgroundCounter + 1 If numBackgroundCounter mod 2 = 0 then strBgColour = "#EEEEEE" else strBgColour = "#DDDDDD" end if LS_Name = objRecordSet("LS_Name") If len(LS_Name) > 28 then LS_Name= left(LS_Name,25) & "..." LS_Value = objRecordSet("LS_Value") If len(LS_Value) > 28 then LS_Value= left(LS_Value,25) & "..." LS_FrontBack = objRecordSet("LS_FrontBack") %> <% objRecordSet.moveNext loop end if objRecordSet.Close response.Write("") else 'Search Box %> <% 'Categories list response.Write("") response.Write("") response.Write("") end if end if %> <% WriteString("ContentText_LanguageStrings") %> <% =strTrail %><% If numSelLanguageID > 0 Then %> (add new)<% End If %> Select Language <% 'List languages numCounter = 0 For numCounter = 1 to numTotalLanguages if aryLangLiveBack(numCounter) = "y" then response.Write " " & aryLangBackNames(numCounter) & " (add new) " end if Next %> <% WriteString("ContentText_LanguageString") %> <% WriteString("ContentText_Value") %> " & GetString("ContentText_NoResults") & " <% Response.Write(LS_Name) %> <% Response.Write(LS_FrontBack) %> <% Response.Write(LS_Value) %> ">" title="<% WriteSafeString("ImageLabel_EditThisVariable") %>" src="images_webshop/modify.gif" border="0"> << " & GetString("ContentText_BackLink") & " <% WriteString("ContentText_SearchLanguageString") %> "> <% WriteString("ContentText_BrowseByType") %> ") strLastFB = "" strLastSN = "" do while not objRecordSet.eof 'split up the arrray arySN = split(objRecordSet("LS_Name"), "_") 'Set this loops settings strThisFB = objRecordSet("LS_FrontBack") strThisSN = arySN(0) 'If LS_FrontBack different, this start a new unordered list If strThisFB <> strLastFB then strFrontOrBack = GetString("ContentText_FrontEndStrings") If strThisFB = "b" then strFrontOrBack = GetString("ContentText_BackEndStrings") If strLastFB = "" then response.Write(strFrontOrBack & " ") else response.Write(" " & strFrontOrBack & " ") end if end if 'If Section is different, then write a new list item If strThisSN <> strLastSN then response.Write(" " & strThisSN & " ") end if 'Set the current settings to the last settings strLastFB = strThisFB strLastSN = strThisSN objRecordSet.movenext loop objRecordSet.close response.Write("

<% objDataConn.Close set objDataConn = nothing %>