<% response.buffer = true %> <% timeout(1) %> <% Set Upload = Server.CreateObject("Persits.Upload") Upload.ProgressID = Request.QueryString("PID") '----------------------------------------------------------------- ' Capture uploaded file. Save returns the number of files uploaded '----------------------------------------------------------------- Count = Upload.Save(server.mappath("../../images/content")) if Upload.Form("id") <> Empty and IsNumeric(Upload.Form("id")) then set con = server.createobject("ADODB.Connection") con.open Application("CString") set rsNews = server.createobject("ADODB.Recordset") rsNews.open "SELECT * FROM CMS_Page WHERE PageID = "& Upload.Form("id"), con, 1, 3 if not rsNews.EOF then rsNews.MoveFirst() rsNews("Heading") = Upload.Form("Heading") rsNews("UploadDate") = Now() if Count > 0 then Set File = Upload.Files(1) If File.ImageType <> "JPG" then %> <% Response.End() else s_ImageName = File.FileName rsNews("ImageName") = s_ImageName rsNews("ImageDesc") = Upload.Form("ImageDesc") Set File = Nothing SaveImageNormal server.mappath("../../images/content/"& s_ImageName), server.mappath("../../images/content/sml_"& s_ImageName), 200 end if else if not IsNull(rsNews("ImageName")) then rsNews("ImageDesc") = Upload.Form("ImageDesc") end if end if rsNews("FileContent") = Upload.Form("article") rsNews.Update rsNews.requery rsNews.movelast intNewsID = Upload.Form("id") rsNews.close set rsNews = nothing arrLinks = split(Upload.Form("article"), "href=""content.asp?id=") strSQL = "DELETE FROM CMS_PageEmbeddedLinks WHERE MainPageID = "& intNewsID &" " & VBCrLf For i = 1 to UBound(arrLinks) arrLinks2 = split(arrLinks(i), """") if UBound(arrLinks2) > -1 then if IsNumeric(arrLinks2(0)) then strSQL = strSQL &"IF NOT EXISTS(SELECT '1' FROM CMS_PageEmbeddedLinks WHERE MainPageID = "& intNewsID &" AND SubPageID = "& arrLinks2(0) &")"& VBCRLF strSQL = strSQL &"BEGIN"& VBCRLF & VBCRLF strSQL = strSQL &" IF EXISTS(SELECT '1' FROM CMS_Page WHERE PageID = "& arrLinks2(0) &")"& VBCRLF strSQL = strSQL &" INSERT INTO CMS_PageEmbeddedLinks(MainPageID, SubPageID, Broken) VALUES("& intNewsID &", "& arrLinks2(0) &", 0) "& VBCRLF strSQL = strSQL &" ELSE"& VBCRLF strSQL = strSQL &" INSERT INTO CMS_PageEmbeddedLinks(MainPageID, SubPageID, Broken) VALUES("& intNewsID &", "& arrLinks2(0) &", 1) "& VBCRLF & VBCRLF strSQL = strSQL &"END"& VBCRLF & VBCRLF end if end if Next if strSQL <> empty then con.execute(strSQL) end if con.close set con = nothing if Upload.Form("fromMenu") <> Empty then Response.Redirect("../CMS_Menu/Menu.asp?menuid=" & Server.URLEncode(Upload.Form("MenuID")) & "&buster="& Server.URLEncode(Now())) else response.redirect("list_news.asp?intPage="& Upload.Form("intPage") &"&buster="& server.URLEncode(now)) end if end if end if %>