Imports BVSoftware.BVC.Core Public Class CustomerServiceMenu Inherits System.Web.UI.UserControl #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Protected WithEvents lstCustomerServiceMenu As System.Web.UI.HtmlControls.HtmlGenericControl Protected WithEvents TitleLabel As System.Web.UI.WebControls.Label '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 'Put user code to initialize the page here If Not Page.IsPostBack Then 'SP2- Modified to assure no blank lines for inactive menu items Me.TitleLabel.Text = Content.SiteTerms.GetTerm("CustomerService") lstCustomerServiceMenu.InnerHtml = Nothing lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("ContactUs") & "
  • " lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("Help") & "
  • " lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("PrivacyPolicy") & "
  • " lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("TermsAndConditions") & "
  • " lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("OrderHistory") & "
  • " If WebAppSettings.AffiliateSignupAllowed Then 'lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("AffiliateProgram") & "
  • " lstCustomerServiceMenu.InnerHtml += "
  • Affiliate Program
  • " End If If WebAppSettings.GiftCertificatesAllowed Then 'lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("GiftCertificates") & "
  • " lstCustomerServiceMenu.InnerHtml += "
  • Gift Certificates
  • " End If If WebAppSettings.ReturnFormAllowed Then 'lstCustomerServiceMenu.InnerHtml += "
  • " & Content.SiteTerms.GetTerm("ReturnRequests") & "
  • " lstCustomerServiceMenu.InnerHtml += "
  • Return Requests
  • " End If '-SP2 End If End Sub End Class