hey ])ry, I need help again!

aronK00l · Apr 28, 2012

ok I have gotten a bit further on the password protection page but now Im having difficulities trying to get an Error message appear if the credtials are invalid. Here is the code. login.aspx.vb: Imports System.Data.SqlClient Imports System.Web.Security Public Class logon Inherits System.Web.UI.Page Protected WithEvents vUserName As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents vUserPass As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents chkPersistCookie As System.Web.UI.WebControls.CheckBox Protected WithEvents lblMsg As System.Web.UI.WebControls.Label Protected WithEvents txtUserName As System.Web.UI.HtmlControls.HtmlInputText Protected WithEvents txtUserPass As System.Web.UI.HtmlControls.HtmlInputText Protected WithEvents cmdLogin As System.Web.UI.WebControls.LinkButton Protected WithEvents newuser As System.Web.UI.WebControls.LinkButton Protected WithEvents Label As System.Web.UI.WebControls.Label #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub 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 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Put user code to initialize the page here End Sub Function ValidateUser(ByVal uid As String, ByVal passwd As String) As Boolean Dim cnn As SqlConnection Dim cmd As SqlCommand Dim dr As SqlDataReader Dim retVal As Boolean = False cnn = New SqlConnection("server=localhost;uid=sa;pwd=trinity;database=Pubs;") cmd = New SqlCommand("Select * from users where uname = '" & uid & "'", cnn) cnn.Open() dr = cmd.ExecuteReader() While (dr.Read()) If StrComp(dr.Item("Pwd"), passwd, 1) = 0 Then retVal = True End If End While cnn.Close() ValidateUser = retVal End Function Private Sub cmdLogin_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles cmdLogin.Click If ValidateUser(txtUserName.Value, txtUserPass.Value) Then Dim tkt As FormsAuthenticationTicket Dim cookiestr As String Dim ck As HttpCookie tkt = New FormsAuthenticationTicket(1, txtUserName.Value, DateTime.Now(), _ DateTime.Now.AddMinutes(30), chkPersistCookie.Checked, "ryandunn cookie control") cookiestr = FormsAuthentication.Encrypt(tkt) ck = New HttpCookie(FormsAuthentication.FormsCookieName(), cookiestr) If (chkPersistCookie.Checked) Then ck.Expires = tkt.Expiration Response.Cookies.Add(ck) Dim strRedirect As String strRedirect = Request("ReturnURL") If strRedirect <> "" Then Response.Redirect(strRedirect, True) Else strRedirect = "default.aspx" Response.Redirect(strRedirect, True) End If Else Label.Text = "Invalid Credentials: Please try again" End If End Sub End Class And Im trying to call it from the login.aspx from this: <asp:Label id="Label" ForeColor="red" Font-Name="Verdana" Font-Size="10" runat=server />Haha, well, first thing I'd try is renaming your label to be something OTHER than the word "label" I've run into issues before when naming a control the same thing as the control itself. After you've done that, does it return an error? or just do nothing? ])ryrenamed it and it just does nothing, no errors.just after your LabelName.Text = "whatever" write something like this: Response.write("Label value=http://aspmessageboard.com/archive/index.php/" & labelName.text) If your class writes out "Label value=" at least you know it's getting that far. Most times my apps "do nothing" it's because they aren't even getting to the point in question. Also might try changing your label to a span and use spanName.InnerHtml = "message" to see if you have any better luck. Just an idea, I'm by no means an expert at this stuff, just got thrown into it like the rest of us

])ry

hey ])ry, I need help again!

aronK00l

New Member