Partial Class UserControl_SupLeftBanner
    Inherits System.Web.UI.UserControl
  
   
   
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim str As String = System.IO.Path.GetFileNameWithoutExtension(Replace((Request.Url.AbsolutePath.ToString), "?", ""))
            Select Case str.ToLower

                Case "supplierregistration1"
                    'CType(Me.FindControl("imgregistration"), Image).Visible = False
                    'imgregistration.ImageUrl = "../Images/black_arrow.gif"
                    ' CType(Me.FindControl("imgregistration"), Image).Visible = True
                    HrReg.Style.Add("font-weight", "bold")
                    'tdregistration.Style.Add("color", "yellow")
                    HrReg.Style.Add("color", "#D04832")
                Case "supplieradditionalinformation"
                    'CType(Me.FindControl("imgAdditional"), Image).Visible = False
                    'imgAdditional.ImageUrl = "../Images/black_arrow.gif"
                    ' CType(Me.FindControl("imgAdditional"), Image).Visible = True
                    HrAdd.Style.Add("font-weight", "bold")
                    HrAdd.Style.Add("color", "#D04832")
                Case "mediaadvertising"
                    'CType(Me.FindControl("imgMedia"), Image).Visible = False
                    'imgMedia.ImageUrl = "../Images/black_arrow.gif"
                    '  CType(Me.FindControl("imgMedia"), Image).Visible = True
                    HrMedia.Style.Add("font-weight", "bold")
                    HrMedia.Style.Add("color", "#D04832")
                Case "supplier-factory-master"
                    'CType(Me.FindControl("imgFactory"), Image).Visible = False
                    'imgFactory.ImageUrl = "../Images/black_arrow.gif"
                    ' CType(Me.FindControl("imgFactory"), Image).Visible = True
                    HrFactory.Style.Add("font-weight", "bold")
                    HrFactory.Style.Add("color", "#D04832")
                Case "supplier-warehouse-master"
                    'CType(Me.FindControl("imgWarehouse"), Image).Visible = False
                    'imgWarehouse.ImageUrl = "../Images/black_arrow.gif"
                    CType(Me.FindControl("imgWarehouse"), Image).Visible = True
                    HrWareHouse.Style.Add("font-weight", "bold")
                    HrWareHouse.Style.Add("color", "#D04832")
                Case "after-sales-service"
                    'CType(Me.FindControl("imgsales"), Image).Visible = False
                    'imgsales.ImageUrl = "../Images/black_arrow.gif"
                    '  CType(Me.FindControl("imgsales"), Image).Visible = True
                    HrSevices.Style.Add("font-weight", "bold")
                    HrSevices.Style.Add("color", "#D04832")
                Case "branch-network-master"
                    'CType(Me.FindControl("imgnetwork"), Image).Visible = False
                    'imgnetwork.ImageUrl = "../Images/black_arrow.gif"
                    ' CType(Me.FindControl("imgnetwork"), Image).Visible = True
                    HrBranch.Style.Add("font-weight", "bold")
                    HrBranch.Style.Add("color", "#D04832")
                Case "bank-details"
                    'CType(Me.FindControl("imgBankDetails"), Image).Visible = False
                    'imgBankDetails.ImageUrl = "../Images/black_arrow.gif"
                    '  CType(Me.FindControl("imgBankDetails"), Image).Visible = True
                    HrBank.Style.Add("font-weight", "bold")
                    HrBank.Style.Add("color", "#D04832")
                Case "client-master"
                    'CType(Me.FindControl("imgClient"), Image).Visible = False
                    'imgClient.ImageUrl = "../Images/black_arrow.gif"
                    ' CType(Me.FindControl("imgClient"), Image).Visible = True
                    HrClient.Style.Add("font-weight", "bold")
                    HrClient.Style.Add("color", "#D04832")
                Case "product-information"
                    'CType(Me.FindControl("imgInformation"), Image).Visible = False
                    'imgInformation.ImageUrl = "../Images/black_arrow.gif"
                    '  CType(Me.FindControl("imgInformation"), Image).Visible = True
                    HrInfo.Style.Add("font-weight", "bold")
                    HrInfo.Style.Add("color", "#D04832")
                Case "product-price"
                    'CType(Me.FindControl("imgPrice"), Image).Visible = False
                    'imgPrice.ImageUrl = "../Images/black_arrow.gif"
                    '  CType(Me.FindControl("imgPrice"), Image).Visible = True
                    HrPrice.Style.Add("font-weight", "bold")
                    HrPrice.Style.Add("color", "#D04832")
                    'Case "product-tax"
                    '    CType(Me.FindControl("imgTax"), Image).Visible = False
                    '    imgTax.ImageUrl = "../Images/black_arrow.gif"
                    '    CType(Me.FindControl("imgTax"), Image).Visible = True
                    '    HrTex.Style.Add("font-weight", "bold")
                    '    HrTex.Style.Add("color", "#D04832")

                Case "product_technicalinformation"
                    'CType(Me.FindControl("imgTechnical"), Image).Visible = False
                    'imgTechnical.ImageUrl = "../Images/black_arrow.gif"
                    '  CType(Me.FindControl("imgTechnical"), Image).Visible = True
                    ' HrTech.Style.Add("font-weight", "bold")
                    ' HrTech.Style.Add("color", "#D04832")
                Case "product_review"
                    'CType(Me.FindControl("imgReview"), Image).Visible = False
                    'imgReview.ImageUrl = "../Images/black_arrow.gif"
                    '   CType(Me.FindControl("imgReview"), Image).Visible = True
                    HrReview.Style.Add("font-weight", "bold")
                    HrReview.Style.Add("color", "#D04832")
                    'Case "other-details"
                    '    'CType(Me.FindControl("imgOther"), Image).Visible = False
                    '    'imgOther.ImageUrl = "../Images/black_arrow.gif"
                    '    CType(Me.FindControl("imgOther"), Image).Visible = True
                    '    HrOther.Style.Add("font-weight", "bold")
                    '    HrOther.Style.Add("color", "#D04832")
                    'Case "instore-services"
                    '    'CType(Me.FindControl("imgServices"), Image).Visible = False
                    '    'imgServices.ImageUrl = "../Images/black_arrow.gif"
                    '    CType(Me.FindControl("imgServices"), Image).Visible = True
                    '    HrInstore.Style.Add("font-weight", "bold")
                    '    HrInstore.Style.Add("color", "#D04832")
                    'Case "commercial-terms"
                    '    'CType(Me.FindControl("imgCommercial"), Image).Visible = False
                    '    'imgCommercial.ImageUrl = "../Images/black_arrow.gif"
                    '    CType(Me.FindControl("imgCommercial"), Image).Visible = True
                    '    HrCommercial.Style.Add("font-weight", "bold")
                    '    HrCommercial.Style.Add("color", "#D04832")
                Case "supplier-keycontacts"
                    'CType(Me.FindControl("imgkeycontacts"), Image).Visible = False
                    'imgkeycontacts.ImageUrl = "../Images/black_arrow.gif"
                    '  CType(Me.FindControl("imgkeycontacts"), Image).Visible = True
                    HrContacts.Style.Add("font-weight", "bold")
                    HrContacts.Style.Add("color", "#D04832")
                    'Case "wooddata"
                    '    'CType(Me.FindControl("imgwooddata"), Image).Visible = False
                    '    'imgwooddata.ImageUrl = "../Images/black_arrow.gif"
                    '    CType(Me.FindControl("imgwooddata"), Image).Visible = True
                    '    HrWoodData.Style.Add("font-weight", "bold")
                    '    HrWoodData.Style.Add("color", "#D04832")
                    'Case "market-operating-price"
                    '    'CType(Me.FindControl("imgmarket"), Image).Visible = False
                    '    'imgmarket.ImageUrl = "../Images/black_arrow.gif"
                    '    CType(Me.FindControl("imgmarket"), Image).Visible = True
                    '    HrMarket.Style.Add("font-weight", "bold")
                    '    HrMarket.Style.Add("color", "#D04832")
                Case "BrandMaster"
                    '   CType(Me.FindControl("imgbrand"), Image).Visible = True
                    HrBrand.Style.Add("font-weight", "bold")
                    HrBrand.Style.Add("color", "#D04832")
            End Select

            'If str = "supplieradditionalinformation" Then
            '    'onclick = "changetext(this)"
            '    CType(Me.FindControl("Image2"), Image).Visible = False
            '    Image2.ImageUrl = "../Images/black_arrow.gif"
            '    CType(Me.FindControl("Image2"), Image).Visible = True
            '    ravi1.Style.Add("font-weight", "bold")

            'End If
            If Session("ProductId") Is Nothing Then
                tdproductdeatil.Visible = False
                tdInformation.Visible = False
                tdPrice.Visible = False
                'tdTechnical.Visible = False
                tdReview.Visible = False
                tdkeycontacts.Visible = False
                imgInformation.Visible = False
                imgPrice.Visible = False
                'imgTechnical.Visible = False
                imgReview.Visible = False
                imgkeycontacts.Visible = False
            Else
                tdproductdeatil.Visible = True
                tdInformation.Visible = True
                tdPrice.Visible = True
                'tdTechnical.Visible = True
                tdReview.Visible = True
                tdkeycontacts.Visible = True
                imgInformation.Visible = True
                imgPrice.Visible = True
                ' imgTechnical.Visible = True
                imgReview.Visible = True
                imgkeycontacts.Visible = True
            End If
        End If
    End Sub
End Class