Originally Posted by SheSaidImaPregy

Help with Code Tags

ASP.NET Syntax (Toggle Plain Text)

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
sub btnLogin_Click(sender as Object, e as EventArgs)
if tbPassword.length > 0 and tbUserName > 0 then
    Dim connString as String
    connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _
                   "C:\Inetpub\wwwroot\Projects.mdb;"
 
    Dim objConnection as OleDbConnection
    objConnection = New OleDbConnection(connString)
    'Specify our SQL statement
    Dim strSQL as String = "SELECT UserPassword FROM Users WHERE UserName=?"
 
    'Create the Command object
    Dim objCommand as OleDbCommand
    objCommand = New OleDbCommand(strSQL, objConnection)
    objCommand.Parameters.AddWithValue( "?UserName", Trim(tbUserName.Text) )
 
    objConnection.Open()   'open the connection
    Dim strPassword As String = objCommand.ExecuteScalar()
 
    if (String.Compare(strPassword, Trim(tbPassword.Text), False) = 0 then
        'login was a success.
    else
        'login failed.
    end if
else
    'login failed due to no or not enough parameters
end if
</script>

<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <script language="VB" runat="server"> sub btnLogin_Click(sender as Object, e as EventArgs) if tbPassword.length > 0 and tbUserName > 0 then Dim connString as String connString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _ "C:\Inetpub\wwwroot\Projects.mdb;" Dim objConnection as OleDbConnection objConnection = New OleDbConnection(connString) 'Specify our SQL statement Dim strSQL as String = "SELECT UserPassword FROM Users WHERE UserName=?" 'Create the Command object Dim objCommand as OleDbCommand objCommand = New OleDbCommand(strSQL, objConnection) objCommand.Parameters.AddWithValue( "?UserName", Trim(tbUserName.Text) ) objConnection.Open() 'open the connection Dim strPassword As String = objCommand.ExecuteScalar() if (String.Compare(strPassword, Trim(tbPassword.Text), False) = 0 then 'login was a success. else 'login failed. end if else 'login failed due to no or not enough parameters end if </script>

This performs a basic search of your mdb and grabs the password corresponding to the username. If no username exists, it will return false as strPassword will be Null or an empty string. String.Compare will return "0" if it is a success, and will return -1 or 1 if it is a failure.

Should be the simplest and quickest login you can do

using System;
using System.Data;
using System.Data.OleDb;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;

public partial class _Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{

}
protected void Login_Authenticate(object sender, AuthenticateEventArgs e)
{
OleDbConnection myconnection = new OleDbConnection();
myconnection.ConnectionString = ConfigurationManager.ConnectionStrings["LBLDatabaseConnectionString"].ConnectionString;

OleDbCommand mycommand = new OleDbCommand();
mycommand.CommandText = "SELECT * FROM SYSTEMUSER WHERE SystemUser_Name=?";
mycommand.Parameters.Add("SystemUser_Name", OleDbType.VarChar, 255, "SystemUser_Name");
mycommand.Parameters["SystemUser_Name"].Value = this.Login1.UserName;

mycommand.Connection = myconnection;

OleDbDataAdapter myadapter = new OleDbDataAdapter(mycommand);

DataSet mydataset = new DataSet();

OleDbCommandBuilder mycommandbuilder = new OleDbCommandBuilder(myadapter);

//myadapter.Fill(mydataset);
myadapter.Fill(mydataset, "SYSTEMUSER");

if (mydataset.Tables["SYSTEMUSER"].Rows.Count == 1)
{

if (string.Compare(mydataset.Tables["SYSTEMUSER"].Rows[0]["SystemUser_Password"].ToString(), this.Login1.Password) == 0)
{
e.Authenticated = true;

if (mydataset.Tables["SYSTEMUSER"].Rows[0]["SystemUser_Type"].ToString() == "Customer")
{
Session["CustomerID"] = mydataset.Tables["SYSTEMUSER"].Rows[0]["SystemUser_ID"];
this.Login1.DestinationPageUrl = "~/Customer/ViewProfile.aspx";
}
else if (mydataset.Tables["SYSTEMUSER"].Rows[0]["SystemUser_Type"].ToString() == "Administrator")
{
Session["UserID"] = mydataset.Tables["SYSTEMUSER"].Rows[0]["SystemUser_ID"];
this.Login1.DestinationPageUrl = "~/PowerUser/PowerUserMain.aspx";
}
else if (mydataset.Tables["SYSTEMUSER"].Rows[0]["SystemUser_Type"].ToString() == "Employee")
{
Session["UserID"] = mydataset.Tables["SYSTEMUSER"].Rows[0]["SystemUser_ID"];
this.Login1.DestinationPageUrl = "~/User/ViewRewardItem.aspx";
}

}
}
}
}