I am using an .aspx (all HTML) on the form there is a button called btnLogin.

I the code-behind page I have a sub (below) called login_Click that verifies the username and password.

My code complies and I enter username and password, but nothing happens.
-------------------------

    Private Sub login_Click()

        Dim objUser As New clsUser()
        Dim loginresponse As String

        objUser.Username = Request.Form("txtusername")

        Response.Write(objUser.Username)

        loginresponse = objUser.ValidateLogin

        If loginresponse = True Then
            Response.Redirect("Default.aspx")
        Else
            Response.Write("ERROR!")
        End If
    End Sub
--------------------------------------------------------

Any help is appreciated.

Mark

Hey,

Try:

objUser.Username = txtusername.Text

instead. This is the .NET way of doing things. In addition, could you post the ValidateLogin method of clsUser?

Brian

I have my pervious problem sorted out. However I get the following error when I clcik me login button:
-----------
System.Data.OleDb.OleDbException: No value given for one or more required parameters
-----------------------

Also here is my ValidateLogin Function:
-------------------------------------------
Function ValidateLogin() As Boolean
        'Establishes database connect and Checks Username/Password
        Dim strSQL, strConn As String
        Dim strUsername, strPassword As String
        Dim objDBComm As OleDbCommand
        Dim objDBConn As OleDbConnection
        Dim objUser As New clsUser()

        Dim objGetConnection As New clsDBConnection()
        objDBConn = objGetConnection.GetDatabaseConnection

        strUsername = objUser.Username

        Dim returnvalue

        strSQL = "SELECT * FROM [User] WHERE Username = mrideout"

        objDBComm = New OleDbCommand(strSQL, objDBConn)

        returnvalue = objDBComm.ExecuteScalar()
        objDBConn.Close()

        If returnvalue > 1 Then
            Return True
        Else
            Return False
        End If

    End Function
------------------------------------

red line in the line of code that is casing me the error.

Thanks,
Mark

I think it's saying it can't find the username 'mrideout'.

Yes you are right.

My question is now is how do I get the SQL Statement:

strSQL = "SELECT * FROM [User] WHERE Username = mrideout"

to take:

strUsername
as the where clause?

Please advise...
Thanks,
Mark

Hey,

Put quotes around it, it should appear as:

Where Username = 'mrideout'

So, DO:

.. where Username = '" & strUsername & "'"

Try that,

Brian

Thanks I have it working now.