ASP.NET Report Kit Grasshoper (Race to Linux)

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Web
Imports System.Web.SessionState
Imports System.Threading
Imports System.Globalization
Imports System.Resources
Imports System.Reflection

Namespace ASPNET.StarterKit.Reports

    Public Class Global
        Inherits System.Web.HttpApplication

        ' Configuation constants used for retrieving application setting values from the
        ' web.config file.
        Public Const CfgKeyConnString As String = "ConnectionString"

        Public Sub New()
        End Sub 'New

        Protected Sub Application_Start(ByVal sender As [Object], ByVal e As EventArgs)
        End Sub 'Application_Start

        Protected Sub Session_Start(ByVal sender As [Object], ByVal e As EventArgs)
        End Sub 'Session_Start

        Protected Sub Application_BeginRequest(ByVal sender As [Object], ByVal e As EventArgs)
            ' For each request initialize the culture values with
            ' the user language as specified by the browser.
            Try
                Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(Request.UserLanguages(0))
            Catch
                ' provide fallback for not supported languages.
                Thread.CurrentThread.CurrentCulture = New CultureInfo("en-us")
            End Try
            ' provide fallback for not supported languages.

            Thread.CurrentThread.CurrentUICulture = Thread.CurrentThread.CurrentCulture

            ' This statement causes all future currency values displayed by the application 
            ' to use "$" as the currency symbol regardless of the current culture.
            CultureInfo.CurrentCulture.NumberFormat.CurrencySymbol = "$"
        End Sub 'Application_BeginRequest

        Protected Sub Application_EndRequest(ByVal sender As [Object], ByVal e As EventArgs)
        End Sub 'Application_EndRequest

        Protected Sub Application_AuthenticateRequest(ByVal sender As [Object], ByVal e As EventArgs)
        End Sub 'Application_AuthenticateRequest

        Protected Sub Application_Error(ByVal sender As [Object], ByVal e As EventArgs)
        End Sub 'Application_Error

        Protected Sub Session_End(ByVal sender As [Object], ByVal e As EventArgs)
        End Sub 'Session_End

        Protected Sub Application_End(ByVal sender As [Object], ByVal e As EventArgs)
        End Sub 'Application_End
    End Class
End Namespace 'ASPNET.StarterKit.Reports