ASP.NET

IDictionary props = new Hashtable();
                   props["port"] = TechnicalSettings.RemotingServerPort;
                   props.Add("typeFilterLevel", TypeFilterLevel.Full);
                   //props.Add("timeout", 2000);
                   BinaryClientFormatterSinkProvider clientProvider = new BinaryClientFormatterSinkProvider();
                   channel = new HttpChannel(props, clientProvider, null);
                   ChannelServices.RegisterChannel(channel, false);

                   //TcpChannel channel = new TcpChannel();
                   //ChannelServices.RegisterChannel(channel, true);



                   var server = string.Format("http://{0}:{1}/RemoteOperation", TechnicalSettings.RemotingServer,
                                              TechnicalSettings.RemotingServerPort);

                   _remoteOperation = (IRemoteOperation)Activator.GetObject(typeof(IRemoteOperation), server);
                   _exist = _remoteOperation.TestRemoting();

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

Imports System
Imports System.Configuration
Imports System.Web
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports util
Public Class ShowImage : Implements IHttpHandler
    
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim staffID As Integer
        If Not context.Request.QueryString("id") Is Nothing Then
            staffID = CInt(context.Request.QueryString("id"))
        Else
            Throw New ArgumentException("No parameter specified")
        End If
        
        context.Response.ContentType = "image/jpeg"
        Dim strm As Stream = ShowSTARImage(staffID)
        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
    End Sub
 
    Public Function ShowSTARImage(ByVal staff As Integer) As Stream
        Dim strConnection As String = ConfigurationManager.ConnectionStrings("Star").ToString
        Dim conn As SqlConnection = New SqlConnection(strConnection)
        Dim sql As String = "Select picture from contactPage where userID = " & staff
        Dim cmd As SqlCommand = New SqlCommand(sql, conn)
        conn.Open()
        Dim img As Object = cmd.ExecuteScalar ()
        Try
            Return New MemoryStream(CType(img, 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

imgContactPage.ImageUrl = "~/ShowImage.ashx?id=" & Session("selectedUser").ToString