Protected Sub ImageButton2_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
Dim path As String = (Server.MapPath("uploads") & "\") + FileUpload1.FileName
FileUpload1.SaveAs(path)
Image1.ImageUrl = "uploads\" + FileUpload1.FileName
End Sub
Protected Sub Page_Load3(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
FileUpload1.Attributes.Add("onFucos", "ShowImage()")
End Sub