login.aspx.vb

Beginning VB.NET DatabasesAll_Code.rar

Public Class Login
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents txtLoginName As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPassword As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Public strErrorMessage As String = String.Empty

    Private Sub Page_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        If IsPostBack Then
            'Initialize a new instance of the business logic component
            Dim objUsers As New WroxBusinessLogic.WBLUsers( _
                "Wrox", "Time Tracker")
            'Validate the user and get their role
            Dim objDataSet As DataSet = objUsers.ValidateLogin( _
                Request.Form("txtLoginName"), Request.Form("txtPassword"))
            If objDataSet.Tables("User").Rows.Count > 0 Then
                If objDataSet.Tables("User").Rows(0).Item("Status") Then
                    If objDataSet.Tables("User").Rows(0).Item( _
                        "RoleName").ToString.ToLower Like "manager" Then
                        Response.Redirect("Reports.aspx?UserID=" & _
                        objDataSet.Tables("User").Rows(0).Item("UserID").ToString)
                    Else
                        Response.Redirect("TimeSheet.aspx?UserID=" & _
                        objDataSet.Tables("User").Rows(0).Item("UserID").ToString & _
                        "&UserName=" & objDataSet.Tables("User").Rows(0).Item( _
                        "UserName").ToString)
                    End If
                Else
                    strErrorMessage = "Your account has been suspended." & _
                     ControlChars.CrLf & "Please contact your administrator."
                End If
            Else
                strErrorMessage = "Your credentials were not validated."
            End If
            'Clean up
            objDataSet.Dispose()
            objDataSet = Nothing
            objUsers.Dispose()
            objUsers = Nothing
        End If
    End Sub

End Class