Imports System
Imports System.Data
Imports System.Data.SqlClient
Partial Class UserControl_ReceiveAlert
    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
            If Session("MailId") <> "" Then
                txtEmailId.Text = Session("MailId")
            End If
            Session("Catid") = Nothing
            Session("gvid") = Nothing
        End If
        If Request.QueryString("catid") <> "" Or Request.QueryString("gvid") <> "" Then
            If Request.QueryString("catid") <> "" Then
                Session("catid") = Request.QueryString("catid")
                lblPrCatName.Text = getdetails("select Category_Name from Category_Master  where Category_Kid='" & Session("catid") & "'")
            Else
                Session("gvid") = Request.QueryString("gvid").Substring(5)
                lblPrCatName.Text = getdetails("select Category_Name from Category_Master  where Category_Kid='" & Session("gvid") & "'")
            End If
        Else
            'Response.Redirect("ShowCategory.aspx")
        End If
    End Sub
    Function getdetails(ByVal strqry As String) As String
        Try
            Dim SqlCon As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString")) ' Declare Connection Variable
            Dim cmd As New SqlCommand(strqry, SqlCon)    ' Declare Command Variable
            SqlCon.Open()                                   ' Opens Connection 
            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader
            Dim str As String = ""

            If dr.Read Then
                str = dr(0).ToString
            End If
            Return str
        Catch ex As Exception
        End Try
    End Function

    Protected Sub imgbtnGo_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgbtnGo.Click
        If txtEmailId.Text <> "" Then
            Val1.Text = ""
            Session("MailId") = txtEmailId.Text.Trim
        Else
            txtEmailId.Focus()
            Exit Sub
        End If
        Session("MainCatName") = lblPrCatName.Text

        If Session("catid") <> "" Or Session("gvid") <> "" Then
            If Session("catid") <> "" Then
                Response.Redirect("CategoryDetails.aspx?Catid=" & Session("catid") & "")
            Else
                Response.Redirect("CategoryDetails.aspx?gvid=" & Session("gvid") & "")
            End If
        Else
            Response.Redirect("Home.aspx")
        End If
    End Sub
End Class