Imports System.Data
Imports System.Data.SqlClient
Imports Ajax
Partial Class UserControl_CatSearch
    Inherits System.Web.UI.UserControl
    Shared flag As Boolean
    Shared btn As LinkButton
    Shared chkflag As Boolean
    Shared jdt As New DataTable
    Shared jds As New DataSet
    Shared CDT As New DataTable
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Try

                If Request.QueryString.Count = 0 Then
                    getGridCatString("ALL")
                End If




                If Request.QueryString("catpage") = Nothing And Request.QueryString("csid") = Nothing Then
                    Session("catpage") = 1
                    loadcategory()
                ElseIf Request.QueryString("catpage") = Nothing Then
                    Session("catpage") = 1
                    getGridCatString(Request.QueryString("csid").ToString)
                ElseIf Request.QueryString("csid") = Nothing Then
                    Session("catpage") = Request.QueryString("catpage")
                    'Session("ProdTable") = Nothing
                    loadcategory()
                Else
                    Session("catpage") = Request.QueryString("catpage")
                    'If IsNothing(Session("ProdTable")) Then
                    getGridCatString(Request.QueryString("csid").ToString)
                    'End If
                    loadcategory()
                End If
                'Panel1.Style.Add("visibility", "hidden")
            Catch ex As Exception
                Response.Write(ex.Message.ToString)
            End Try

        End If
    End Sub

    '<Ajax.AjaxMethod()> _
    'Public Function JCat(ByVal catid As String) As DataTable

    '    CDT.DefaultView.RowFilter = "Category_ParentId ='" & catid & "'"
    '    CDT.AcceptChanges()
    '    Dim dt As DataTable = CDT.DefaultView.ToTable
    '    Return dt

    'End Function

    Private Sub loadcategory()
        Try
            If IsNothing(Session("CatTable")) Then
                Dim dt As New DataTable
                Dim ds As New DataSet
                Dim con As New SqlConnection
                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                Dim Str As String
                'Str = "SELECT DISTINCT LOWER(SUBSTRING(LTRIM(Product_Master.Product_Name), 1, 28)) AS SProduct_Name, Row_Number() over (order by RTrim(LTrim(Product_Name))) as PIndex, LOWER(REPLACE(LTRIM(RTRIM(Product_Master.Product_Name)), ' ', '-')) AS Product_Name, LOWER(REPLACE(REPLACE(REPLACE(Category_Master.Category_Name, ' ', '-'), ',', ''), '&-', '')) AS Category_name FROM Product_Master LEFT OUTER JOIN  Category_Master ON Product_Master.Product_CategoryId = Category_Master.Category_Kid WHERE (Product_Master.Product_Approved = 'Y') AND (Product_Master.Product_IsDeleted = '0') AND (Category_Master.Category_IsDeleted = '0') "
                'Str = "Select Category_Distinct.*, Row_Number() over (order by RTrim(LTrim(Category_Name))) as CIndex from Category_Distinct"
                Str = "Select Category_Distinct.* from Category_Distinct order by Category_Name"
                ' Str = "select distinct lower(substring(LTrim(Product_Name),1,28)) as SProduct_Name,LTrim(Product_Name) as Product_Name from Product_Master where Product_Approved='Y' and Product_Isdeleted='0' order by product_name asc"
                If con.State = Data.ConnectionState.Open Then
                    con.Close()
                End If
                da = New SqlDataAdapter(Str, con)
                da.Fill(ds, "Category")
                dt = ds.Tables("Category")
                Session("CatTable") = dt

            End If
            'End If

            Dim dt1 As DataTable

            dt1 = CType(Session("CatTable"), DataTable).DefaultView.ToTable

            Dim dt2 As DataTable
            dt2 = CType(Session("CatTable"), DataTable)

            If Request.QueryString("catpage") = Nothing And Request.QueryString("csid") = Nothing Then
                dt1 = CType(Session("CatTable"), DataTable)
            End If
            If Request.QueryString("csid") = Nothing Then
                dt1 = CType(Session("CatTable"), DataTable)
            Else
                dt1 = CType(Session("CatTable"), DataTable).DefaultView.ToTable
            End If

            'If Request.QueryString.Count = 0 Then
            '    dt1 = CType(Session("BrandTable"), DataTable)
            'Else
            '    If Request.QueryString("BrandPage") <> Nothing Then
            '        If Request.QueryString("bsid") = Nothing Then
            '            dt1 = CType(Session("BrandTable"), DataTable)
            '        Else
            '            dt1 = CType(Session("BrandTable"), DataTable).DefaultView.ToTable
            '        End If
            '    Else
            '        dt1 = CType(Session("BrandTable"), DataTable).DefaultView.ToTable
            '    End If

            'End If

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


                Dim dtCat As New DataTable
                dtCat = dt1.Clone
                '''Dim start As Integer
                '''start = CType(dt.Rows(0).Item("Pindex").ToString(), Integer)
                Dim currentstart As Integer
                Dim currentend As Integer
                currentstart = ((CType(Request.QueryString("catpage"), Integer) - 1) * 17)
                currentend = currentstart + 18

                While currentstart <> currentend
                    Try
                        dtCat.Rows.Add(dt1.Rows(currentstart).ItemArray)
                        currentstart = currentstart + 1
                    Catch ex As Exception
                        currentstart = currentend
                    End Try
                End While

                gvcatsearch.Columns(1).Visible = True
                gvcatsearch.DataSource = dtCat.DefaultView.ToTable
                'ds.Tables("Product_Mast")
                gvcatsearch.DataBind()
                gvcatsearch.Columns(1).Visible = False
                'By Pankaj Mishra===========================================================================================
                If gvcatsearch.Rows.Count < 17 Then
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).Visible = False
                Else
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).Visible = True
                End If

                If Session("catpage") = "1" Then

                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = False
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?catpage=" & CType(Session("catpage"), Integer) + 1)
                Else
                    Session("catpage") = Request.QueryString("catpage").ToString()
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = True
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?catpage=" & CType(Session("catpage"), Integer) - 1)
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?catpage=" & CType(Session("catpage"), Integer) + 1)
                End If


                If Request.QueryString("csid") <> Nothing Then
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?csid=" & Request.QueryString("csid") & "&catpage=" & CType(Session("catpage"), Integer) - 1)
                    CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?csid=" & Request.QueryString("csid") & "&catpage=" & CType(Session("catpage"), Integer) + 1)
                End If
                '==================================================================================================================
                Exit Sub
            End If

            ' ''Dim start As Integer
            ' ''start = CType(dt1.Rows(0).Item("Cindex").ToString(), Integer)

            ' ''Dim currentstart As Integer
            ' ''Dim currentend As Integer
            ' ''currentstart = start + ((CType(Session("catpage"), Integer) - 1) * 27)
            ' ''currentend = currentstart + 16

            'If Request.QueryString("ProdPage") <> Nothing Then
            'dt1.DefaultView.RowFilter = "CIndex >= " & currentstart & " And CIndex <=" & currentend
            'End If

            gvcatsearch.Columns(1).Visible = True
            gvcatsearch.DataSource = Nothing
            gvcatsearch.DataSource = dt1.DefaultView.ToTable
            gvcatsearch.DataBind()
            gvcatsearch.Columns(1).Visible = False
            'By Pankaj Mishra================================================================================================
            If gvcatsearch.Rows.Count < 17 Then
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).Visible = False
            Else
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).Visible = True
            End If

            If Session("catpage") = "1" Then

                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = False
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?catpage=" & CType(Session("catpage"), Integer) + 1)
            Else
                Session("catpage") = Request.QueryString("catpage").ToString()
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = True
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?catpage=" & CType(Session("catpage"), Integer) - 1)
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?catpage=" & CType(Session("catpage"), Integer) + 1)
            End If


            If Request.QueryString("csid") <> Nothing Then
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?csid=" & Request.QueryString("csid") & "&catpage=" & CType(Session("catpage"), Integer) - 1)
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?csid=" & Request.QueryString("csid") & "&catpage=" & CType(Session("catpage"), Integer) + 1)
            End If
            '=================================================================================================================

        Catch ex As Exception
            Response.Write(ex.Message.ToString)
        End Try
    End Sub

   


    Protected Sub gvcatsearch_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvcatsearch.PageIndexChanging
        Try

            If Session("catid") = Nothing Then
                gvcatsearch.PageIndex = e.NewPageIndex
                loadcategory()
                chkflag = True
            ElseIf Session("catid") <> Nothing Then
                gvcatsearch.PageIndex = e.NewPageIndex
                getGridCatString(Session("catid"))
            Else

            End If
        Catch ex As Exception

        End Try
    End Sub
    
    Protected Sub getGridCatString(ByRef qstr As String)
        Try

       
            Dim str As String = ""


            If IsNothing(Session("CatTable")) Then
                Dim dt As New DataTable
                Dim ds As New DataSet
                Dim con As New SqlConnection
                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                Dim Str1 As String
                'Str = "SELECT DISTINCT LOWER(SUBSTRING(LTRIM(Product_Master.Product_Name), 1, 28)) AS SProduct_Name, Row_Number() over (order by RTrim(LTrim(Product_Name))) as PIndex, LOWER(REPLACE(LTRIM(RTRIM(Product_Master.Product_Name)), ' ', '-')) AS Product_Name, LOWER(REPLACE(REPLACE(REPLACE(Category_Master.Category_Name, ' ', '-'), ',', ''), '&-', '')) AS Category_name FROM Product_Master LEFT OUTER JOIN  Category_Master ON Product_Master.Product_CategoryId = Category_Master.Category_Kid WHERE (Product_Master.Product_Approved = 'Y') AND (Product_Master.Product_IsDeleted = '0') AND (Category_Master.Category_IsDeleted = '0') "
                'Str1 = "Select Category_Distinct.*, Row_Number() over (order by RTrim(LTrim(Category_Name))) as CIndex from Category_Distinct"
                Str1 = "Select Category_Distinct.* from Category_Distinct order by Category_Name"
                ' Str = "select distinct lower(substring(LTrim(Product_Name),1,28)) as SProduct_Name,LTrim(Product_Name) as Product_Name from Product_Master where Product_Approved='Y' and Product_Isdeleted='0' order by product_name asc"
                If con.State = Data.ConnectionState.Open Then
                    con.Close()
                End If
                da = New SqlDataAdapter(Str1, con)
                da.Fill(ds, "Category")
                dt = ds.Tables("Category")
                Session("CatTable") = dt

            End If
            Dim dtall As New DataTable

            Select Case qstr.ToString

                Case "ALL"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "" '"Category_Name LIKE 'A%' or Category_Name LIKE 'B%' or Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId='Root Category') AND (Category_Name LIKE 'A%' or Category_Name LIKE 'B%' or Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    'link_load(str)
                Case "A"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'A%' or Category_Name LIKE 'B%' or Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId='Root Category') AND (Category_Name LIKE 'A%' or Category_Name LIKE 'B%' or Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    'link_load(str)
                Case "B"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'B%' or Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId='Root Category') AND (Category_Name LIKE 'B%' or Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    'link_load(str)
                Case "C"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId='Root Category') AND (Category_Name LIKE 'C%' or Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "D"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId='Root Category') AND (Category_Name LIKE 'D%' or Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    'link_load(str)
                Case "E"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'E%' or Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "F"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'F%' or Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "G"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'G%' or Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "H"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'H%' or Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "I"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'I%' or Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '   link_load(str)
                Case "J"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'J%' or Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "K"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master  WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'K%' or Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "L"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'L%' or Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "M"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'M%' or Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '   link_load(str)
                Case "N"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'N%' or Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '   link_load(str)
                Case "O"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'O%' or Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "P"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'P%' or Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "Q"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'Q%' or Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "R"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'R%' or Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "S"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'S%' or Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "T"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'T%' or Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    ' link_load(str)
                Case "U"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'U%' or Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "V"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'V%' or Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "W"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'W%' or Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "X"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "Y"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%') ORDER BY Category_Name"
                    '  link_load(str)
                Case "Z"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'Z%'"
                    'str = "SELECT Category_Kid,Category_Name FROM Category_Master WHERE (Category_ParentId ='Root Category') AND (Category_Name LIKE 'Z%') ORDER BY Category_Name"

            End Select

            gvcatsearch.Columns(1).Visible = True
            gvcatsearch.DataSource = CType(Session("CatTable"), DataTable).DefaultView.ToTable
            gvcatsearch.DataBind()
            gvcatsearch.Columns(1).Visible = False
            CType(Session("CatTable"), DataTable).RejectChanges()


            'By Pankaj Mishra================================================================================================
            If CType(Session("CatTable"), DataTable).DefaultView.ToTable.Rows.Count < 17 Then
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).Visible = False
            End If

            If Session("catpage") = "1" Then

                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = False
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?csid=" & qstr & "&catpage=" & CType(Session("catpage"), Integer) + 1)
            Else
                Session("catpage") = Request.QueryString("catpage").ToString()
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = True
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlBack"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?csid=" & qstr & "&catpage=" & CType(Session("catpage"), Integer) - 1)
                CType(gvcatsearch.FooterRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/home.aspx?csid=" & qstr & "&catpage=" & CType(Session("catpage"), Integer) + 1)
            End If
            '=======================================================================================================
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub gvcatsearch_DataBound(ByVal sender As Object, ByVal e As System.EventArgs)
        'If Request.QueryString("catpage") = Nothing Then
        '    Session("catpage") = 1

        '    'Dim hr As HyperLink = gvcatsearch.BottomPagerRow.FindControl("hrlBack")
        '    CType(gvcatsearch.BottomPagerRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = False
        '    CType(gvcatsearch.BottomPagerRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/Home.aspx?catpage=" & CType(Session("catpage"), Integer) + 1)
        '    'gvcatsearch.PageIndex = 1

        'Else
        '    'gvcatsearch.PageIndex = 2
        '    Session("catpage") = Request.QueryString("catpage").ToString()
        '    CType(gvcatsearch.BottomPagerRow.Cells(0).FindControl("hrlBack"), HyperLink).Visible = True
        '    CType(gvcatsearch.BottomPagerRow.Cells(0).FindControl("hrlBack"), HyperLink).NavigateUrl = ResolveUrl("~/Home.aspx?catpage=" & CType(Session("catpage"), Integer) - 1)
        '    CType(gvcatsearch.BottomPagerRow.Cells(0).FindControl("hrlNext"), HyperLink).NavigateUrl = ResolveUrl("~/Home.aspx?catpage=" & CType(Session("catpage"), Integer) + 1)
        'End If

    End Sub

    Protected Sub gvcatsearch_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim KID As String
            KID = e.Row.Cells(1).Text
            Dim dt As DataTable
            dt = ReturnDataTable("Select Top(5) Category_Name from Category_Master where Category_ParentId='" & KID & "'")

            Dim title As String
            title = ReturnValue("Select Category_Name from Category_Master where Category_KId='" & KID & "'") & ", "

            Dim i As Integer
            For i = 0 To dt.Rows.Count - 1
                title += dt.Rows(i)("Category_Name").ToString & ","
            Next

            '            CType(e.Row.Cells(0).FindControl("LinkButton1"), HyperLink) = title

            '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) & "'")



            'If boolCat 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")
            'Else
            '    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