Partial Class admin_image
    Inherits System.Web.UI.Page

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles form1.Load

        If Not Page.IsPostBack Then
            If Request.QueryString("id") IsNot Nothing Then
                Dim pars As List(Of functions.Parameter) = New List(Of functions.Parameter) From {New functions.Parameter("@REP_ID", Request.QueryString("id"))}
                Dim dt As System.Data.DataTable = functions.SP_SELECT("REP_IMAGE_SpSel", pars)
                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 AndAlso Not IsDBNull(dt.Rows(0)("REP_IMAGE")) Then
                    Dim byteArray As Byte() = dt.Rows(0)("REP_IMAGE")
                    Response.ContentType = "image/jpeg"
                    Response.BinaryWrite(byteArray)
                    Response.End()
                End If
            End If


        End If


    End Sub
End Class