Imports System
Imports RewriteModule
Imports System.Data
Partial Class UserControl_HomeSearch
    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
                    Session("Keyword") = txtsearch.Text.Trim '------updated by prachi - 19/08/2009 - for product search------
                    Session("Search") = ddl_Search.SelectedItem.Value '------updated by prachi - 18/08/2009 - for product search------
                    Response.Redirect(Page.ResolveUrl("~/search/index/" & dt.Rows(0).Item("ProductName").ToString & ".aspx"))


                    '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
                    If ddl_Search.SelectedItem.Value.ToString = "0" Then
                        Response.Redirect(Page.ResolveUrl("~/SearchProduct.aspx?key=" & txtsearch.Text.ToString.Trim & "&Value=0&ValueFlag=" & ddl_Search.SelectedItem.Value))
                    Else
                        Response.Redirect(Page.ResolveUrl("~/SearchProduct.aspx?key=" & txtsearch.Text.ToString.Trim & "&Value=" & ddl_Search.SelectedItem.Value & "&ValueFlag=" & ddl_Search.SelectedItem.Value))
                    End If


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

                'Else
                ''    If Session("BuyId") = Nothing Then
                ''        Session("HLabel") = ""
                'Response.Redirect(Page.ResolveUrl("~/SearchProduct.aspx?key=" & txtsearch.Text & "&Value=" & ddl_Search.SelectedItem.Value))
                ''    Else
                ''        Session("HLabel") = ""
                ''        Response.Redirect(Page.ResolveUrl("~/buyer/BuyerProdSearch.aspx?key=" & txtsearch.Text & "&Value=" & 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("/search/")) Then
                txtsearch.Text = ReturnValue("Select Product_Name from ProductIndex where ProductName='" & Request.QueryString("ProductIndex").ToString.Trim & "'").ToString.Trim
                '------updated by prachi - 18/08/2009 - for product search------
                ddl_Search.SelectedValue = Session("Search")
                Session("Keyword") = txtsearch.Text.Trim
            ElseIf (Request.RawUrl.Contains("/category/")) Then
                txtsearch.Text = Session("Keyword") 'ReturnValue("Select Product_Name from ProductIndex where ProductName='" & Request.QueryString("Product_Id").ToString.Trim & "'").ToString.Trim
                ddl_Search.SelectedValue = Session("Search")
            ElseIf (Request.RawUrl.Contains("/index/")) Then
                txtsearch.Text = ReturnValue("Select Product_Name from ProductIndex where ProductName='" & Request.QueryString("ProductIndex").ToString.Trim & "'").ToString.Trim
                ddl_Search.SelectedValue = Session("Search")
                '------end update------
            End If

            If Request.QueryString("Key") <> Nothing And Request.QueryString("ValueFlag") <> Nothing Then
                txtsearch.Text = Request.QueryString("Key").ToString
                ddl_Search.SelectedValue = Request.QueryString("ValueFlag").ToString
            End If
            'key=Atco&Value=3



        End If

    End Sub

End Class