<% Response.ContentType="image/JPEG" Response.Expires = 0 dim strFileName,intSize intsize=request.QueryString("s") strFileName=request.QueryString("f") Set Image = Server.CreateObject("AspImage.Image") 'Response.ContentType="image/JPEG" strFileName="C:/Inetpub/vhosts/all-well.net/httpdocs/708rt134/"& strFileName Image.LoadImage (strFileName) If intSize <> "" Then Size = Int(intSize) Else Size = 100 End If Width = Image.MaxX Height = Image.MaxY If Width < Size Then Size = Width If Width > Height Then NewWidth = Round(Size/Width,2) NewHeight = Int(NewWidth*Height) Image.ResizeR Size,NewHeight Else NewHeight = Round(Size/Height,2) NewWidth = Int(NewHeight*Width) Image.ResizeR NewWidth,Size End If Image.ImageFormat = 1 Image.JPEGQuality = 60 Response.BinaryWrite Image.Image Set Image = nothing %>