Public Class ab_bios
    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 imgBody As System.Web.UI.WebControls.Image
    Protected WithEvents lblTitle As System.Web.UI.WebControls.Label
    Protected page_title As New HtmlGenericControl
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel3 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel4 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel5 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel6 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel7 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel8 As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel9 As System.Web.UI.WebControls.Panel
    Protected WithEvents lblCrumb As System.Web.UI.WebControls.Label

    '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
    End Sub

    Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender

        Dim strPanel As String
        Dim strName As String
        Dim strTitle As String
        If Request.QueryString("ID") <> "" Then
            strPanel = "Panel" & Request.QueryString("ID")
            strName = Request.QueryString("N")

            Me.FindControl(strPanel).Visible = True


            Me.lblTitle.Text = "Biography: " & strName
            Me.page_title.InnerText = "Emerging Markets Forum - " & Me.lblTitle.Text
            Me.lblCrumb.Text = "<p><a href='" & Request.UrlReferrer.AbsoluteUri & "'><< Back</a></p>"
        Else
            Me.Panel1.Visible = True
            strName = ""
        End If
        

    End Sub

End Class