Imports System.Data
Imports System.Data.SqlClient
Partial Class CatSearch_Buyer
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            'loadcategory()
            link_load("ALL")
        End If
    End Sub
    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 Category_Distinct.* from Category_Distinct order by Category_Name"
                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
            gvcatsearch.DataSource = dt1
            gvcatsearch.DataBind()

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

    Private Sub link_load(ByVal 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
                Str1 = "Select Category_Distinct.* from Category_Distinct order by Category_Name"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                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%'"
                Case "X"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'X%' or Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                Case "Y"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'Y%' or Category_Name LIKE 'Z%'"
                Case "Z"
                    CType(Session("CatTable"), DataTable).DefaultView.RowFilter = "Category_Name LIKE 'Z%'"
            End Select
            gvcatsearch.DataSource = CType(Session("CatTable"), DataTable).DefaultView.ToTable
            gvcatsearch.DataBind()
        Catch ex As Exception
            ex.Message.ToString()

        End Try
    End Sub

    Protected Sub LinkButton1(ByVal sender As Object, ByVal e As EventArgs)
        Dim i As New LinkButton()
        i = CType(sender, LinkButton)
        Dim catid As String
        catid = i.CommandArgument
        If Session("ID") = "Buyer" Then
            Response.Redirect("BuyerCategorySearch.aspx?MainCat=" & EncodeURL(catid))
        Else
            CreateMessageUCAlert(Me, "Your Session has been expiered. Please Login Again.", "strkeyval")
        End If
    End Sub


    Protected Sub Abtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Abtn.Click
        Try
            link_load("A")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Bbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bbtn.Click
        Try
            link_load("B")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Cbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cbtn.Click
        Try
            link_load("C")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Dbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dbtn.Click
        Try
            link_load("D")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Ebtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ebtn.Click
        Try
            link_load("E")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Fbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Fbtn.Click
        Try
            link_load("F")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Gbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Gbtn.Click
        Try
            link_load("G")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Hbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hbtn.Click
        Try
            link_load("H")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Ibtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ibtn.Click
        Try
            link_load("I")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Jbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Jbtn.Click
        Try
            link_load("J")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Kbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Kbtn.Click
        Try
            link_load("K")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Lbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lbtn.Click
        Try
            link_load("L")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Mbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Mbtn.Click
        Try
            link_load("M")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Nbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Nbtn.Click
        Try
            link_load("N")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Obtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Obtn.Click
        Try
            link_load("O")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Pbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pbtn.Click
        Try
            link_load("P")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Qbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Qbtn.Click
        Try
            link_load("Q")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Rbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rbtn.Click
        Try
            link_load("R")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Sbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Sbtn.Click
        Try
            link_load("S")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Tbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tbtn.Click
        Try
            link_load("T")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Ubtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ubtn.Click
        Try
            link_load("U")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Vbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Vbtn.Click
        Try
            link_load("V")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Wbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Wbtn.Click
        Try
            link_load("W")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Xbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Xbtn.Click
        Try
            link_load("X")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Ybtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ybtn.Click
        Try
            link_load("Y")
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Protected Sub Zbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Zbtn.Click
        Try
            link_load("Z")
        Catch ex As Exception
            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
        gvcatsearch.PageIndex = e.NewPageIndex
        loadcategory()
    End Sub
End Class