Partial Class UserControls_ETG_ETGGlossary
    Inherits System.Web.UI.UserControl

    'Variables.
    Protected mobjTerms As TXB.Database.Terms
    Protected mobjTerm As TXB.Database.Term

    Protected I As Integer
    Protected J As Integer

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Initialize Page.
        InitializePage()

    End Sub

    Private Sub InitializePage()

        'Get Querystring data.
        GetQueryStringData()

        'Set Default Letter
        If Trim(lblLetter.Text) = "" Then
            lblLetter.Text = "a"
        End If

        'Process Form.
        ProcessForm()

    End Sub

    Private Sub ProcessForm()

        'Instantiate object.
        mobjTerms = New TXB.Database.Terms

        'Load events.
        mobjTerms.Load(sortLetter:=Trim(lblLetter.Text))

        'Sort events.
        mobjTerms.Sort(propertyList:="Name")

    End Sub

    Private Sub GetQueryStringData()

        'Get Querystring data
        lblLetter.Text = Trim(Left(Request.QueryString("Letter"), 1))

    End Sub

    Private Sub lnkLetter_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkLetter.ServerClick

        'Set letter.
        lblLetter.Text = Trim(Request.Params("__EVENTARGUMENT"))

        'Process form.
        ProcessForm()

    End Sub

End Class