Imports System.Data
Imports System.Data.SqlClient
Partial Class Bulkmail_BulkmailLogin
    Inherits System.Web.UI.Page
    Shared kid, kidd As String
    Shared str, strr As String
    Shared strSupplier, StrAdmin, stradminuserid As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            txtName.Focus()
            Session("SupplierID") = Nothing
        End If
    End Sub
    

    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Try
            Dim con As New SqlConnection()
            con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
            Dim str As String = "SELECT AdminUser_Kid,Supplier_AdminUserId FROM SupplierLogin WHERE (AdminUser_Name = '" & txtName.Text.Trim & "') AND (AdminUser_Password = '" & txtpwd.Text.Trim & "' and  (UserType_Kid = N'000007?'))"
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
            con.Open()
            Dim cmd As New SqlCommand(str, con)
            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader()
            If dr.Read Then
                Session.Clear()
                Session.LCID = 3081
                'Session("AdminID") = dr.Item("AdminUser_Kid").ToString
                'Session("g_User") = dr.Item("Supplier_AdminUserId").ToString
                'Session("g_Company") = "00006Z4"
                'Session("g_FinYear") = "000010N"
                Session("Bulkmail") = "Yes"
                lblError.Visible = False
                'Session("Passwrd") = txtpwd.Text.Trim
                Response.Redirect("Category.aspx")

            Else
                lblError.Visible = True
                lblError.Text = "Invalid UserName and Password !!"
            End If
        Catch ex As Exception
            ex.Message.ToString()
        End Try
    End Sub

End Class