<%
Dim imgid
imgid = Request.Querystring("IMG")
If imgid = "" Then imgid = "http://www.houseviewonline.com/webimages/pna.jpg"


Call Showthumbimage(imgid)

function Showthumbimage(objHTTP)
   Dim Obj
   Set Obj = Server.CreateObject("eKov.PicturePreviewer") 
       Obj.LoadFromFile Server.MapPath(objHTTP)
       Obj.FastResize  Obj.Width / 6.7, Obj.Height / 6.7
       Obj.Quality = 50
       Response.ContentType = "image/jpeg"
       Response.Buffer = True
       Response.Clear
       Response.BinaryWrite Obj.GetImageAsJpeg
   Set Obj = nothing
       Response.End
 end function 
%>