Imports TechmaticaNorthwindHelper

Namespace TechmaticaNorthwindUserInterface
    Public Class ApplicationDefault
        Inherits System.Web.UI.Page
        Protected ContentPane As System.Web.UI.HtmlControls.HtmlTableCell
        Protected LeftPane As System.Web.UI.HtmlControls.HtmlTableCell
        Protected RightPane As System.Web.UI.HtmlControls.HtmlTableCell
        Private designerPlaceholderDeclaration As Object
        Private Sub InitializeClass(ByVal Sender As Object, ByVal E As System.EventArgs)
            If ((Not (System.Web.HttpContext.Current.Request.QueryString(Constants.QueryStringForgotPassword)) Is Nothing)  _
                        OrElse (Not (System.Web.HttpContext.Current.Request.QueryString(Constants.QueryStringChangePassword)) Is Nothing)) Then
                If (Not (System.Web.HttpContext.Current.Request.QueryString(Constants.QueryStringForgotPassword)) Is Nothing) Then
                    Me.LeftPane.Controls.Add(MyBase.Page.LoadControl("~/BaseControls/EmailPassword.ascx"))
                Else
                    Me.LeftPane.Controls.Add(MyBase.Page.LoadControl("~/BaseControls/ChangePassword.ascx"))
                End If
                Me.LeftPane.Visible = true
            Else
                If (System.Web.HttpContext.Current.Request.IsAuthenticated = false) Then
                    Me.LeftPane.Controls.Add(MyBase.Page.LoadControl("~/BaseControls/SignIn.ascx"))
                    Me.LeftPane.Visible = true
                Else
                    Me.ContentPane.Controls.Add(MyBase.Page.LoadControl("~/BaseControls/Menu.ascx"))
                End If
            End If
            Me.ContentPane.Visible = true
            'Me.RightPane.Controls.Add(MyBase.Page.LoadControl("~/BaseControls/About.ascx"))
            Me.RightPane.Controls.Add(MyBase.Page.LoadControl("~/BaseControls/SamplesLoginInfo.ascx"))
            Me.RightPane.Controls.Add(MyBase.Page.LoadControl("~/BaseControls/LocallizationInfo.ascx"))
            Me.RightPane.Visible = true
        End Sub
        <System.Diagnostics.DebuggerStepThrough()>  _
        Private Sub InitializeComponent()
        End Sub
        Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
            Me.InitializeComponent
            AddHandler MyBase.Init, AddressOf Me.InitializeClass
            MyBase.OnInit(e)
        End Sub
    End Class
End Namespace