Web Development

public void OnLogin(object sender, System.EventArgs e)
{
	if(IsLoginCorrect(User.Text, Pass.Text))
	{
		FormsAuthentication.RedirectFromLoginPage(User.Text, false);
	}
	else
	{
		Error.Text = "Fel, försök igen!";
	}
}

public bool IsLoginCorrect(string user, string password)
{
	string connectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("mp219.mdb");
	OleDbConnection connection = new OleDbConnection(connectString);
	
	try
	{
		connection.Open();

		StringBuilder builder = new StringBuilder();
		builder.Append("SELECT COUNT(*) FROM Loin WHERE User = \'");
		builder.Append(user);
		builder.Append("\' AND CAST (rtrim (Password) as VARBINARY) = CAST(\'");
		builder.Append(password);
		builder.Append("\' as VARBINARY");
		
		OleDbCommand cmd = new OleDbCommand(builder.ToString(), connection);
		
		int count = (int)cmd.ExecuteScalar();
		return (count > 0);
	}
	catch(Exception e)
	{
		Response.Write(e.ToString());
		return false;
	}
	finally
	{
		connection.Close();
	}
}

Public Class Global
    Inherits System.Web.HttpApplication

    Protected Shared m_ActiveUsers As Integer

#Region " Component Designer Generated Code "

    Public Sub New()
        MyBase.New()

        InitializeComponent()

    End Sub

    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

#End Region

    Public Shared ReadOnly Property ActiveUsers() As Integer
        Get
            Return m_ActiveUsers

        End Get

    End Property

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        m_ActiveUsers = 0
        Application.UnLock()

    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        m_ActiveUsers = m_ActiveUsers + 1
        Application.UnLock()

    End Sub

    Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires at the beginning of each request
    End Sub

    Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires upon attempting to authenticate the use
    End Sub

    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when an error occurs
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        m_ActiveUsers = m_ActiveUsers - 1
        Application.UnLock()

    End Sub

    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Fires when the application ends
    End Sub

End Class

Private Sub Page_Load(ByVal sender As System.Object,_
                           ByVal e As System.EventArgs) Handles MyBase.Load

        lblVisitors.Text = Global.ActiveUsers.ToString + " Visitors"

End Sub