> Dim objPictureProcessor
> Set objPictureProcessor =
> Server.CreateObject("COMobjects.NET.PictureProcessor")
> Dim strPath
> strPath = Server.MapPath(Request.QueryString("path"))
> objPictureProcessor.LoadFromFile strPath
> objPictureProcessor.SmoothFactor = 50
> objPictureProcessor.OptimizationOn = True
> objPictureProcessor.Quality = 70
> Dim intNewWidth, intNewHeight, dblScale
> dblScale = 0.25
> intNewWidth = CInt(objPictureProcessor.Width * dblScale)h
> intNewHeight = CInt(objPictureProcessor.Height * dblScale)r
> objPictureProcessor.FastResize intNewWidth, intNewHeight
> Response.Clear
> Response.ContentType = "image/jpeg"