Imports Microsoft.VisualBasic
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.MobileControls
Imports System.Web.UI.HtmlControls
Imports System.Web.Configuration
Imports System.Web.Hosting
Imports System.Text
Imports System.Xml
Imports System.IO
Imports System.Collections
Partial Class CBMS_UserControls_CBHeader
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        setNavigateURL4TopMaster()
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        PosElemID.Value = "ctl00_ctl00_CPH_PageCenterContent_ContentPlaceHolderLT_GOTOAnchor"
        Dim pageTitle As String
        pageTitle = Me.Page.Title.ToString()

    End Sub

    Private Sub setNavigateURL4TopMaster()
        Me.HyperLink9.NavigateUrl = "http://www.charter-business.com/Home.aspx"
        Me.HyperLink10.NavigateUrl = "http://www.charter-business.com/Charter-Business-SiteLocator.aspx"
        Me.HyperLink11.NavigateUrl = "http://www.charter-business.com/About-Charter-Business-cost-effective-broadband-communications.aspx"
        Me.HyperLink12.NavigateUrl = "http://www.charter.com/Visitors/Home.aspx"
        Me.HyperLink13.NavigateUrl = "http://www.charter.com/Visitors/Careers.aspx?NonProductItem=600"
        Me.HyperLink14.NavigateUrl = "http://www.charter-business.com/Charter-Business-Customer-Support.aspx"
        Me.HyperLink15.NavigateUrl = "http://www.charter-business.com/Charter-business-support-Contact-Us.aspx"
        Me.HyperLink16.NavigateUrl = "https://www.charter.com/order/login.aspx"
        Me.tbProdServURL.NavigateUrl = "https://www.charter-business.com/Products-Services-Internet-Data-Networking-Phone-Video-HDTV-Digital-Music-VPN-Security-Optical-Fiber.aspx"
        Me.tbSmBusURL.NavigateUrl = "https://www.charter-business.com/Small-Business-Solutions-Internet-Phone-Video-SOHO.aspx"
        Me.HyperLink17.NavigateUrl = "https://www.charter-business.com/Medium-Business-Solutions-Internet-Phone-Video.aspx"
        Me.HyperLink18.NavigateUrl = "https://www.charter-business.com/Large-Business-Solutions-Corporate-Internet-Phone-Bundle.aspx"
        Me.HyperLink19.NavigateUrl = "https://www.charter-business.com/Charter-Business-Solutions-By-Industry.aspx"
        Me.HyperLink20.NavigateUrl = "https://www.charter-business.com/Charter-Business-Channel-Partnership-Programs.aspx"
        Me.HyperLink21.NavigateUrl = "https://www.charter-business.com/Charter-Business-Customer-Support.aspx"
        Me.HyperLink24.NavigateUrl = "https://www.charter.com/order/login.aspx"
        ''Me.HyperLink22.NavigateUrl = "~/" & ConfigurationManager.AppSettings("PageMemberServices")
        ''Me.HyperLink22.NavigateUrl = "~/Charter-Business-MemberServices.aspx"

    End Sub
End Class
