Visual Basic

Public Class Login<br />
	Inherits System.Web.UI.Page<br />
    <br />
    Protected WithEvents btnLogin As System.Web.UI.WebControls.Button<br />
    Protected WithEvents WrongPass as System.Web.UI.WebControls.Label<br />
    Protected WithEvents tbPass as System.Web.UI.WebControls.textbox<br />
    Protected WithEvents tbUsername as System.Web.UI.WebControls.textbox<br />
<br />
 Private Sub btnLogin_Click(ByVal sender As System.Object, _<br />
      ByVal e As System.EventArgs) Handles btnLogin.Click<br />
     if	ValidateUser(tbUsername.Text,TbPass.Text) then<br />
System.Web.Security.FormsAuthentication.RedirectFromLoginPage(tbUserName.Text, true)<br />
else<br />
WrongPass.Text = "You have entered the wrong username and or password"<br />
end if<br />
 End Sub<br />
    <br />
	Private Function ValidateUser(ByVal uid As String, ByVal passwd As String) As Boolean<br />
try<br />
      dim strConn as string = System.Configuration.ConfigurationSettings.AppSettings("ConnString")<br />
  dim Conn as new System.Data.OleDb.OleDbConnection(strConn)<br />
<br />
  dim cmd as System.Data.OleDb.OleDbCommand = new System.Data.OleDb.OleDbCommand("SELECT * from tblUsers where Username = '" & uid & "'", Conn)<br />
      dim dr as System.Data.OleDb.OleDbDataReader<br />
       <br />
   Conn.Open()<br />
   dr = cmd.ExecuteReader()<br />
   While dr.Read()<br />
 <br />
      If String.Compare(dr("Password").ToString(),passwd,False)=0 Then<br />
         Conn.Close()<br />
         Return True<br />
else<br />
Conn.Close()<br />
   Return False<br />
<br />
      End If<br />
   End While<br />
catch ex as System.Exception<br />
end try<br />
End Function<br />
<br />
<br />
End Class