using System;
using System.Collections.Generic;
using System.Configuration;
using System.Globalization;
using System.Text;
using System.Web;
using System.Web.Configuration;

namespace Samples.Aspnet.SystemWebConfiguration {
   class UsingGlobalizationSection {
      static void Main ( string [ ] args ) {
         try {
            // Set the path of the config file.
            string configPath = "";

            // Get the Web application configuration object.
            Configuration config = WebConfigurationManager.OpenWebConfiguration ( configPath );

            // Get the section related object.
            GlobalizationSection configSection =
              ( GlobalizationSection ) config.GetSection ( "system.web/globalization" );

            // Display title and info.
            Console.WriteLine ( "ASP.NET Configuration Info" );
            Console.WriteLine ( );

            // Display Config details.
            Console.WriteLine ( "File Path: {0}", config.FilePath );
            Console.WriteLine ( "Section Path: {0}",
               configSection.SectionInformation.Name );

            // Display Culture property.
            Console.WriteLine ( "Culture: {0}", configSection.Culture );

            // Set Culture property.
            configSection.Culture = CultureInfo.CurrentCulture.ToString ( );
            
            // Display EnableClientBasedCulture property.
            Console.WriteLine ( "EnableClientBasedCulture: {0}", 
               configSection.EnableClientBasedCulture );

            // Set EnableClientBasedCulture property.
            configSection.EnableClientBasedCulture = false;

            // Display FileEncoding property.
            Console.WriteLine ( "FileEncoding: {0}", configSection.FileEncoding );

            // Set FileEncoding property.
            configSection.FileEncoding = System.Text.Encoding.UTF8;

            // Display RequestEncoding property.
            Console.WriteLine ( "RequestEncoding: {0}",
               configSection.RequestEncoding );

            // Set RequestEncoding property.
            configSection.RequestEncoding = System.Text.Encoding.UTF8;

            // Display ResponseEncoding property.
            Console.WriteLine ( "ResponseEncoding: {0}",
               configSection.ResponseEncoding );

            // Set ResponseEncoding property.
            configSection.ResponseEncoding = System.Text.Encoding.UTF8;

            // Display ResponseHeaderEncoding property.
            Console.WriteLine ( "ResponseHeaderEncoding: {0}", 
               configSection.ResponseHeaderEncoding );

            // Set ResponseHeaderEncoding property.
            configSection.ResponseHeaderEncoding = System.Text.Encoding.UTF8;

            // Display UICulture property.
            Console.WriteLine ( "UICulture: {0}",
               configSection.UICulture );

            // Set UICulture property.
            configSection.UICulture = CultureInfo.CurrentUICulture.ToString ( );

            // Update if not locked.
            if ( !configSection.SectionInformation.IsLocked ) {
               config.Save ( );
               Console.WriteLine ( "** Configuration updated." );
            }
            else {
               Console.WriteLine ( "** Could not update, section is locked." );
            }
         }

         catch ( Exception e ) {
            // Unknown error.
            Console.WriteLine ( e.ToString ( ) );
         }

         // Display and wait
         Console.ReadLine ( );
      }
   }
}

Imports System
Imports System.Collections.Generic
Imports System.Configuration
Imports System.Globalization
Imports System.Text
Imports System.Web
Imports System.Web.Configuration

Namespace Samples.Aspnet.SystemWebConfiguration
   Class UsingGlobalizationSection
      Public Shared Sub Main ( )
         Try
            ' Set the path of the config file.
            Dim configPath As String = ""

            ' Get the Web application configuration object.
            Dim config As System.Configuration.Configuration = _
               WebConfigurationManager.OpenWebConfiguration ( configPath )

            ' Get the section related object.
            Dim configSection As GlobalizationSection = _
               CType ( config.GetSection ( "system.web/globalization" ), GlobalizationSection )

            ' Display title and info.
            Console.WriteLine ( "ASP.NET Configuration Info" )
            Console.WriteLine ( )

            ' Display Config details.
            Console.WriteLine ( "File Path: {0}", config.FilePath )
            Console.WriteLine ( "Section Path: {0}", configSection.SectionInformation.Name )

            ' Display Culture property.
            Console.WriteLine ( "Culture: {0}", _
               configSection.Culture )

            ' Set Culture property.
            configSection.Culture = CultureInfo.CurrentCulture.ToString ( )

            ' Display EnableClientBasedCulture property.
            Console.WriteLine ( "EnableClientBasedCulture: {0}", _
               configSection.EnableClientBasedCulture )

            ' Set EnableClientBasedCulture property.
            configSection.EnableClientBasedCulture = False

            ' Display FileEncoding property.
            Console.WriteLine ( "FileEncoding: {0}", _
               configSection.FileEncoding )

            ' Set FileEncoding property.
            configSection.FileEncoding = System.Text.Encoding.UTF8

            ' Display RequestEncoding property.
            Console.WriteLine ( "RequestEncoding: {0}", _
               configSection.RequestEncoding )

            ' Set RequestEncoding property.
            configSection.RequestEncoding = System.Text.Encoding.UTF8

            ' Display ResponseEncoding property.
            Console.WriteLine ( "ResponseEncoding: {0}", _
             configSection.ResponseEncoding )

            ' Set ResponseEncoding property.
            configSection.ResponseEncoding = System.Text.Encoding.UTF8

            ' Display ResponseHeaderEncoding property.
            Console.WriteLine ( "ResponseHeaderEncoding: {0}", _
               configSection.ResponseHeaderEncoding )

            ' Set ResponseHeaderEncoding property.
            configSection.ResponseHeaderEncoding = System.Text.Encoding.UTF8

            ' Display UICulture property.
            Console.WriteLine ( "UICulture: {0}", _
               configSection.UICulture )

            ' Set UICulture property.
            configSection.UICulture = CultureInfo.CurrentUICulture.ToString ( )

            ' Update if not locked.
            If Not configSection.SectionInformation.IsLocked Then
               config.Save ( )
               Console.WriteLine ( "** Configuration updated." )
            Else
               Console.WriteLine ( "** Could not update, section is locked." )
            End If

         Catch e As Exception
            ' Unknown error.
            Console.WriteLine ( e.ToString ( ) )
         End Try

         ' Display and wait
         Console.ReadLine ( )
      End Sub
   End Class
End Namespace