Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/Reporting/VB/ReportWebDemo/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/Reporting/VB/ReportWebDemo/Global.asax

<%@ Application Language="vb" %>

<script runat="server">

	Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
		ReportWebDemo.ReportCaching.CacheReportHelper.StartCreatingReports()
		Utils.EnsureRequestValidationMode()
	End Sub

	Sub Application_PreRequestHandlerExecute(ByVal sender As Object, ByVal e As EventArgs)
		DevExpress.Web.ASPxClasses.ASPxWebControl.GlobalTheme = Utils.CurrentTheme
		If CurrentPage IsNot Nothing Then
			AddHandler CurrentPage.PreInit, AddressOf Page_PreInit
		End If
	End Sub

	Shared ReadOnly Property CurrentPage() As Page
		Get
			Return TryCast(HttpContext.Current.CurrentHandler, Page)
		End Get
	End Property

	Shared Sub Page_PreInit(ByVal sender As Object, ByVal e As EventArgs)
		Utils.RegisterCurrentWebFormsDemo(CurrentPage)
		Utils.InjectIECompatModeMeta(CurrentPage.Master, 8)
	End Sub

</script>