Imports BVSoftware.BVC.Core Public Class contact Inherits BaseStorePage Protected WithEvents lblAddress As System.Web.UI.WebControls.Label Protected WithEvents TitleLabel As System.Web.UI.WebControls.Label Protected WithEvents TrailHomeLink As System.Web.UI.WebControls.HyperLink Protected WithEvents TrailLabel As System.Web.UI.WebControls.Label Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents CSSTag1 As BVSoftware.WebControls.CSSTag Protected WithEvents lblExtraContent As System.Web.UI.WebControls.Label #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("ContactUs") PageTitle = Content.SiteTerms.GetTerm("ContactUs") End If Dim contactAddress As Contacts.Address = WebAppSettings.ContactAddress lblAddress.Text = ContactServices.Addresses.ToHtmlString(contactAddress) If WebAppSettings.ContactEmail.Trim.Length > 0 Then lblAddress.Text += "
0 Then lblExtraContent.Text = dtPolicy.Rows(0).Item(2) Else lblExtraContent.Text = "" End If Catch Ex As Exception Trace.Write(Ex.Message & " " & Ex.Source & " " & Ex.StackTrace) End Try End Sub End Class