CodingForums.com - Creating a Table at the click of a button with classic asp

Hello,

I need your help.

I am trying to validate information, without switching the page (in this case a username, if the username is found, great, populate a textbox and dynamically create a table with the username it it). However, I am getting an error on line 75 that reads:

Code:

ADODB.Recordset



 error '800a0e78' 



Operation is not allowed when the object is closed. 



/login.asp, line 75

I haven't closed the recordset anywhere. By my knowledge it should work. What am I doing wrong?

Code:

<%

Dim cn,rs

    Set cn = Server.CreateObject("ADODB.Connection")

    Set rs = Server.CreateObject("ADODB.recordset")



    cn.Provider = "Microsoft.Jet.OLEDB.4.0"



    cn.Open Server.MapPath("login.mdb")



'Default message for the user on the login page

msg = "Please login"



'Logout code. This code empties the session variable which holds the user's userID.

If Request.QueryString("action") = "logout" Then

    Session("user_id") = ""

    msg = "You have been logged out"

End If





'Check if the form has been submitted



If Request.Form("Submit") = "Test" Then



    user_name = Request.Form("user_name")

    user_pass = Request.Form("user_pass")



    mySQL = "SELECT user_id, user_name, user_pass FROM users WHERE user_name = '" & user_name & "' AND user_pass = '" & user_pass & "'"



    'Select the data from the database using the submitted data.

    rs.Open mySQL, cn



        'Check if a match was found.

        If NOT rs.EOF Then



            'Session("user_id") = rsLogin("user_id")

            'Response.Redirect("profile.asp")



            u = rs("user_name")



        Else

            'If a match was not found then output an error.

            Response.Redirect("login.asp?errmsg=Login failed")

        End If

End If

%>







<!DOCTYPE html>

<html>

<head>

</head>



<body>

<form name="form1" id="form1" method="post" action="">

  <table width="300" border="0" cellspacing="0" cellpadding="2">

    <tr>

      <td>Username</td>

      <td><input name="user_name" type="text" id="user_name" /></td>

    </tr>

    <tr>

      <td>Password</td>

      <td><input name="user_pass" type="password" id="user_pass" /></td>

    </tr>

    <tr>

      <td>&nbsp;</td>

      <td><input type="submit" name="Submit" value="Test" /></td>

    </tr>

  </table>

</form>

<input id="fileno" value="<%=u%>" type="text">





<%

        While NOT rs.EOF

%>

    <table width="200" border="1" cellspacing="0" cellpadding="2">

  <tr>

    <th scope="col"><div align="left">username</div></th>

  </tr>



  <tr>

    <td><%=u%></td>

  </tr>

<%

        rs.MoveNext

        Wend

%>

</table>

</body>

</html>