Public Partial Class header
Inherits System.Web.UI.UserControl

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim strPagename As String = Request.Url.ToString

    strPagename = replace(strPagename, ConfigurationManager.AppSettings("SiteURL"), "")
    strPagename = Replace(strPagename, ".aspx", "")

    'Select Case strPagename
    'Case "printall"
    '    topHyperLink1.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    'Case "about"
    '    topHyperLink2.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    'Case "HealthAndSafety"
    '    topHyperLink3.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    ''Case "Equipment"
    ''    topHyperLink4.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    ''Case "ProjectSupportServices"
    ''    topHyperLink5.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    ''Case "Consultancy"
    ''    topHyperLink6.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    ''Case "Customersupport"
    ''    topHyperLink7.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    'Case "News"
    '    topHyperLink8.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    'Case "ContactusAddressList"
    '    topHyperLink9.BackColor = System.Drawing.ColorTranslator.FromHtml("#ffb612")
    'End Select
    
  End Sub
End Class