Imports System.Data
Imports System.Data.SqlClient
Partial Class ProdSearch_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
            loadProduct()
        End If
    End Sub
    Private Sub loadProduct()
        Try
            'Dim da As SqlDataAdapter
            'Dim ds As New DataSet
            'Dim con As New SqlConnection
            'con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
            'Dim Str As String
            'Str = "select distinct Product_Name from Product_Master where Product_Approved='Y' order by product_name asc"
            'If con.State = Data.ConnectionState.Open Then
            '    con.Close()
            'End If
            'da = New SqlDataAdapter(Str, con)
            'da.Fill(ds, "Product")
            'gvprodsearch.DataSource = ds
            'gvprodsearch.DataBind()
            If IsNothing(Session("ByrProdTable")) 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 Product_Distinct.*, Row_Number() over (order by RTrim(LTrim(Product_Name))) as PIndex from Product_Distinct"
                Str = "Select Product_Distinct.* from Product_Distinct order by Product_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, "Product")
                dt = ds.Tables("Product")
                Session("ByrProdTable") = dt
            End If
            Dim dt1 As DataTable

            dt1 = CType(Session("ByrProdTable"), DataTable).DefaultView.ToTable
            gvprodsearch.DataSource = dt1
            gvprodsearch.DataBind()

        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub
    Private Sub link_load(ByVal btn As String)
        Try

            Dim str As String = ""

            If IsNothing(Session("ByrProdTable")) 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 Product_Distinct.* from Product_Distinct order by Product_Name "
                If con.State = Data.ConnectionState.Open Then
                    con.Close()
                End If
                da = New SqlDataAdapter(Str1, con)
                da.Fill(ds, "Product")
                dt = ds.Tables("Product")
                Session("ByrProdTable") = dt
            End If

            Select Case btn
                Case "All"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = ""
                Case "A"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'A%' or Product_Name LIKE 'B%'or Product_Name LIKE 'C%' or Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "B"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'B%'or Product_Name LIKE 'C%' or Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "C"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'C%' or Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "D"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "E"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "F"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "G"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "H"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "I"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "J"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "K"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "L"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "M"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "N"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "O"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "P"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "Q"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "R"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "S"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "T"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "U"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "V"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "W"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "X"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "Y"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'"
                Case "Z"
                    CType(Session("ByrProdTable"), DataTable).DefaultView.RowFilter = "Product_Name LIKE 'Z%'"
            End Select
            gvprodsearch.DataSource = CType(Session("ByrProdTable"), DataTable).DefaultView.ToTable
            gvprodsearch.DataBind()

        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub
    Protected Sub LinkButton1(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Dim i As New LinkButton()
            i = CType(sender, LinkButton)
            Dim Prodid As String
            Prodid = i.CommandArgument
            'Session("Hlabel") = "Nothing"
            Dim con As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
            Dim str As String = "SELECT Category_Master.Category_Kid, Category_Master.Category_Name FROM Product_Information INNER JOIN  Category_Master ON Product_Information.Product_CategoryId = Category_Master.Category_Kid WHERE     Product_Information.Product_Name = '" & Prodid & "' AND (Category_Master.Category_IsDeleted = N'0')"
            Dim ds As New DataSet
            Dim sda As New SqlDataAdapter(str, con)
            sda.Fill(ds)
            Dim lblhead As String
            Dim parent As String = ds.Tables(0).Rows(0)(1).ToString()

            lblhead = parent & ">"
            While parent <> "Root Category"
                parent = ReturnValue("SELECT     Category_Master.Category_Name AS Expr2 FROM         Category_Master INNER JOIN                    Category_Master AS Category_Master_1 ON Category_Master.Category_Kid = Category_Master_1.Category_ParentId WHERE     (Category_Master.Category_IsDeleted = N'0') AND (Category_Master.Category_IsDeleted = N'0') AND Category_Master_1.Category_Name = '" & parent & "'")
                If parent = "" Then
                    Exit While
                End If
                lblhead = parent & ">" & lblhead
            End While
            Session("HLabel") = lblhead
            If Session("ID") = "Buyer" Then
                Response.Redirect("BuyerProdSearch.aspx?Product_KId='" & Prodid & "'")
            Else
                Response.Redirect("SearchProduct.aspx?Product_KId='" & Prodid & "'")
            End If
        Catch ex As Exception

        End Try


    End Sub

    'Protected Sub Abtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Abtn.Click
    '    Try
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'A%' or Product_Name LIKE 'B%'or Product_Name LIKE 'C%' or Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%' order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'B%'or Product_Name LIKE 'C%' or Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'C%' or Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'D%' or Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'E%' or Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'F%' or Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'G%' or Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'H%' or Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'I%' or Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'J%' or Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'K%' or Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'L%' or Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'M%' or Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'N%' or Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'O%' or Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'P%' or Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'Q%' or Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'R%' or Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'S%' or Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'T%' or Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'U%' or Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'V%' or Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'W%' or Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'X%' or Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'Y%' or Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    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
    '        Dim str As String
    '        str = "SELECT distinct Product_Name FROM Product_Master WHERE Product_Name LIKE 'Z%'order by Product_Name asc "
    '        link_load(str)
    '    Catch ex As Exception
    '        ex.Message.ToString()
    '    End Try
    '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 gvprodsearch_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvprodsearch.PageIndexChanging
        gvprodsearch.PageIndex = e.NewPageIndex
        loadProduct()
    End Sub
End Class