<% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Response.Buffer = True Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Interpolation = 2 Jpeg.Open server.MapPath("/images/45317/img_2700.jpg") 'Jpeg.Width = (Jpeg.OriginalWidth / 1.05) 'Jpeg.Height = (Jpeg.OriginalHeight / 1.05) Jpeg.Quality = 50 Jpeg.Save server.MapPath("/test.jpg") 'Jpeg.SendBinary Set Jpeg = Nothing 'Set Image = Server.CreateObject("AspImage.Image") 'Image.Loadimage server.MapPath("/images/45317/45317.jpg") 'Image.ResizeR (Image.MaxX / 1.05), (Image.MaxY / 1.05) 'Image.FileName = server.MapPath("/test.jpg") 'Image.JPEGQuality = 20 'Image.SaveImage 'Set Image = nothing 'Set Obj = Server.CreateObject("eKov.PicturePreviewer") ' Obj.LoadFromFile server.MapPath("/images/45317/45317.jpg") 'newWidth = Obj.Width / 1/.05 'newHeight = Obj.Height / 1.05 'Obj.Resize newWidth, newHeight, 5 ' Obj.Quality = 20 ' Obj.SaveToFileAsJpeg server.MapPath("/test.jpg") 'Set Obj = nothing %>