Imports BVSoftware.BVC.Core Public Class Affiliate_Intro Inherits BaseStorePage #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents TrailHomeLink As System.Web.UI.WebControls.HyperLink Protected WithEvents TitleLabel As System.Web.UI.WebControls.Label Protected WithEvents lblAffiliateIntroduction As System.Web.UI.WebControls.Label Protected WithEvents CSSTag1 As BVSoftware.WebControls.CSSTag Protected WithEvents pnlAffiliate As System.Web.UI.WebControls.Panel '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 If Not Page.IsPostBack Then MetaKeywordsControl.Content = WebAppSettings.MetaKeywords MetaDescriptionControl.Content = WebAppSettings.MetaDescription CSSTag1.StyleSheetURL = PersonalizationServices.GetPersonalizedStyleSheet 'Me.TitleLabel.Text = SiteContent.SiteTerms.GetTerm("ContactUs") PageTitle = "Affiliate Program" LoadIntro() End If If WebAppSettings.AffiliateSignupAllowed = True Then pnlAffiliate.Visible = True Else pnlAffiliate.Visible = False End If End Sub Private Sub LoadIntro() Dim dt As DataTable = ContentServices.Policies.GetByType(Content.PolicyTypes.AffiliateIntroduction) If Not dt Is Nothing Then If dt.Rows.Count > 0 Then Me.lblAffiliateIntroduction.Text = dt.Rows(0).Item("Description") End If End If dt = Nothing End Sub End Class