<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "400, 445, 875, 876, 877, 878, 879, 880, 881" 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 LANGUAGES 'Switch languages on/off and change their names '----------------------------------------------- strQuery = "SELECT * FROM tblCactuShopLanguages" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) %>

<% numLanguageIDs = "0" do while not objRecordSet.EOF %> <% numLanguageIDs = numLanguageIDs & "," & objRecordSet("LANG_ID") %> <% objRecordSet.moveNext loop objRecordSet.Close %> <% WriteString("PageTitle_Languages") %> <% WriteString("FormLabel_Language") %> <%= objRecordSet("LANG_ID") %> <% WriteString("FormLabel_BackName") %> " value="<%= objRecordSet("LANG_BackName") %>"> <% WriteString("FormLabel_FrontName") %> " value="<%= objRecordSet("LANG_FrontName") %>"> <% WriteString("FormLabel_SkinLocation") %> " value="<%= objRecordSet("LANG_SkinLocation") %>">   Email Address (Orders) " value="<%= objRecordSet("LANG_EmailTo") %>"> Email Address (Contact Form) " value="<%= objRecordSet("LANG_EmailToContact") %>"> 'Reply To' Email Address " value="<%= objRecordSet("LANG_EmailFrom") %>">   <% WriteString("FormLabel_LiveBack") %> " <% If objRecordSet("LANG_LiveBack") = "y" then response.Write " checked=""checked"""%>> <% WriteString("FormLabel_LiveFront") %> " <% If objRecordSet("LANG_LiveFront") = "y" then response.Write " checked=""checked"""%>>   ">

<% objDataConn.Close set objDataConn = nothing %>