 <%
    Response.Buffer = True
    Response.ContentType = "image/jpeg"
    Dim Obj,x,imgx,imgy
    x = Request.Querystring("X")
    imgx = 302
    imgy = 217
       
     Set Obj = Server.CreateObject("eKov.PicturePreviewer") 
      Obj.LoadFromFile  Server.MapPath(Request.QueryString("PANO"))
      Obj.FastResize 747, 217
      Obj.Crop x, 0, imgx + x, imgy
      Obj.Quality = 100	     
      Response.BinaryWrite Obj.GetImageAsJpeg
    Set Obj = nothing
    Response.End
%>