Dim conString = ConfigurationManager.ConnectionStrings("liceoConnectionString")
            Dim strConnString As String = conString.ConnectionString
            Using scope As New TransactionScope()
                Using db As New SqlConnection(strConnString)
                    db.Open()
                    Using sqlcmd As New SqlCommand("Insnotizia", db)
                        sqlcmd.CommandType = CommandType.StoredProcedure
                        sqlcmd.Parameters.AddWithValue("@idutente", SqlDbType.Int).Value = CInt(Session.Item(1))
                        sqlcmd.Parameters.AddWithValue("@datanotizia", SqlDbType.Date).Value = CDate(Me.TextBox3.Text)
                        sqlcmd.Parameters.AddWithValue("@notizia", SqlDbType.Text).Value = Me.TextBox2.Text
                        sqlcmd.ExecuteNonQuery()
                    End Using
                        sqlcmd.dispose
                End Using
                    db.close
                scope.Complete()
            End Using