Imports TechmaticaNorthwindBusiness
Imports TechmaticaNorthwindHelper

Namespace TechmaticaNorthwindUserInterface
    Public Class AccessDenied
        Inherits System.Web.UI.Page
        Protected URLReferrer As String
        Private designerPlaceholderDeclaration As Object
        <System.Diagnostics.DebuggerStepThrough()>  _
        Private Sub InitializeComponent()
        End Sub
        Private Sub LoadClass(ByVal Sender As Object, ByVal E As System.EventArgs)
            If (Me.IsPostBack = false) Then
                URLReferrer = System.Web.HttpContext.Current.Request.QueryString(Constants.QueryStringDeniedURLReferrer)
            End If
        End Sub
        Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
            Me.InitializeComponent
            AddHandler MyBase.Load, AddressOf Me.LoadClass
            MyBase.OnInit(e)
        End Sub
    End Class
End Namespace