Imports System.Data
Imports System.Data.SqlClient
Partial Class Admin_product_alert
    Inherits System.Web.UI.Page
    Dim cb As New CheckBox
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Session("AdminID") Is Nothing Then
                Response.Redirect("AdminLogin.aspx?sesn=expire")
                Exit Sub
            End If
            If Page.IsPostBack = False Then
                fillgrid()
                btnDelete.Attributes.Add("onClick", "return chkdelete();")
            End If
        Catch ex As Exception
        End Try
    End Sub
    Public Sub fillgrid()
        Try
            Dim con As New SqlConnection
            con.ConnectionString = ConfigurationManager.AppSettings("ConnectionString")
            con.Open()
            'Dim commandString As String = "SELECT Receive_Alert.Receive_Email, Receive_Alert.Receive_date, Category_Master.Category_Name FROM Receive_Alert INNER JOIN Category_Master ON Receive_Alert.Receive_Sub2CatCode = Category_Master.Category_Kid WHERE (Receive_Alert.Receive_IsDeleted = '0') order by Receive_Alert.Receive_date desc "
            Dim commandString As String = "SELECT Receive_Alert.Receive_Email, Receive_Alert.Receive_date FROM Receive_Alert INNER JOIN Category_Master ON Receive_Alert.Receive_Sub2CatCode = Category_Master.Category_Kid GROUP BY Receive_Alert.Receive_Email, Receive_Alert.Receive_date, Receive_Alert.Receive_IsDeleted HAVING (Receive_Alert.Receive_IsDeleted = '0')"
            Dim myCommand As New SqlCommand
            myCommand.Connection = con
            myCommand = New SqlCommand(commandString, con)
            Dim myAdapter As New SqlDataAdapter
            myAdapter.SelectCommand = myCommand
            Dim myDataSet As New DataSet
            myAdapter.Fill(myDataSet, "ProdAlert")
            gvProduct.DataSource = myDataSet
            Dim dt As DataTable
            gvProduct.DataBind()
            If gvProduct.Rows.Count = 0 Then
                btnDelete.Visible = False
            Else
                btnDelete.Visible = True
            End If
            For i As Integer = 0 To gvProduct.Rows.Count - 1
                dt = ReturnDataTable("SELECT Receive_Alert.Receive_Email, Category_Master.Category_Name FROM Category_Master INNER JOIN Receive_Alert ON Category_Master.Category_Kid = Receive_Alert.Receive_Sub2CatCode WHERE (Receive_Alert.Receive_Email = '" & myDataSet.Tables(0).Rows(i).Item("Receive_Email").ToString & "') AND (Category_Master.Category_IsDeleted = '0')")
                If dt.Rows.Count > 0 Then
                    Dim str1 As String
                    str1 = ""
                    For j As Integer = 0 To dt.Rows.Count - 1
                        If (j < dt.Rows.Count - 1) Then
                            str1 += dt.Rows(j).Item("Category_Name") & ","
                        Else
                            str1 += dt.Rows(j).Item("Category_Name")
                        End If
                    Next
                    gvProduct.Rows(i).Cells(2).Text = str1

                End If
                gvProduct.Rows(i).Cells(3).Text = Format$(Convert.ToDateTime(myDataSet.Tables(0).Rows(i).Item("Receive_date").ToString), "dd-MMM-yyyy")

            Next
        Catch ex As Exception
        End Try
    End Sub
    Protected Sub gvProduct_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs)
        gvProduct.PageIndex = e.NewPageIndex
        fillgrid()
    End Sub
    Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        For i As Integer = 0 To gvProduct.Rows.Count - 1
            cb = CType(gvProduct.Rows(i).FindControl("RowLevelCheckBox"), CheckBox)
            If cb.Checked = True Then
                ExecuteQuery("Delete from Receive_Alert where Receive_Email='" & gvProduct.Rows(i).Cells(1).Text & "'")
            End If
        Next
        fillgrid()
    End Sub
    'Protected Sub Chkall_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    '    Dim i As Integer
    '    Dim chk As CheckBox
    '    chk = sender
    '    If chk.Checked = True Then
    '        For i = 0 To gvProduct.Rows.Count - 1
    '            cb = gvProduct.Rows(i).FindControl("RowLevelCheckBox")
    '            cb.Checked = True
    '        Next
    '    Else
    '        For i = 0 To gvProduct.Rows.Count - 1
    '            cb = gvProduct.Rows(i).FindControl("RowLevelCheckBox")
    '            cb.Checked = False
    '        Next
    '    End If

    'End Sub

    Protected Sub gvProduct_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
        Try
            If e.Row.RowType = DataControlRowType.DataRow Then
                CType(e.Row.FindControl("RowLevelCheckBox"), CheckBox).Attributes.Add("onclick", "return CheckOnOff(this);")
            ElseIf e.Row.RowType = DataControlRowType.Header Then
                CType(e.Row.FindControl("Chkall"), CheckBox).Attributes.Add("onclick", "return FindCheckBox(this);")
            End If
        Catch ex As Exception

        End Try
    End Sub

End Class