Private Sub GridView1_RowUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdatedEventArgs) Handles GridView1.RowUpdated
        If e.Exception Is Nothing Then
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('Utente attivato!');</script>")
            REM Invio email di conferma attivazione
            Dim mail As New MailMessage(
          "Fabio@xxxx.it",
            Me.GridView1.Rows(5).ToString,
            "Conferma attivazione accesso LiceoTerracina.it",
            "Gentile utente le confermiamo l'attivazione all'accesso all'area privata del portale LiceoTerracina.it." & Chr(10) & _
            " Le auguriamo buon lavoro." & Chr(10) & _
            "Liceo L. da Vinci")
            Dim smtp As New SmtpClient("smtp.xxxxx.it")
            smtp.Credentials = Net.CredentialCache.DefaultNetworkCredentials
            smtp.Send(mail)
        Else
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('Errore durante l'attivazione dell'utente selezionato. Se il problema persiste prego contattare l'amministratore di rete');</script>")
            e.ExceptionHandled = True
        End If
 End Sub