Here is the image

<%
' Create an instance of ImageEn
Set image = Server.CreateObject("ImageEnASP.ImageEn")

' Select page to see
image.SetIOProperty "TIFF_ImageIndex", session("PageIndex")

' Open image
image.Open Server.MapPath(".\") & "\image4.tif"

' resample
image.Resample 512,-1, 1

' send the image to the browser as jpeg
image.SendBinary
%>