<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "995, 996, 997, 998, 999, 1000, 1001, 333, 325" 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. '================================================ server.scripttimeout = 3000 strFrontBack = request.QueryString("strFrontBack") if strFrontBack <> "b" then strFrontBack = "f" '----------------------------------------------- 'LIST CATEGORIES FOR GATEWAY PAGES '----------------------------------------------- %>

<% For numCounter = 1 to numTotalLanguages if aryLangLiveBack(numCounter) = "y" and numCounter & "" <> numDefaultLanguage & "" then %> <% strQuery = "SELECT tblCactuShopLanguageStrings" & numDefaultLanguage & ".LS_ID, tblCactuShopLanguageStrings" & numDefaultLanguage & ".LS_Name, tblCactuShopLanguageStrings" & numDefaultLanguage & ".LS_VersionAdded FROM tblCactuShopLanguageStrings" & numDefaultLanguage & " LEFT OUTER JOIN tblCactuShopLanguageStrings" & numCounter & " ON tblCactuShopLanguageStrings" & numDefaultLanguage & ".LS_ID = tblCactuShopLanguageStrings" & numCounter & ".LS_ID WHERE tblCactuShopLanguageStrings" & numCounter & ".LS_ID IS NULL AND tblCactuShopLanguageStrings" & numDefaultLanguage & ".LS_FrontBack = '" & strFrontBack & "' ORDER BY tblCactuShopLanguageStrings" & numDefaultLanguage & ".LS_ID ASC" call ExecuteSQL(strQuery,numCursorType,objRecordSet) If objRecordSet.BOF and objRecordSet.EOF then %> <% else %> <% end if objRecordSet.Close End If Next %> <% WriteString("PageTitle_LanguageStringsIntegrity") %> <% WriteString("ContentText_LangStringsIntegrityDesc") %> (<%= aryLangBackNames(numDefaultLanguage) %> - tblCactuShopLanguageString<%= numDefaultLanguage %>) <% WriteString("ContentText_LangStringsIntegrityDesc2") %> <% if strFrontBack = "f" then %> <% WriteString("ContentText_ViewBackendStrings") %> <% else %> <% WriteString("ContentText_ViewFrontendStrings") %> <% end if %>   <%= aryLangBackNames(numCounter) %> - tblCactuShopLanguageString<%= numCounter %> <% WriteString("ContentText_NoMissingLangStrings") %> <% do while not objRecordSet.EOF 'Alternate background colour numBackgroundCounter = numBackgroundCounter + 1 If numBackgroundCounter mod 2 = 0 then strBgColour="#EEEEEE" else strBgColour="#DDDDDD" %> <% objRecordSet.MoveNext Loop %> <% WriteString("ContentText_ID") %> <% WriteString("ContentText_Name") %>   <%= objRecordSet("LS_ID") %> <%= objRecordSet("LS_Name") %> &LS_Name=<%=objRecordSet("LS_Name")%>&LS_VersionAdded=<%=objRecordSet("LS_VersionAdded")%>&LS_FrontBack=<%=strFrontBack%>">

<% Set objRecordSet = Nothing objDataConn.Close set objDataConn = nothing %>