Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.MapPath("TEST.mdb")) Dim cmd As OleDbCommand Dim MyReader As OleDbDataReader con.Open() cmd = New OleDbCommand("Select Pass from User where Uname ='" & uname.Text & "';", con) MyReader = cmd.ExecuteReader() If Not MyReader.Read() Then statuslbl.Text = "Wrong Details, Enter Username and Password Again." Else If MyReader(0).ToString() = passwrd.Text Then Response.Redirect("Inbox.aspx") Else statuslbl.Text = "Wrong Password." End If End If
If Session("Loggedser") Is Nothing Then Response.Redirect("Login.aspx", False) End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)