<% 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/news")) strDate = Upload.Form("Date_Day") &" "& Upload.Form("Date_Month") &" "& Upload.Form("Date_Year") strDateEnd =Upload.Form("Date_Day_End") &" "& Upload.Form("Date_Month_End") &" "& Upload.Form("Date_Year_End") if not IsDate(strDate) OR not IsDate(strDateEnd) then %> <% Response.End() end if tempArr = split(LCase(request.servervariables("PATH_INFO")), "secure/") strFileDirectory = "http://"& request.servervariables("SERVER_NAME") & tempArr(0) strAnchorImage = " src=""" & strFileDirectory & "secure/Images/edit_toolbar/sml_anchor.gif""" strContentEditor = Upload.Form("article") arrSplit1 = Split(strContentEditor, strAnchorImage) if UBound(arrSplit1) > 0 then strContentEditor = "" For i = 0 to UBound(arrSplit1) if Left(Trim(Replace(arrSplit1(i), vbCrLf, "")), 1) = ">" then arrSplit1(i) = "> 0 then Set File = Upload.Files(1) If File.ImageType <> "JPG" then %> <% Response.End() else s_ImageName = File.FileName Set File = Nothing SaveImageNormal server.mappath("../../images/news/"& s_ImageName), server.mappath("../../images/news/sml_"& s_ImageName), 200 rsNews("ImageName") = s_ImageName rsNews("ImageDesc") = Upload.Form("ImageDesc") end if elseif not IsNull(rsNews("ImageName")) then rsNews("ImageDesc") = Upload.Form("ImageDesc") end if rsNews("Article") = Replace(strContentEditor, "&trgt=1", """ target=""_blank") rsNews.Update() end if rsNews.close set rsNews = nothing con.close set con = nothing response.redirect("news.asp?intPage="& Upload.Form("intPage") &"&buster="& server.URLEncode(now)) %>