Imports System.Data
Imports System.Data.SqlClient
Partial Class supplier_transaction_login
    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("AdminID") = Nothing
        End If
    End Sub
    Protected Sub lnkbtnRegister_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkbtnRegister.Click
        Response.Redirect("SupplierRegister.aspx")
    End Sub

    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Try

            Dim con As New SqlConnection()
            con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
            Dim str As String = "SELECT Supplier_Kid, Supplier_AdminUserId FROM SupplierLogin WHERE (AdminUser_Name = '" & txtName.Text.Trim & "') AND (AdminUser_Password = '" & txtpwd.Text.Trim & "')"
            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("SupplierID") = Nothing
                Session("SupplierID") = dr.Item("Supplier_Kid").ToString
                Session("g_User") = dr.Item("Supplier_AdminUserId").ToString

                Session("g_Company") = "00006Z4"
                Session("g_FinYear") = "000010N"
                lblError.Visible = False

                con.Close()

                Response.Redirect("~/supplier-transaction.aspx?" & Session.SessionID)

            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