Partial Class File_Upload
    Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
   Try
      If FileUpload1.HasFile Then
         FileUpload1.SaveAs("C:\Inetpub\wwwroot\www.arrick.org\Public\Uploads\" + FileUpload1.FileName)
         HyperLink1.Text = FileUpload1.FileName
         HyperLink1.NavigateUrl = "Public\Uploads\" + FileUpload1.FileName
      End If
   Catch exp As HttpException
      label1.Text = "An HttpException was raised. " + "The value entered in the textbox is " + exp.Message.ToString()
      label1.ForeColor = System.Drawing.Color.Red
   End Try
End Sub


End Class