Imports System.Data
Imports System.Data.SqlClient
Partial Class UserControl_Productsinfo
    Inherits System.Web.UI.UserControl
    Dim catid As String
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader
    Dim strr As String
    Dim searchopt As String
    Dim keyval As Integer
    Dim prodid As String
    Dim BrandId As String
    Shared prodkey As String
    Shared searchkey As String


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        catid = Request.QueryString("Product_Id")
        keyval = Request.QueryString("Value")
        searchopt = Request.QueryString("key")
        prodid = Request.QueryString("Product_KId")
        BrandId = Request.QueryString("Brand_KId")
        If Not IsPostBack Then
            If catid = Nothing Then
                search_product() 'Function for Search Product By Keyword,Product Code, Model No etc.
                productinfo() 'Function for Product Information
                productBrandinfo() 'Function for Brand Name Information
            Else
                currentCat() 'Function for Product Information (Like Name etc.).
            End If
        End If
    End Sub

    Private Sub currentCat()
        Try
            catid = Request.QueryString("Product_Id")
            Dim con As New SqlConnection
            con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
            cmd = New SqlCommand("SELECT *from Product_Master where Product_CategoryId='" & catid & "'", con)
            con.Open()
            dr = cmd.ExecuteReader
            DataList1.DataSource = dr
            DataList1.DataBind()
            con.Close()
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Private Sub productinfo()
        Try
            Dim con As New SqlConnection
            con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
            cmd = New SqlCommand("SELECT *from Product_Master where Product_KId=" & prodid, con)
            con.Open()
            dr = cmd.ExecuteReader
            DataList1.DataSource = dr
            DataList1.DataBind()
            con.Close()
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

    Private Sub productBrandinfo()
        Try
            Dim con As New SqlConnection
            con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
            cmd = New SqlCommand("SELECT *from Product_Master where Product_BrandId=" & BrandId, con)
            con.Open()
            dr = cmd.ExecuteReader
            DataList1.DataSource = dr
            DataList1.DataBind()
            con.Close()
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub


    Protected Sub lnkbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim i As New LinkButton()
        i = CType(sender, LinkButton)
        Dim intId As String = i.CommandArgument
        Response.Redirect("SearchProductDetails.aspx?ProductCode=" & intId)
    End Sub
    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Dim d As New ImageButton()
        d = CType(sender, ImageButton)
        Dim dd As String = d.CommandArgument
        Response.Redirect("SearchProductDetails.aspx?ProductCode=" & dd)
    End Sub
    Private Sub search_product()
        Try
            If keyval = 0 Then
                Dim con As New SqlConnection
                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                prodkey = "select Keyword_ProductId from Product_Keyword where Keyword_Name='" & searchopt & "'"
                cmd = New SqlCommand(prodkey, con)
                con.Open()
                dr = cmd.ExecuteReader
                If dr.Read Then
                    searchkey = dr(0)
                End If
                con.Close()
                dr.Close()
                If con.State = ConnectionState.Open Then
                    con.Close()
                End If
                strr = "select *from product_master where product_kid='" & searchkey & "'"
                cmd = New SqlCommand(strr, con)
                con.Open()
                dr = cmd.ExecuteReader
                DataList1.DataSource = dr
                DataList1.DataBind()
                con.Close()
            ElseIf keyval = 1 Then
                strr = "select *from product_master where product_ModelNo like '%" & searchopt & "%'"
                Dim con As New SqlConnection
                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                cmd = New SqlCommand(strr, con)
                con.Open()
                dr = cmd.ExecuteReader
                DataList1.DataSource = dr
                DataList1.DataBind()
                con.Close()
            ElseIf keyval = 2 Then
                strr = "select *from product_master where product_Code like '%" & searchopt & "%'"
                Dim con As New SqlConnection
                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                cmd = New SqlCommand(strr, con)
                con.Open()
                dr = cmd.ExecuteReader
                DataList1.DataSource = dr
                DataList1.DataBind()
                con.Close()
            ElseIf keyval = 3 Then
                strr = "select *from Brand_Search where brand_name like '%" & searchopt & "%'"
                Dim con As New SqlConnection
                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                cmd = New SqlCommand(strr, con)
                con.Open()
                dr = cmd.ExecuteReader
                DataList1.DataSource = dr
                DataList1.DataBind()
                con.Close()
            End If
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

End Class