ASP.NET Image control not working as I expect.

See more:

ASP.NET

Visual-Studio

, +

Very simple program. Basically saves and image to disk and displays it on the web page. Here's the code.

<%@ Page Title="Home Page" Language="vb" MasterPageFile="~/Site.Master" AutoEventWireup="false"
    CodeBehind="Default.aspx.vb" Inherits="WebApplication3._Default" %>

<asp:Content ID="HeaderContent" runat="server" ContentPlaceHolderID="HeadContent">

</asp:Content>
<asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent">
    <p>
        <asp:Image ID="Image1" runat="server" Height="131px" Width="127px" />
    </p>
    </asp:Content>

- - - - - This is the codeBehind - - - - - - -

Option Strict On
Imports System.DirectoryServices
Imports System.IO
Imports System.Drawing
Public Class _Default
    Inherits System.Web.UI.Page
    Dim sSavePath As String = Nothing
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Using Root As New DirectoryEntry 'Establish connection to current loged on users Active Directory
            Using Searcher As New DirectorySearcher(Root) 'Start at the top                
                Searcher.Filter = "(&(objectCategory=user)(cn=Robin.kirchhof))"
                Searcher.SearchScope = SearchScope.Subtree 'Start at the top and keep drilling down
                Searcher.PropertiesToLoad.Add("thumbnailPhoto") 'Load picture
                Dim User = Searcher.FindOne 'Users contains our searh results

                If User.Properties.Contains("thumbnailPhoto") Then '<--This makes sure the property actually exists and has a value
                    Dim bytBLOBData() As Byte = CType((User.Properties("thumbnailPhoto")(0)), Byte()) '<-- we need to use 0 here because this attribute only has one value
                    Using stmBLOBData As New MemoryStream(bytBLOBData) 'Create new memory stream.
                        Dim TempImg As System.Drawing.Image
                        TempImg = System.Drawing.Image.FromStream(stmBLOBData) 'Load image from stream
                        TempImg.Save(Server.MapPath("~/Images") + "\TempImg.jpg") 'save image to disk
                        TempImg.Dispose()
                        Image1.ImageUrl = (Server.MapPath("~/Images") + "\TempImg.jpg")
                        Image1.AlternateText = "Users Picture"
                    End Using
                Else
                    Image1 = Nothing
                    Image1.AlternateText = "NoPicture"
                End If
            End Using
        End Using
    End Sub
End Class

The problem is the picture is not displayed. The blob data memory stream is being saved to the image folder as a jpeg. I can browse to it and open it in explorer. but the Image1.imageUrl assignment dosen't seem to be working. Any idea what I'm doing wrong?