<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "400, 492, 493, 494, 495, 538, 540, 876" 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 NEWS STORIES PAGE 'Most shops will have a requirement to feature 'some news stories or other details that can be 'changed easily from the back end. This page is 'where the site owner can change these stories. '----------------------------------------------- '----------------------------------------------- 'GET LANGUAGE '----------------------------------------------- numLangID = request.form("numLangID") If numLangID = "" then numLangID = numDefaultLanguage '----------------------------------------------- 'MODIFY NEWS STORIES PAGE '----------------------------------------------- strQuery = "SELECT * FROM tblCactuShopNews WHERE N_Language = " & numLangID Call ExecuteSQL(strQuery, numCursorType, objRecordSet) %>

<% strNewsIDs = "0" do while not objRecordSet.EOF numItemCount = numItemCount + 1 %> <% strNewsIDs = strNewsIDs & "," & objRecordSet("N_ID") %> <% if numItemCount = 1 then %> <% end if %> <% objRecordSet.moveNext loop objRecordSet.Close %> <% WriteString("PageTitle_FrontNewsItems") %> - <%= aryLangBackNames(numLangID) %> <% WriteString("FormLabel_Language") %>: <% numCounter = 0 For numCounter = 1 to numTotalLanguages If aryLangLiveBack(numCounter) = "y" then if cstr(numCounter) = cstr(numLangID) then response.Write "" & aryLangBackNames(numCounter) & "" else response.Write "" & aryLangBackNames(numCounter) & "" end if end if Next %>   <% WriteString("ContentText_Story") %> <% =" " & objRecordSet("N_ID") %> <% WriteString("ContentText_Headline") %> " value="<% response.write(SafeHTMLEncode(objRecordSet("N_Headline"))) %>"> <% WriteString("ContentText_Content") %> " cols="40" wrap="on"><% response.write(SafeHTMLEncode(objRecordSet("N_Content"))) %> <% WriteString("ContentText_NormalImage") %> <% '----------------------------------------- 'FIND AND SHOW EXISTING IMAGE (IF ANY) '----------------------------------------- Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") strImageFile = GetFileLocation(Server.MapPath(Application(LICENSENUMBER & "uploadsfolder") & "images_products/"), "news" & numLangID, Split(Application(LICENSENUMBER & "allowedimages"), ","), objFileSystem) If strImageFile = "" Then strFileStatus = GetString("ContentText_NoImagePresent") Else strFileStatus = " " End if '----------------------------------------- 'HANDLE LOGO DISPLAY AND UPLOADER BOX '----------------------------------------- Response.Write(strFileStatus) %> <% If Not strImageFile = "" Then %> <% WriteString("ContentText_TickHereToRemoveImage") %> <% End If %> ">

<% objDataConn.Close set objDataConn = nothing %>