Partial Class controls_member_ctlAdminMemberView
    Inherits System.Web.UI.UserControl

    Private mintUserID As Integer

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        mintUserID = Int32.Parse(Request.QueryString("urid"))
    End Sub

    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
        Dim objUser As GabaBit.BOL.User = GabaBit.BOL.User.GetUserByUserID(mintUserID)
        If objUser IsNot Nothing Then
            With objUser
                lblUserName.Text = .UserName
                lblFullName.Text = .FullName
                lblAddress.Text = .FullAddress
                lblRating.Text = .UserRating
                lblTokenCount.Text = .TokenCount
                lblEmail.Text = .Email
            End With
        End If
    End Sub

End Class