Imports System
Imports System.Web
Imports System.Web.Caching
Imports System.Web.UI
Imports System.Data
Imports System.Data.SqlClient
Imports System.Threading
Partial Class Home
    Inherits System.Web.UI.Page

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Session("three") = Nothing
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Page.Form.DefaultButton = CType(HomeSearch1.FindControl("ImageButton1"), ImageButton).UniqueID
            If Not IsPostBack Then

            End If
            Response.Expires = -1
            imgbtngo.ImageUrl = ResolveUrl("~/Images/go.jpg")
            imgbtngo.Attributes.Add("onmouseover", "this.style.borderColor='black'")
            imgbtngo.Attributes.Add("onmouseout", "this.style.borderColor='#ABBFD8'")
            '  Session("Product") = Nothing
            'Session("Category") = Nothing
            '  Session("Brand") = Nothing
            Session("MailId") = Nothing
            Session("backcatid") = Nothing
            Dim csortid As String
            csortid = Request.QueryString("csid")
            Session("catid") = csortid
            Dim bsortid As String
            bsortid = Request.QueryString("bsid")
            Session("brandid") = bsortid
        Catch ex As Exception
            Response.Write(ex.Message.ToString)
        End Try
    End Sub

   
    Protected Sub imgbtngo_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgbtngo.Click
        If txtemail.Text <> "" Then
            Session("backcatid") = Nothing
            Dim csortid As String
            csortid = Request.QueryString("csid")
            Session("catid") = csortid
            Session("MailId") = txtemail.Text
            Response.Redirect("ShowCategory.aspx?mail=" & Session("MailId") & "")
        End If
    End Sub
End Class