Imports System
Imports System.Web
Imports System.Web.Caching
Imports System.Web.UI
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Mail
Imports System.Math
Imports System.IO
Imports System.EnterpriseServices
Imports System.Drawing
'Imports System.Web.HttpWriter
Imports System.Web.Security
Imports System.Resources.Tools
Imports System.Configuration
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Data.Sql
Imports System.Text
Partial Class suppliers
    Inherits System.Web.UI.Page
  
    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 Supplier_Kid, Supplier_AdminUserId FROM SupplierLogin WHERE (AdminUser_Name = '" & txtName.Text.Trim & "') AND (AdminUser_Password = '" & Encrypt(txtpwd.Text) & "') and (UserType_kid='00000E6')"
            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("~/List_Product.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