<% response.buffer = true response.CacheControl = "no-cache" %> <% timeout(1) %> <% Set Upload = Server.CreateObject("Persits.Upload") Upload.OverWriteFiles = False Upload.ProgressID = Request.QueryString("PID") '----------------------------------------------------------------- ' Capture uploaded file. Save returns the number of files uploaded '----------------------------------------------------------------- Count = Upload.Save(server.mappath("../../images/temp/")) s_Actoin = Upload.Form("action") i_ImageID = Upload.Form("ImageID") s_NewDesc = Upload.Form("NewDesc") s_EditDesc =Upload.Form("EditDesc") s_ImageName = NULL set con = server.createobject("ADODB.Connection") con.open Application("CString") if Count > 0 then Set File = Upload.Files(1) If File.ImageType <> "JPG" then %> <% Response.End() else s_ImageName = File.FileName s_ImageDesc = s_NewDesc Set File = Nothing Set jpeg = Server.CreateObject("Persits.Jpeg") jpeg.Open(server.mappath("../../images/Temp/"&s_ImageName)) if jpeg.Width < 500 OR jpeg.Height < 152 then %> <% response.end jpeg.close end if ImageCropper server.mappath("../../images/Temp/"& s_ImageName), server.mappath("../../images/content/"& s_ImageName), 500, 152 end if set rsImage = server.createobject("ADODB.Recordset") rsImage.open "SELECT * from Image Where 1=2 ", con, 1, 3 rsImage.AddNew() rsImage("ImageName") = s_ImageName rsImage("Description") = s_NewDesc rsImage.Update() rsImage.close set rsImage = nothing DeleteFile server.mappath("../../images/Temp/"& s_ImageName) response.Redirect("images.asp?cache="&server.URLEncode(now())) end if response.Redirect("images.asp?cache="&server.URLEncode(now())) %>