Dim PathDB As String
        Dim NOmeFIle As String = Right(Me.File1.Value, Len(Me.File1.Value) - InStrRev(Me.File1.Value, "\"))

        Try
            PathDB = Server.MapPath("../" & NOmeFIle)
            File1.PostedFile.SaveAs(PathDB)
        Catch ex As Exception
            Me.LBL_Messaggio.Text = ex.Message
            Exit Sub
        End Try