Imports System
Imports RewriteModule
Imports System.Data
Partial Class UserControl_HomeSearch_buyer
    Inherits System.Web.UI.UserControl
    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        If Trim(txtsearch.Text = "") Then
            Label1.Text = "Please Search Text:"
            Label1.Style.Add("color", "Red")
            Exit Sub
        End If
        If ddl_Search.SelectedItem.Value.ToString <> "s" Then
            Try


                ' If ddl_Search.SelectedItem.Value.ToString = "0" Then
                Dim keywords As String
                keywords = txtsearch.Text.Trim
                Dim dt As DataTable
                dt = GetProductInformation("Product_Name", keywords) ' ReturnDataTable("Select top(1) Product_Name, ProductName  from ProductIndex where Product_Name like '" & keywords & "%' order by Product_Name")
                If dt.Rows.Count = 0 Then
                    dt = GetProductInformation("Product_Name", keywords) 'ReturnDataTable("Select top(1) Product_Name, ProductName  from ProductIndex where Product_Name like '%" & keywords & "%' order by Product_Name")
                End If
                If dt.Rows.Count > 0 Then
                    Response.Redirect(Page.ResolveUrl(Server.HtmlEncode("~/buyer/BuyerSearchProductIndex.aspx?ProductIndex=" & dt.Rows(0).Item("ProductName").ToString)))

                    'Dim script As String
                    'Dim url As String
                    'url = Page.ResolveUrl("~/search/index/" & dt.Rows(0).Item("ProductName").ToString & ".aspx")
                    'script = "<script type='text/javascript' language='javascript'>"
                    'script += "window.open('" & url & "','fill')"
                    'script += "</script>"
                    'If Page.IsStartupScriptRegistered("JJ1") Then
                    'Else
                    '    Page.RegisterStartupScript("JJ1", script)
                    'End If

                    'Else

                    'Dim script As String
                    'Dim url As String
                    'url = Page.ResolveUrl("~/search/index/searchnotfound.aspx")
                    'script = "<script type='text/javascript' language='javascript'>"
                    'script += "window.open('" & url & "','fill','height=420,width=420,left=100,top=100,scollbar=no,toolbar=no,resizable=0,location=0')"
                    'script += "</script>"
                    'If Page.IsStartupScriptRegistered("JJ") Then
                    'Else
                    '    Page.RegisterStartupScript("JJ", script)
                    'End If



                    'Response.Redirect(Page.ResolveUrl("~/buyer/BuyerSearchProductIndex.aspx?ProductIndex=searchnotfound"))
                    'Label1.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Your Search not found."
                    'Label1.Style.Add("color", "Red")
                    'End If

                Else
                    If ddl_Search.SelectedItem.Value.ToString = "0" Then
                        Session("HLabel") = ""
                        Response.Redirect(Page.ResolveUrl("~/buyer/BuyerProdSearch.aspx?key=" & txtsearch.Text & "&Value=0&ValueFlag=0"))
                    Else
                        Session("HLabel") = ""
                        Response.Redirect(Page.ResolveUrl("~/buyer/BuyerProdSearch.aspx?key=" & txtsearch.Text & "&Value=" & ddl_Search.SelectedItem.Value & "&ValueFlag=" & ddl_Search.SelectedItem.Value))
                    End If
                End If
            Catch ex As Exception

        End Try
        Else
            Label1.Text = "<img alt='' src='" & Page.ResolveUrl("~/Images/javascripts.gif") & "'/>&nbsp;Please Select Option:"
            Label1.Style.Add("color", "Red")
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtsearch.Attributes.Add("OnKeyPress", "javascript:if (event.keyCode == 13) __doPostBack('" + ImageButton1.UniqueID + "','')")
        If Not IsPostBack Then

            ImageButton1.ImageUrl = Page.ResolveUrl("~/Images/search.jpg")
            ImageButton1.Attributes.Add("onmouseover", "this.style.borderColor='black';")
            ImageButton1.Attributes.Add("onmouseout", "this.style.borderColor='white';")
            If (Request.RawUrl.Contains("/BuyerSearchProductIndex")) Then
                txtsearch.Text = ReturnValue("Select Product_Name from ProductIndex where ProductName='" & Request.QueryString("ProductIndex").ToString.Trim & "'").ToString.Trim
                ddl_Search.SelectedValue = "0"
            End If
        End If

    End Sub
End Class