Public Class CustomErrorSQL
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents lblAST As System.Web.UI.WebControls.Label
    Protected WithEvents lblEHL As System.Web.UI.WebControls.Label
    Protected WithEvents lblEM As System.Web.UI.WebControls.Label
    Protected WithEvents lblETS As System.Web.UI.WebControls.Label
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents lblMsg As System.Web.UI.WebControls.Label
    Protected WithEvents IMG2 As System.Web.UI.HtmlControls.HtmlImage

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        lblMsg.Text = "We're sorry. There was an error. <br>" & _
        "After 30 seconds you will be redirected to the Ch10Home.aspx page.<br>" & _
        "<a href='Ch10Home.aspx'>Click here </a>to go to the Ch10Home.aspx page."

        ' Insert the code here

        lblEM.Text = Request.QueryString("eMSG")
        Dim EHL As String = Request.QueryString("eHL")
        If EHL <> "" Then
            lblEHL.Text = Request.QueryString("eHL")
        Else
            lblEHL.Text = "There is no help link associated with this error."
        End If
        lblAST.Text = Request.QueryString("eST")
        lblETS.Text = Request.QueryString("eTS")

    End Sub

End Class