<% @Import Namespace="System.Drawing" %>
<%

Dim objImage  As System.Drawing.Image 
DIM objThumbnail As System.Drawing.Image
Dim strFilename As String
Dim sDirPath As String
dim iHeight as long
dim iWidth as long

'sDirPath = "G:\development\Altisbiologics\images\DBImages\"
sDirPath = "D:\web\Altisbiologics_2006\images\DBImages\"
strFilename = sDirPath  & Request.QueryString("pic")
iHeight = Request.QueryString("Height")
iWidth = Request.QueryString("Width")
Try
	objImage = objImage.FromFile(strFilename)
Catch
    objImage = objImage.FromFile(sDirPath  & "imge_not_available.gif")
End Try

'objThumbnail = objImage.GetThumbnailImage(iHeight,((iWidth * objImage.Height) / objImage.Width) , Nothing, System.IntPtr.Zero)
objThumbnail = objImage.GetThumbnailImage(iWidth, iHeight, Nothing, System.IntPtr.Zero)
'Response.ContentType = "image/jpeg"
Response.ContentType = "image/gif"
objThumbnail.Save(Response.OutputStream, Imaging.ImageFormat.Jpeg)
objImage.Dispose()
objThumbnail.Dispose()
%>