Reading Image From SQL 2000 Database

I am able to upload a jpeg to a sql 2000 database into a column called graphic, the datatype is an image. for some reason i can read the image and have it displayed! this is driving me insane. any help would be greatly appreciated. here is the code to upload. and below that is the code to display the image.
UPLOAD CODE
        If Not IsNothing(txtfileupload.PostedFile) Then
            'Determine File Type
            Dim strExtension As String = Path.GetExtension(txtfileupload.PostedFile.FileName).ToLower()
            Dim strContentType As String = Nothing

            Select Case strExtension
                Case ".gif"
                    strContentType = "image/gif"
                Case ".jpg", ".jpeg", ".jpe"
                    strContentType = "image/jpeg"
                Case ".png"
                    strContentType = "image/png"
            End Select
      
            'Load FileUpload's InputStream into Byte array
            Dim imageBytes(txtfileupload.PostedFile.InputStream.Length) As Byte
            txtfileupload.PostedFile.InputStream.Read(imageBytes, 0, imageBytes.Length)
            
            
            'INSERT DATA INTO DATABASE
            Dim objSQLConn As SqlConnection
            Dim strSQL As SqlCommand

            objSQLConn = New SqlConnection("server=srvdb1.rrg.local;uid=rsusr;pwd=Letmein123;database=rsdb")
            strSQL = New SqlCommand("insert into rsdata (graphic,contenttype,fname,lname,nname) values(@graphic,@contenttype,@fname,@lname,@nname)", objSQLConn)
    
            strSQL.Parameters.AddWithValue("@graphic", imageBytes)
            strSQL.Parameters.AddWithValue("@contenttype", strContentType)
            strSQL.Parameters.AddWithValue("@fname", txtfname.Text)
            strSQL.Parameters.AddWithValue("@lname", txtlname.Text)
            strSQL.Parameters.AddWithValue("@nname", txtnname.Text)

            objSQLConn.Open()
            strSQL.ExecuteNonQuery()
            objSQLConn.Close()
    
            lblStatus.Text = "Records uploaded"
        End If
 
 
CODE TO DISPLAY
    Dim objSQLConn As SqlConnection
    Dim strSQL As SqlCommand
    Dim objSQLDataReader As SqlDataReader
   
    objSQLConn = New SqlConnection("server=srvdb1.rrg.local;uid=rsusr;pwd=Letmein123;database=rsdb")
    objSQLConn.Open()
    strSQL = New SqlCommand("select graphic, contenttype from rsdata", objSQLConn)
    objSQLDataReader = strSQL.ExecuteReader()

While objSQLDataReader.Read()
        Response.ContentType = objSQLDataReader("contenttype")
        Response.BinaryWrite(objSQLDataReader("graphic"))
End While
   
    objSQLDataReader.Close()
    objSQLConn.Close()
%>