Imports BVSoftware.BVC.Core Public Class privacy Inherits BaseStorePage Protected WithEvents dgPolicy As System.Web.UI.WebControls.DataGrid Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents TitleLabel As System.Web.UI.WebControls.Label Protected WithEvents TrailHomeLink As System.Web.UI.WebControls.HyperLink Protected WithEvents msg As BVSoftware.WebControls.WebPageMessage Protected WithEvents CSSTag1 As BVSoftware.WebControls.CSSTag #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub 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 Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs) Handles MyBase.Load If Not Page.IsPostBack Then MetaKeywordsControl.Content = WebAppSettings.MetaKeywords MetaDescriptionControl.Content = WebAppSettings.MetaDescription CSSTag1.StyleSheetURL = PersonalizationServices.GetPersonalizedStyleSheet Me.TitleLabel.Text = Content.SiteTerms.GetTerm("PrivacyPolicy") PageTitle = Content.SiteTerms.GetTerm("PrivacyPolicy") End If If Not Page.IsPostBack Then LoadPolicies() End If End Sub Sub LoadPolicies() Try dgPolicy.DataSource = ContentServices.Policies.GetByType(Content.PolicyTypes.Privacy) dgPolicy.DataBind() Catch Ex As Exception msg.ShowException(Ex) End Try End Sub End Class