Imports System.Diagnostics
 
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Try
            Dim fName As String = "gesicht.tif"
            fName = Server.MapPath(fName)
            Dim fs As New IO.FileStream(fName, IO.FileMode.Open, _
              IO.FileAccess.Read)
            Dim br As New IO.BinaryReader(fs)
            Try
                Dim buff As Byte() = br.ReadBytes(CInt(fs.Length))
                Response.ClearHeaders()
                Response.ClearContent()
                Response.ContentType = "image/tiff"
                Response.OutputStream.Write(buff, 0, buff.Length)
                Response.Flush()
 
            Catch ex As Exception
                Debug.WriteLine(ex.ToString)
            Finally
                br.Close()
                fs.Close()
            End Try
 
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        End Try
    End Sub
 
    Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
    End Sub
End Class