Imports System.Data
Imports System.Data.SqlClient
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Partial Class UserControl_JJCategorySearch
    Inherits System.Web.UI.UserControl
    Dim dtCategoryDistinct As DataTable
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Try
            If Not IsPostBack Then


                If IsNothing(Session("CategoryDistinct")) Then

                    If IsNothing(CatDistinct) Then
                        GetCatDistinct()
                    End If
                    Session("CategoryDistinct") = CatDistinct
                    'Session("CategoryDistinct") = ReturnDataTable("Select * from CategoryDistinct")
                    dtCategoryDistinct = CType(Session("CategoryDistinct"), DataTable)
                Else
                    dtCategoryDistinct = CType(Session("CategoryDistinct"), DataTable)
                End If


                If Request.QueryString("MainCat") <> Nothing Then
                    Session("MainCat1") = Nothing
                    Session("SubCat1") = Nothing
                    'Session("SubCat2") = Nothing
                    'Session("MainCat1") = Nothing
                    'Session("SubCat11") = Nothing
                    Dim strCatID As String
                    strCatID = RemoveLiterals(DecodeURL(Request.QueryString("MainCat").ToString))
                    Session("MainCat") = RemoveLiterals(DecodeURL(Request.QueryString("MainCat").ToString))
                    fillURL(RemoveLiterals(DecodeURL(Request.QueryString("MainCat"))))
                    fillMainCat(RemoveLiterals(Session("MainCat")))
                    ' ''Session("URL1") = "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' ''td.InnerHtml = ""
                    ' ''td.InnerHtml = Session("URL1").ToString
                    ' ''Session("URL") = td.InnerHtml.ToString
                    Session("Title1") = ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & " - Atcomaart Industrial Supply"
                    Page.Title = StrConv(Session("Title1").ToString, VbStrConv.ProperCase)
                    Session("Title") = Page.Title
                    'TextBox1.Text = "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    FillMeta(RemoveLiterals(Session("MainCat")))



                End If

                If Request.QueryString("MainCat1") <> Nothing Then
                    'Session("MainCat1") = Nothing
                    'Session("SubCat1") = Nothing
                    Dim strCatID As String
                    strCatID = RemoveLiterals(DecodeURL(Request.QueryString("MainCat1").ToString))
                    Session("MainCat1") = RemoveLiterals(DecodeURL(Request.QueryString("MainCat1").ToString))
                    fillURL(RemoveLiterals(DecodeURL(Request.QueryString("MainCat1"))))

                    fillMainCat11(RemoveLiterals(Session("SubCat1")))
                    fillsubCat2(Session("SubCat2").ToString)
                    fillSubCat1(Session("MainCat1").ToString)


                    'fillMainCat11(RemoveLiterals(Session("MainCat1")))
                    'fillSubCat1(Session("SubCat2").ToString)
                    'fillsubCat2(Session("SubCat1").ToString)


                    'fillsubCat2(RemoveLiterals(Session("SubCat2")))
                    'fillMainCat11(RemoveLiterals(Session("MainCat1")))
                    ' ''Session("URL4") = "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("MainCat1")) & "'") & "</a> > "
                    ' ''td.InnerHtml = ""
                    ' ''td.InnerHtml = Session("URL1").ToString & Session("URL2").ToString & Session("URL3").ToString & Session("URL4").ToString
                    ' ''Session("URL") = td.InnerHtml.ToString
                    Session("Title4") = ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("MainCat1")) & "'")
                    Page.Title = StrConv(Session("Title4").ToString, VbStrConv.ProperCase) & ", " & StrConv(Session("Title3").ToString, VbStrConv.ProperCase) & ", " & StrConv(Session("Title2").ToString, VbStrConv.ProperCase) & ", " & StrConv(Session("Title1").ToString, VbStrConv.ProperCase)
                    Session("Title") = Page.Title
                    FillMeta(RemoveLiterals(Session("MainCat1")))



                    'TextBox1.Text = "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                End If

                If Request.QueryString("SubCat1") <> Nothing Then
                    Session("MainCat1") = Nothing
                    Session("SubCat1") = RemoveLiterals(DecodeURL(Request.QueryString("SubCat1").ToString))
                    fillURL(RemoveLiterals(DecodeURL(Request.QueryString("SubCat1"))))
                    fillMainCat(RemoveLiterals(Session("MainCat")))
                    fillSubCat1(RemoveLiterals(Session("SubCat1")))
                    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(Session("MainCat").ToString) & "/" & ReturnValue("Select CategoryName from Category_Distinct where Category_KId='" & Session("MainCat").ToString & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    '' '' Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx" & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' ''Session("URL2") = "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("SubCat1")) & "'") & "</a> > "
                    ' ''td.InnerHtml = ""
                    ' ''td.InnerHtml = Session("URL1").ToString & Session("URL2").ToString
                    ' ''Session("URL") = td.InnerHtml.ToString
                    Session("Title1") = ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & " - Atcomaart Industrial Supply"
                    Session("Title2") = ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("SubCat1")) & "'")
                    Page.Title = StrConv(Session("Title2").ToString, VbStrConv.ProperCase) & ", " & StrConv(Session("Title1").ToString, VbStrConv.ProperCase)
                    Session("Title") = Page.Title
                    FillMeta(RemoveLiterals(Session("SubCat1")))



                    'Session("URL") = td.InnerHtml.ToString
                    'td.InnerHtml = TextBox1.Text & "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("SubCat1")) & "'") & "</a> > "
                    'TextBox1.Text = td.InnerHtml
                End If

                If Request.QueryString("SubCat2") <> Nothing Then

                    Session("MainCat1") = Nothing
                    Session("SubCat2") = RemoveLiterals(DecodeURL(Request.QueryString("SubCat2").ToString))
                    'fillMainCat(Session("MainCat"))
                    'fillSubCat1(Session("SubCat1"))
                    fillURL(RemoveLiterals(DecodeURL(Request.QueryString("SubCat2"))))
                    'fillMainCat(RemoveLiterals(Session("SubCat1").ToString))

                    fillMainCat11(RemoveLiterals(Session("MainCat")))
                    fillsubCat2(Session("SubCat1").ToString)
                    fillSubCat1(Session("SubCat2").ToString)




                    'fillsubCat2(RemoveLiterals(Session("SubCat2").ToString))

                    Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(RemoveLiterals(Session("MainCat").ToString)) & "/" & ReturnValue("Select CategoryName from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat").ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    Dim strCat2 As String
                    strCat2 = ReturnValue("Select Category_KId from CategoryDistinct where Category_KId='" & RemoveLiterals(ReturnValue("Select Category_ParentId from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("SubCat2").ToString) & "'")) & "'")
                    ' ''Session("URL2") = "<a href='" & ResolveUrl("~/s2/" & EncodeURL(strCat2.ToString) & "/" & ReturnValue("Select CategoryName from Category_Distinct where Category_KId='" & Session("MainCat").ToString & "'") & "/" & ReturnValue("Select Category_Name from Category_Master where Category_KId='" & strCat2 & "'") & ".aspx") & "'>" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(strCat2) & "'") & "</a> > "
                    '' ''CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = Server.HtmlEncode(ResolveUrl("~/s2/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx"))

                    ' ''Session("URL3") = "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("SubCat2")) & "'") & "</a> > "
                    ' ''td.InnerHtml = ""
                    ' ''td.InnerHtml = Session("URL1").ToString & Session("URL2").ToString & Session("URL3")
                    ' ''Session("URL") = td.InnerHtml.ToString
                    Session("Title1") = ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & " - Atcomaart Industrial Supply"
                    Session("Title2") = ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(strCat2) & "'")
                    Session("Title3") = ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("SubCat2")) & "'")
                    Page.Title = StrConv(Session("Title3").ToString, VbStrConv.ProperCase) & ", " & StrConv(Session("Title2").ToString, VbStrConv.ProperCase) & ", " & StrConv(Session("Title1").ToString, VbStrConv.ProperCase)
                    Session("Title") = Page.Title
                    FillMeta(RemoveLiterals(Session("SubCat2")))



                    'Session("URL") = td.InnerHtml.ToString
                    'td.InnerHtml = TextBox1.Text & "<a href='" & Request.RawUrl & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("SubCat1")) & "'") & "</a> > "
                    'TextBox1.Text = td.InnerHtml
                End If

            End If


            ' ''Dim scatid As String
            ' ''Dim scatid1 As String
            ' ''scatid = Request.QueryString("gvid")
            ' ''If scatid = Nothing Then
            ' ''    If Not IsPostBack Then
            ' ''        catid = DecodeURL(Request.QueryString("catid"))
            ' ''        Session("mcat") = catid
            ' ''        valuee1 = ""
            ' ''        valuee2 = ""
            ' ''        valuee3 = ""
            ' ''        Label1.Text = ""
            ' ''        loadcategory()
            ' ''        GridView2.SelectedIndex = -1
            ' ''    End If
            ' ''Else
            ' ''    If scatid <> Nothing Then
            ' ''        scatid1 = scatid.Substring(0, scatid.IndexOf("-"))
            ' ''        catid = scatid.Substring(scatid.IndexOf("-") + 1)
            ' ''        'Session("catid") = Nothing
            ' ''        If scatid1 = "main" Then
            ' ''            Session("mcat") = catid
            ' ''            loadcategory()
            ' ''            GridView2.SelectedIndex = -1
            ' ''        ElseIf scatid1 = "sub1" Then
            ' ''            Session("catid") = catid
            ' ''            loadcategory()
            ' ''            If Session("grd2") < 0 Then
            ' ''                Session("grd2") = Nothing
            ' ''            End If

            ' ''            ' fillsubgrid()
            ' ''            LinkButton1_Click(Session("mcat"))
            ' ''            LinkButton2_Click(Session("catid"))
            ' ''            Session("sub1catid") = Session("catid")
            ' ''        ElseIf scatid1 = "sub2" Then
            ' ''            Session("sub2catid") = catid
            ' ''            LinkButton2_Click(Session("sub1catid"))
            ' ''            LinkButton3_Click(Session("sub2catid"))
            ' ''        End If


            ' ''    Else

            ' ''    End If
            ' ''End If

        Catch ex As Exception

        End Try
    End Sub
    Public Sub fillURL(ByVal Cat_KID As String)


        Dim dr() As DataRow
        dr = dtCategoryDistinct.Select("Category_KId='" & Cat_KID & "'")
        Dim url As String
        url = ""
        If dr.Length = 0 Then
            td.InnerHtml = "<a href='http://www.atcomaart.com' style='font-size: 9pt; color:Black;' > Product Category  </a> >"
            td.InnerHtml += "<a style='font-size: 9pt; color:Black;'  href='" & ResolveUrl("~/main/" & EncodeURL(RemoveLiterals(Cat_KID.ToString)) & "/" & ReturnValue("Select CategoryName from Category_Distinct where Category_Kid='" & RemoveLiterals(Cat_KID.ToString) & "'") & ".aspx") & "' >" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId ='" & RemoveLiterals(Cat_KID.ToString) & "'") & "</a> > "
            Session("MainCat") = RemoveLiterals(Cat_KID.ToString)
            Exit Sub
        Else
            Dim dr1() As DataRow
            dr1 = dr
            While dr1.Length <> 0
                url += "<a style='font-size: 9pt; color:Black;'  href='" & ResolveUrl("~/JJJ/" & EncodeURL(dr(0).Item("Category_Kid").ToString) & "/" & dr(0).Item("ParentName").ToString & "/" & dr(0).Item("CategoryName").ToString & ".aspx") & "' > " & dr(0).Item("Category_Name").ToString & "</a> > | "
                dr = dtCategoryDistinct.Select("Category_KId='" & dr1(0).Item("Category_ParentId") & "'")
                If dr.Length = 0 Then
                    Session("MainCat") = dr1(0).Item("Category_ParentId").ToString
                    url += "<a style='font-size: 9pt; color:Black;'  href='" & ResolveUrl("~/main/" & EncodeURL(RemoveLiterals(dr1(0).Item("Category_ParentId"))) & "/" & dr1(0).Item("ParentName").ToString & ".aspx") & "' >" & dr1(0).Item("Category_ParentName").ToString & "</a> > "
                End If
                dr1 = dr
            End While
        End If

        td.InnerHtml = "<a style='font-size: 9pt; color:Black;'  href='http://www.atcomaart.com'> Product Category  </a> > "
        Dim url1() As String
        url1 = url.Split("|")
        Array.Reverse(url1)

        Dim i As Integer
        For i = 0 To url1.Length - 1
            If i = 0 Then
                td.InnerHtml = url1(0).ToString
                Continue For
            Else
                td.InnerHtml += url1(i).Replace("JJJ", "s" & i + 1)
            End If
        Next
        td.InnerHtml = "<a style='font-size: 9pt; color:Black;'  href='http://www.atcomaart.com'> Product Category  </a> > " & td.InnerHtml

        Dim str As String
        str = "Hello"


        ' ''Dim Cat_ID As ArrayList = New ArrayList
        ' ''Cat_ID.Add(Cat_KID)
        ' ''Dim Name As String
        ' ''Name = ReturnValue("Select Category_ParentId from Category_Master where Category_KID='" & RemoveLiterals(Cat_KID) & "'")
        ' ''While Name <> "Root Category"
        ' ''    Cat_ID.Add(Name)
        ' ''    Name = ReturnValue("Select Category_ParentId from Category_Master where Category_KID='" & RemoveLiterals(Name) & "'")
        ' ''    'Cat_ID(i) = ReturnValue("Select Category_KId from Category_Master where Category_KID='" & RemoveLiterals(Cat_KID) & "'")
        ' ''End While
        ' ''Cat_ID.Reverse()
        ' ''td.InnerHtml = ""
        ' ''Dim i As Integer
        ' ''For i = 0 To Cat_ID.Count - 1
        ' ''    If i = 0 Then
        ' ''        td.InnerHtml += "<a href='" & ResolveUrl("~/main/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from Category_Distinct where Category_Kid='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "' >" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId ='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        Session("MainCat") = RemoveLiterals(Cat_ID(i).ToString)
        ' ''    ElseIf i = 1 Then
        ' ''        Session("SubCat1") = RemoveLiterals(Cat_ID(i).ToString)
        ' ''        If ReturnValue("Select CategoryName from CategoryDistinct where Category_ParentId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") <> "" Then
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/s2/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from Category_Distinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        Else
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from Category_Distinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        End If
        ' ''    ElseIf i = 2 Then
        ' ''        Session("SubCat2") = RemoveLiterals(Cat_ID(i).ToString)
        ' ''        If ReturnValue("Select CategoryName from CategoryDistinct where Category_ParentId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") <> "" Then
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/s3/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        Else
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        End If
        ' ''    ElseIf i = 3 Then
        ' ''        Session("MainCat1") = Cat_ID(i).ToString
        ' ''        If ReturnValue("Select CategoryName from CategoryDistinct where Category_ParentId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") <> "" Then
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/s4/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        Else
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        End If
        ' ''    ElseIf i = 4 Then
        ' ''        If ReturnValue("Select CategoryName from CategoryDistinct where Category_ParentId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") <> "" Then
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/s5/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        Else
        ' ''            td.InnerHtml += "<a href='" & ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(Cat_ID(i).ToString)) & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i - 1).ToString) & "'") & "/" & ReturnValue("Select CategoryName from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & ".aspx") & "'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Cat_ID(i).ToString) & "'") & "</a> > "
        ' ''        End If
        ' ''    End If
        ' ''Next


    End Sub
    Public Function limitWords(ByVal str As String, ByVal words As Integer, ByVal chars As Integer, ByVal delimiter As String) As String
        If (chars) Then
            If (str.Length() > chars) Then
                str = str.Substring(0, chars)
            End If
        End If

        If (words) Then
            Dim temp() As String
            temp = str.Split(" ")

            If (temp.Length > words) Then
                Array.Resize(temp, words)

            End If
            Dim i As Integer = 0
            str = ""
            While (i < temp.Length)
                ' If temp(i) <> "" Then
                str += temp(i) & delimiter
                i = i + 1
                ' End If

            End While
        End If
        Return str
    End Function
    Public Sub FillMeta(ByVal strCatID As String)



        Dim dt As DataTable
        dt = ReturnDataTable("Select top(5) Category_Name from CategoryDistinct where Category_ParentId='" & strCatID & "' order by Category_Name")
        Dim i As Integer
        Dim strDiscription As String = ""
        Dim strKeyWords As String = ""
        For i = 0 To dt.Rows.Count - 1
            strDiscription &= dt.Rows(i)("Category_Name").ToString & ", "
            strKeyWords &= dt.Rows(i)("Category_Name").ToString & ", "
        Next

        Dim mt1 As New HtmlMeta
        mt1.Name = "description"
        strDiscription = "Find " & strDiscription & Page.Title.Remove(Page.Title.LastIndexOf("-")).Replace(",", " ") & " and various other industrial and business supply products only at atcomaart.com"
        mt1.Content = strDiscription
        'limitWords(strDiscription, 0, 256, " ")
        '
        'mt1.Content = "Find " &  & Page.Title & " and various other industrial and business supply products only at atcomaart.com"

        Page.Header.Controls.Add(mt1)

        Dim mt2 As New HtmlMeta
        mt2.Name = "keywords"
        mt2.Content = strKeyWords & "," & Page.Title.Remove(Page.Title.LastIndexOf("-"))
        'limitWords(strKeyWords & Page.Title.Remove(Page.Title.LastIndexOf("-")), 0, 256, " ")
        Page.Header.Controls.Add(mt2)

    End Sub
    Public Sub fillSubCat1(ByVal strSubCat1 As String)
        'Dim dt As DataTable

        dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strSubCat1) & "'"
        'dt = ReturnDataTable("Select * from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strSubCat1) & "' order by CategoryName")
        Gridview3.Columns(1).Visible = True
        Gridview3.Columns(2).Visible = True
        Gridview3.Columns(3).Visible = True
        Gridview3.DataSource = dtCategoryDistinct.DefaultView.ToTable
        Gridview3.DataBind()
        Gridview3.Columns(1).Visible = False
        Gridview3.Columns(2).Visible = False
        Gridview3.Columns(3).Visible = False
        'dt = Nothing

    End Sub
    Public Sub fillsubCat2(ByVal strSubCat2 As String)
        'Dim dt As DataTable

        'If IsNothing(Session("CategoryDistinct")) Then
        '    Session("CategoryDistinct") = ReturnDataTable("Select * from CategoryDistinct")
        '    dt = CType(Session("CategoryDistinct"), DataTable)
        'Else
        '    dt = CType(Session("CategoryDistinct"), DataTable)
        'End If
        dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strSubCat2) & "'"

        'dt = ReturnDataTable("Select * from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strSubCat2) & "' order by CategoryName")
        Gridview2.Columns(1).Visible = True
        Gridview2.Columns(2).Visible = True
        Gridview2.Columns(3).Visible = True
        Gridview2.DataSource = dtCategoryDistinct.DefaultView.ToTable
        Gridview2.DataBind()
        Gridview2.Columns(1).Visible = False
        Gridview2.Columns(2).Visible = False
        Gridview2.Columns(3).Visible = False
    End Sub
    Public Sub fillMainCat(ByVal strMainCat As String)


        If (ReturnValue("Select CategoryName from Category_Distinct where Category_Kid ='" & strMainCat & "'").ToString <> "") Then
            Dim dt As DataTable
            dt = ReturnDataTable("Select * from Category_Distinct where Category_Kid ='" & RemoveLiterals(strMainCat.ToString) & "' order by Category_Name")
            GridView1.Columns(1).Visible = True
            GridView1.Columns(2).Visible = True
            GridView1.Columns(3).Visible = True
            GridView1.DataSource = dt
            GridView1.DataBind()
            GridView1.Columns(1).Visible = False
            GridView1.Columns(2).Visible = False
            GridView1.Columns(3).Visible = False

            dt = Nothing
        Else

            dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strMainCat) & "'"
            'dt = ReturnDataTable("Select * from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strMainCat) & "' order by CategoryName")
            GridView1.Columns(1).Visible = True
            GridView1.Columns(2).Visible = True
            GridView1.Columns(3).Visible = True
            GridView1.DataSource = dtCategoryDistinct.DefaultView.ToTable
            GridView1.DataBind()
            GridView1.Columns(1).Visible = False
            GridView1.Columns(2).Visible = False
            GridView1.Columns(3).Visible = False

            Exit Sub
            'Dim kid As String
            'kid = ReturnValue("Select Category_ParentId from Category_Master where Category_Kid ='" & RemoveLiterals(strMainCat.ToString) & "'")
            'dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(kid) & "'"
            ''Dim dt As DataTable
            ''dt = ReturnDataTable("Select * from Category_Distinct where Category_Kid ='" & RemoveLiterals(strMainCat.ToString) & "' order by Category_Name")
            'GridView1.Columns(1).Visible = True
            'GridView1.Columns(2).Visible = True
            'GridView1.Columns(3).Visible = True
            'GridView1.DataSource = dtCategoryDistinct.DefaultView.ToTable 'dt
            'GridView1.DataBind()
            'GridView1.Columns(1).Visible = False
            'GridView1.Columns(2).Visible = False
            'GridView1.Columns(3).Visible = False

            'dt = Nothing

        End If


       

        'If IsNothing(Session("CategoryDistinct")) Then
        '    Session("CategoryDistinct") = ReturnDataTable("Select * from CategoryDistinct")
        '    dt = CType(Session("CategoryDistinct"), DataTable)
        'Else
        '    dt = CType(Session("CategoryDistinct"), DataTable)
        'End If
        dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strMainCat) & "'"
        'dt = ReturnDataTable("Select * from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strMainCat) & "' order by CategoryName")
        Gridview2.Columns(1).Visible = True
        Gridview2.Columns(2).Visible = True
        Gridview2.Columns(3).Visible = True
        Gridview2.DataSource = dtCategoryDistinct.DefaultView.ToTable
        Gridview2.DataBind()
        Gridview2.Columns(1).Visible = False
        Gridview2.Columns(2).Visible = False
        Gridview2.Columns(3).Visible = False


        'dt = Nothing




        'GridView1.SelectedIndex = 5


    End Sub
    Public Sub fillMainCat11(ByVal strMainCat As String)


        '''Dim dt As DataTable
        'dt = ReturnDataTable("Select * from Category_Distinct order by Category_Name")
        'GridView1.Columns(1).Visible = True
        'GridView1.Columns(2).Visible = True
        'GridView1.Columns(3).Visible = True
        'GridView1.DataSource = dt
        'GridView1.DataBind()
        'GridView1.Columns(1).Visible = False
        'GridView1.Columns(2).Visible = False
        'GridView1.Columns(3).Visible = False

        'dt = Nothing

        ' ''If IsNothing(Session("CategoryDistinct")) Then
        ' ''    Session("CategoryDistinct") = ReturnDataTable("Select * from CategoryDistinct")
        ' ''    dt = CType(Session("CategoryDistinct"), DataTable)
        ' ''Else
        ' ''    dt = CType(Session("CategoryDistinct"), DataTable)
        ' ''End If
        dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strMainCat) & "'"

        'dt = ReturnDataTable("Select * from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strMainCat) & "' order by CategoryName")
        GridView1.Columns(1).Visible = True
        GridView1.Columns(2).Visible = True
        GridView1.Columns(3).Visible = True
        GridView1.DataSource = dtCategoryDistinct.DefaultView.ToTable
        GridView1.DataBind()
        GridView1.Columns(1).Visible = False
        GridView1.Columns(2).Visible = False
        GridView1.Columns(3).Visible = False


        'dt = Nothing




        'GridView1.SelectedIndex = 5


    End Sub
    Public Sub fillMainCat1(ByVal strMainCat As String)


        '''Dim dt As DataTable
        'dt = ReturnDataTable("Select * from Category_Distinct order by Category_Name")
        'GridView1.Columns(1).Visible = True
        'GridView1.Columns(2).Visible = True
        'GridView1.Columns(3).Visible = True
        'GridView1.DataSource = dt
        'GridView1.DataBind()
        'GridView1.Columns(1).Visible = False
        'GridView1.Columns(2).Visible = False
        'GridView1.Columns(3).Visible = False

        'dt = Nothing

        ' ''If IsNothing(Session("CategoryDistinct")) Then
        ' ''    Session("CategoryDistinct") = ReturnDataTable("Select * from CategoryDistinct")
        ' ''    dt = CType(Session("CategoryDistinct"), DataTable)
        ' ''Else
        ' ''    dt = CType(Session("CategoryDistinct"), DataTable)
        ' ''End If
        dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strMainCat) & "'"

        'dt = ReturnDataTable("Select * from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strMainCat) & "' order by CategoryName")
        Gridview2.Columns(1).Visible = True
        Gridview2.Columns(2).Visible = True
        Gridview2.Columns(3).Visible = True
        Gridview2.DataSource = dtCategoryDistinct.DefaultView.ToTable
        Gridview2.DataBind()
        Gridview2.Columns(1).Visible = False
        Gridview2.Columns(2).Visible = False
        Gridview2.Columns(3).Visible = False


        'dt = Nothing




        'GridView1.SelectedIndex = 5


    End Sub
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim strCatID As String
            strCatID = e.Row.Cells(1).Text
            'Dim boolCat As Boolean
            'boolCat = IsAlreadyPresent("Select count(*) from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strCatID) & "'")
            dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strCatID) & "'"


            Dim str As String
            str = e.Row.Cells(1).Text
            str = Session("MainCat").ToString


            If (Request.QueryString("SubCat1") <> Nothing) Or Request.QueryString("MainCat") <> Nothing Then

                CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/main/" & EncodeURL(RemoveLiterals(e.Row.Cells(1).Text)) & "/" & e.Row.Cells(2).Text & ".aspx")

                'If (Request.QueryString("MainCat") <> Nothing) Then
                If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("MainCat").ToString) Then
                    e.Row.Font.Bold = True
                    e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' GridView1.SelectedIndex = e.Row.RowIndex
                End If
                'Else
                '    If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("SubCat1").ToString) Then
                '        e.Row.Font.Bold = True
                '        e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                '        ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                '        ' GridView1.SelectedIndex = e.Row.RowIndex
                '    End If
                'End If




                'Session("URL1") = "<a href='~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx""'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("SubCat1")) & "'") & "</a> > "
            End If

            If (Request.QueryString("SubCat2") <> Nothing) Then
                If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s2/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                Else
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If

                If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("SubCat1").ToString) Then
                    e.Row.Font.Bold = True
                    e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' GridView1.SelectedIndex = e.Row.RowIndex
                End If

            End If

            If (Request.QueryString("MainCat1") <> Nothing) Then
                If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s3/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                Else
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If
                If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("SubCat2").ToString) Then
                    e.Row.Font.Bold = True
                    e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' GridView1.SelectedIndex = e.Row.RowIndex
                End If
            End If


            'If Request.QueryString("SubCat1") = Nothing And Request.QueryString("SubCat2") = Nothing And Request.QueryString("MainCat1") = Nothing Then

            '    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/main/" & EncodeURL(RemoveLiterals(e.Row.Cells(1).Text)) & "/" & e.Row.Cells(2).Text & ".aspx")
            '    'Session("URL1") = "<a href='~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx""'>" & ReturnValue("Select Category_Name from CategoryDistinct where Category_KId='" & RemoveLiterals(Session("SubCat1")) & "'") & "</a> > "
            'Else

            '    If (Request.QueryString("SubCat2") <> Nothing) Then
            '        If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
            '            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s2/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
            '        Else
            '            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
            '        End If
            '    Else
            '        If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
            '            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s3/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
            '        Else
            '            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
            '        End If
            '    End If



            'End If

            '' '' ''If Session("MainCat1") = Nothing Then
            '' '' ''    If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("MainCat").ToString) Then
            '' '' ''        e.Row.Font.Bold = True
            '' '' ''        e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
            '' '' ''        ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
            '' '' ''        ' GridView1.SelectedIndex = e.Row.RowIndex
            '' '' ''    End If
            '' '' ''Else
            '' '' ''    If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("MainCat1").ToString) Then
            '' '' ''        e.Row.Font.Bold = True
            '' '' ''        e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
            '' '' ''        ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
            '' '' ''        ' GridView1.SelectedIndex = e.Row.RowIndex
            '' '' ''    End If
            '' '' ''End If



            'Dim str As String
            'str = e.Row.Cells(1).Text

        End If
    End Sub
    Protected Sub Gridview2_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles Gridview2.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim strCatID As String
            strCatID = RemoveLiterals(e.Row.Cells(1).Text)
            'Dim boolCat As Boolean
            'boolCat = IsAlreadyPresent("Select count(*) from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strCatID) & "'")
            dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strCatID) & "'"

            If (Request.QueryString("MainCat") <> Nothing) Then
                If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s2/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                Else

                    If RemoveLiterals(DecodeURL(Request.QueryString("MainCat"))) = "00002;W" Then
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/bearings/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    Else
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    End If
                End If
                'If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("SubCat1").ToString) Then
                '    e.Row.Font.Bold = True
                '    e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                '    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                '    ' GridView1.SelectedIndex = e.Row.RowIndex
                'End If
            End If

            If (Request.QueryString("SubCat1") <> Nothing) Then
                If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s2/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                Else

                    If Session("MainCat") <> Nothing And Session("MainCat") = "00002;W" Then
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/bearings/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    Else
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    End If

                    'CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If
                If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("SubCat1").ToString) Then
                    e.Row.Font.Bold = True
                    e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' GridView1.SelectedIndex = e.Row.RowIndex
                End If
            End If

            If (Request.QueryString("SubCat2") <> Nothing) Then
                If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s3/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                Else
                    If Session("MainCat") <> Nothing And Session("MainCat") = "00002;W" Then
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/bearings/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    Else
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    End If
                    'CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If
                If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("SubCat2").ToString) Then
                    e.Row.Font.Bold = True
                    e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' GridView1.SelectedIndex = e.Row.RowIndex
                End If
            End If

            If (Request.QueryString("MainCat1") <> Nothing) Then
                If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s4/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                Else
                    If Session("MainCat") <> Nothing And Session("MainCat") = "00002;W" Then
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/bearings/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    Else
                        CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    End If
                    'CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If
                If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("MainCat1").ToString) Then
                    e.Row.Font.Bold = True
                    e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
                    ' ''Session("URL1") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
                    ' GridView1.SelectedIndex = e.Row.RowIndex
                End If
            End If







            '' '' ''If Session("SubCat1") <> Nothing Then
            '' '' ''    If RemoveLiterals(e.Row.Cells(1).Text) = RemoveLiterals(Session("SubCat1").ToString) Then
            '' '' ''        e.Row.Font.Bold = True
            '' '' ''        e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EDA3A4")
            '' '' ''        ' ''Session("URL2") = "<a href='" & ResolveUrl("~/main/" & EncodeURL(e.Row.Cells(1).Text) & "/" & e.Row.Cells(2).Text & ".aspx") & "'>" & ReturnValue("Select Category_Name from Category_Distinct where Category_KId='" & RemoveLiterals(Session("MainCat")) & "'") & "</a> > "
            '' '' ''    End If
            '' '' ''End If

            '' '' ''If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then
            '' '' ''    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = Server.HtmlEncode(ResolveUrl("~/s2/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx"))
            '' '' ''Else
            '' '' ''    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
            '' '' ''End If


        End If

    End Sub
    Protected Sub Gridview3_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles Gridview3.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim strCatID As String
            strCatID = RemoveLiterals(e.Row.Cells(1).Text)
            'Dim boolCat As Boolean
            'boolCat = IsAlreadyPresent("Select count(*) from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strCatID) & "'")

            dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(strCatID) & "'"

            If dtCategoryDistinct.DefaultView.ToTable.Rows.Count > 0 Then

                If (Request.QueryString("SubCat1") <> Nothing) Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s3/" & EncodeURL(strCatID) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If

                If (Request.QueryString("SubCat2") <> Nothing) Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s4/" & EncodeURL(strCatID) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If


            Else
                If e.Row.RowType = DataControlRowType.DataRow Then
                    'Dim strCatID As String
                    strCatID = RemoveLiterals(e.Row.Cells(1).Text)
                    Dim boolCat As String
                    boolCat = ReturnValue("Select CategoryName from CategoryDistinct where Category_ParentId='" & RemoveLiterals(strCatID) & "'")
                    If boolCat <> "" Then

                        If (Request.QueryString("SubCat1") <> Nothing) Then
                            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s3/" & EncodeURL(strCatID) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                        End If

                        If (Request.QueryString("SubCat2") <> Nothing) Then
                            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/s4/" & EncodeURL(strCatID) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                        End If

                        'CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = Server.HtmlEncode(ResolveUrl("~/s3/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx"))
                    Else
                        If Session("MainCat") <> Nothing And Session("MainCat") = "00002;W" Then
                            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/bearings/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                        Else
                            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                        End If
                        'CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                    End If


                End If
                If Session("MainCat") <> Nothing And Session("MainCat") = "00002;W" Then
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/bearings/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                Else
                    CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(RemoveLiterals(strCatID)) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
                End If
                'CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink).NavigateUrl = ResolveUrl("~/category/" & EncodeURL(strCatID) & "/" & e.Row.Cells(3).Text & "/" & e.Row.Cells(2).Text & ".aspx")
            End If


        End If
    End Sub
End Class