Three Tier Code Generator For ASP.NET

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Diagnostics

Namespace WebChamps.Components.Web
    Public Class SitePage
        Inherits System.Web.UI.Page

        ' Page Events
        '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        Protected Overrides Sub OnInit(ByVal e As EventArgs)

            MyBase.OnInit(e)
            AddHandler Me.Load, AddressOf SitePage_Load
            AddHandler Me.Error, AddressOf SitePage_Error

        End Sub


        Private Sub SitePage_Load(ByVal sender As Object, ByVal e As EventArgs)

            If Context.User.Identity.IsAuthenticated Then

            End If

        End Sub


        Protected Sub SitePage_Error(ByVal sender As Object, ByVal e As EventArgs)

            Dim currentError As Exception = Server.GetLastError()

            ' Write error to log file if not already done by AppException
            If Not (TypeOf currentError Is AppException) Then
                AppException.LogError(currentError.Message.ToString)
            End If

            ' Show error on screen
            ShowError(currentError)

            ' Clear error so that it does not buble up to Application Level
            Server.ClearError()

        End Sub



        ' Shared Methods
        '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Public Shared Sub ShowError(ByVal currentError As Exception)

            Dim context As HttpContext = HttpContext.Current

            context.Response.Write( _
              "<link rel=""stylesheet"" href=""/Dummy/CSS/Site.css"">" & _
              "<h2>Error</h2><hr/>" & _
              "An unexpected error has occurred on this page." & _
              "The system administrators have been notified.<br/>" & _
              "<br/><b>The error occurred in:</b>" & _
                "<pre>" & context.Request.Url.ToString & "</pre>" & _
              "<br/><b>Error Message:</b>" & _
                "<pre>" & currentError.Message.ToString & "</pre>" & _
              "<br/><b>Error Stack:</b>" & _
               "<pre>" & currentError.ToString & "</pre>")

        End Sub


    End Class
End Namespace