ASP.NET

try
     'Read the Html Template from App_Data, and format the template fields
      htmlStream = New FileStream(m_PhysicalPath, FileMode.Open, FileAccess.Read)
      Dim htmlLen As Long = htmlStream.Length
      Dim fileData As Byte() = New Byte(htmlLen) {}
      htmlStream.Read(fileData, 0, htmlLen)

      If Not (htmlStream Is Nothing) Then htmlStream.Close()

      Dim byteLine() As Byte = New Byte() {}
      Dim strArray() As String = New String() {}
      For bdx As Integer = 0 To fileData.Length - 1

          Dim byteVal As Byte = fileData(bdx)
          If Not (byteVal = &HD) Then

              Array.Resize(byteLine, byteLine.Length + 1)
              byteLine(byteLine.Length - 1) = byteVal

          Else
              Array.Resize(byteLine, byteLine.Length + 1)
              byteLine(byteLine.Length - 1) = byteVal

              Dim charLine() As Char = New Char() {}
              Array.Resize(charLine, byteLine.Length + 1)

              For cdx As Integer = 0 To byteLine.Length - 1
                  charLine(cdx) = AsciiByteToChar(byteLine(cdx))
              Next

              Dim value As String = New String(charLine)
              Array.Resize(strArray, strArray.Length + 1)
              strArray(strArray.Length - 1) = value

              Array.Resize(byteLine, 0)
              bdx += 1

          End If
      Next

  Catch ex As Exception

      m_html_Template = New StringBuilder
      m_html_Template.Append("load_HTML_Template_Checkout_Complete general error")
      dwExitCode = 1

  Finally

      If Not (htmlStream Is Nothing) Then
          htmlStream.Close()
          htmlStream.Dispose()
          htmlStream = Nothing
      End If

  End Try

<textarea id="txtOrdersNotResult" runat="server" rows="5" cols="15" visible="false"></textarea>       

txtOrdersNotResult.Value = "this is a test"

txtOrdersNotResult.InnerText = doesnotexist.ToString();

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a As New DataSet1.TasksDataTable()
        Dim adp As New DataSet1TableAdapters.TasksTableAdapter
        adp.Fill(a)
        GridView1.DataSource = a
        GridView1.DataBind()
        GridView1.Visible = True
    End Sub

$("#btnUploadFile").click(function () {
	    if (files.length <= 0) {
	        alert("Debe seleccionar algún fichero para subirlo.");
	    } else {
	        var expID = $("#ContentPlaceHolder1_hfExpId").val();
	        var formData = new FormData();
	        for (var i = 0; i < files.length; i++) {
	            alert(files[i].name);
	            formData.append('file', files[i]);
	        }
	        var xhr = new XMLHttpRequest();
	        xhr.open('POST', "FileHandler.ashx", true);
	        xhr.overrideMimeType('text/plain; charset=x-user-defined-binary');
	        xhr.setRequestHeader("ExpedienteID", expID);
	        xhr.onload = function () {
	            if (xhr.status === 200) {
	                RefreshFilePanel();
	            } else {
	                console.log('Something went terribly wrong...');
	            }
	        };
	        xhr.send(formData);
	    };

Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim documentBytes As Byte()
        Dim lExpId As String = context.Request.Headers("ExpedienteID")
        Dim fLenght As Integer
        
        If (context.Request.Files.Count > 0) Then
            Dim files As HttpFileCollection = context.Request.Files

            For i = 0 To files.Count - 1
                fLenght = files(i).ContentLength
                documentBytes = New Byte(fLenght - 1) {}
                context.Request.InputStream.Read(documentBytes, 0, fLenght)
'This save byte() image on SQL Database:
                UploadDocumentBy_ExpID(documentBytes, files(i).FileName, "Description" & lExpId.ToString, lExpId)
            Next
        End If
    End Sub

<asp:GridView ID="grdDocumentoByExp" runat="server" AutoGenerateColumns="false" Width="250px"
 DataSourceID="dtsDocumentByExpId">
 <Columns>
  <asp:BoundField DataField="Archivo" HeaderText="Archivo" />
  <asp:BoundField DataField="docId" HeaderText="docId" />
  <asp:BoundField DataField="Documento" HeaderText="Documento" Visible="false" />
    <asp:TemplateField HeaderText="Preview">
       <ItemTemplate>
         <asp:Image 
         ID="imgThumb" 
         runat="server"
         ImageUrl='<%# GetImage(Eval("Documento")) %>'
        />
       </ItemTemplate>
    </asp:TemplateField>                                                                
 </Columns>
</asp:GridView>

Public Function GetImage(image As Object) As String
    Return "data:image/gif;base64," & Convert.ToBase64String(DirectCast(image, [Byte]()))
End Function