Code is not working on domain

See more:

VB

MS-Access

The code shown below is the part of my application....for the upload images on website also store it in access database and shown it on webpage..Now my problem is....This code works fine on my local PC but couldn't work when I upload it on domain...I used FileUpload control for find out image file and one button...named Button1 used for store and upload the file....

Imports System.Data.OleDb
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim c As New connection()
    Dim r As New Random()
    Dim sb As System.Text.StringBuilder

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            c.cmd = New OleDbCommand("select * from photos where username = 'nikul' ", c.cn)
            Call photos()
        Catch generatedExceptionName As NullReferenceException
            Response.Redirect("~/index.aspx")

        End Try
    End Sub

    Public Sub photos()
        If c.cn.State = Data.ConnectionState.Open Then c.cn.Close()
        c.cn.Open()
        c.dr = c.cmd.ExecuteReader()
        Dim table As New Table()
        Dim tr As New TableRow()
        Panel1.Controls.Add(table)
        Dim count As Integer = 0
        While c.dr.Read()
            If count = 2 Then
                tr = New TableRow()
                count = 0
            End If
            Dim tc As New TableCell()
            Dim image As New Image()
            image.ImageUrl = "~/photos/nikul/" & c.dr.GetValue(1).ToString()
            image.DescriptionUrl = "~/photos/nikul/" & c.dr.GetValue(1).ToString()
            image.Height = 200
            image.Width = 200
            tc.Controls.Add(image)
            tr.Controls.Add(tc)
            table.Controls.Add(tr)
            count += 1
        End While
        c.dr.Close()
    End Sub
  
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If c.cn.State = Data.ConnectionState.Open Then c.cn.Close()
        c.cn.Open()
        If FileUpload1.HasFile Then
            Dim fi As New System.IO.FileInfo(FileUpload1.FileName.ToString())
            If fi.Extension.ToString() = ".jpg" Or fi.Extension.ToString() = ".png" Or fi.Extension.ToString() = ".bmp" Or fi.Extension.ToString() = ".gif" Or fi.Extension.ToString() = ".jpeg" Or fi.Extension.ToString() = ".JPEG" Or fi.Extension.ToString() = ".JPG" Or fi.Extension.ToString() = ".PNG" Or fi.Extension.ToString() = ".BMP" OrElse fi.Extension.ToString() = ".GIF" Then
                If System.IO.Directory.Exists(Server.MapPath("~/photos/nikul")) Then
                    Dim filename As String = r.[Next](9999).ToString()
                    FileUpload1.SaveAs(Server.MapPath("~/photos/nikul/" & filename))
                    c.cmd = New OleDbCommand("insert into photos values('nikul','" & filename & "')", c.cn)
                    c.cmd.ExecuteNonQuery()
                    Response.Redirect("~/index.aspx")
                Else
                    Dim filename As String = r.[Next](9999).ToString()
                    System.IO.Directory.CreateDirectory(Server.MapPath("~/photos/nikul"))
                    FileUpload1.SaveAs(Server.MapPath("~/photos/nikul/" & filename))
                    c.cmd = New OleDbCommand("insert into photos values('nikul','" & filename & "')", c.cn)
                    c.cmd.ExecuteNonQuery()
                    Response.Redirect("~/index.aspx")
                End If
            Else
                MsgBox("Upload Image file only......", MsgBoxStyle.Information, "Alert")
            End If
        Else
            MsgBox("Please select the file....", MsgBoxStyle.Information, "Alert")
        End If

    End Sub
End Class

I didn't get any error on my domain....but i couldn't see the image on my web page...is there any problem with my code???

Go through this link.....http://www.nayanarun.somee.com/[^] for this project preview....