<%
Dim imgid,imgwidth,imgheight,strbrand

imgid = Request.Querystring("IMG")
imgwidth = Request.Querystring("W")
imgheight = Request.Querystring("H")
strbrand = LCase(Request.Querystring("B"))

If imgid = "" Then imgid = "http://www.houseviewonline.com/webimages/pna.jpg"
If imgwidth = "" Then imgid = 360
If imgheight = "" Then imgid = 240


Call GetImage(imgid, imgwidth, imgheight, strbrand)

function GetImage(objHTTP, objWIDTH, objHEIGHT, objBRAND)
   Dim Obj
   Set Obj = Server.CreateObject("eKov.PicturePreviewer") 
       Obj.LoadFromURL objHTTP 
       Obj.Resize  objWIDTH, objHEIGHT, 5
       'Obj.FastResize  objWIDTH, objHEIGHT
       IF objBRAND <> "" Then
         Obj.TextAlignment = 0
         Obj.FontItalicOn = False
         Obj.FontBoldOn = True
         Obj.FontStrikeOutOn = False
         Obj.FontUnderlineOn = False
         Obj.FontName = "Arial"
         Obj.FontSize = (objHEIGHT / 10) / 2
         Obj.FontColor = RGB(0,0,0)
         Obj.TextOut Obj.FontSize, objHEIGHT-Obj.FontSize , objBRAND
       End if
       Obj.Quality = 100
       Response.ContentType = "image/jpeg"
       Response.Buffer = True
       Response.Clear
       Response.BinaryWrite Obj.GetImageAsJpeg
   Set Obj = nothing
       Response.End
 end function 
%>