ASP.NET

<%@ WebHandler Language="VB" Class="displayResume" %>

Imports System
Imports System.Web
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports util

Public Class displayResume : Implements IHttpHandler
    
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim appID As Integer
        Dim mimeType As String
        If Not context.Request.QueryString("ID") Is Nothing Then
            'place ID in the the appID variable
            appID = context.Request.QueryString("ID").ToString
            'get the mimetype for the file from table
            mimeType = getMimeType(appID.ToString)
            If Not mimeType Is Nothing Then
                context.Response.ContentType = mimeType
                Dim strm As Stream = getResume(appID)
                Dim buffer As Byte() = New Byte(4095) {}
                Dim byteSeq As Integer = strm.Read(buffer, 0, 4096)
                
                Do While byteSeq > 0
                    context.Response.OutputStream.Write(buffer, 0, byteSeq)
                    byteSeq = strm.Read(buffer, 0, 4096)
                Loop
            Else
                Throw New ArgumentException("Can't retrieve MIME Type")
            End If
        Else
            Throw New ArgumentException("No Parameter specified")
        End If
    End Sub
    
    ''' <summary>
    ''' Gets the mime type for the resume from the database
    ''' </summary>
    ''' <param name="appID">appID for the resume we are looking for</param>
    ''' <returns>mimetype string</returns>
    ''' <remarks></remarks>
    Public Function getMimeType(ByVal appID As String) As String
        Dim rdrMime As SqlDataReader = GetReader("select mimeType from resumes where appID =" & appID)
        Dim mimetype As String = Nothing
        Try
            While rdrMime.Read
                mimetype = rdrMime("mimeType").ToString
            End While
        Catch ex As Exception
            Return Nothing
        Finally
            rdrMime.Close()
        End Try
        
        Return mimetype
    End Function
    
    ''' <summary>
    ''' gets the binary format of the file from the database
    ''' </summary>
    ''' <param name="ID">appID that is pointing to the resume file</param>
    ''' <returns>binary representation of the resume file</returns>
    ''' <remarks></remarks>
    Public Function getResume(ByVal ID As Integer) As Stream
        Dim strConnection As String = ConfigurationManager.ConnectionStrings("connectionString").ToString
        Dim conn As SqlConnection = New SqlConnection(strConnection)
        Dim sql As String = "Select theFile from Resumes where appID = " & ID
        Dim cmd As SqlCommand = New SqlCommand(sql, conn)
        Try
            conn.Open()
            Dim file As Object = cmd.ExecuteScalar
            Return New MemoryStream(CType(file, Byte()))
        Catch ex As Exception
            Return Nothing
        Finally
            conn.Close()
            conn.Dispose()
        End Try
    End Function
    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

End Class