TheCandyman
Technical User
I am getting an error on my DB and i can't see what is wrong with it. the error is:
ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.
/login/Password_create.asp, line 27
I searched around and i think that error is given when a blank is returned from an SQL statement, but i am trying to update a DB so i don't see why that should matter. It does update the DB, but it errors on the close. I can't see anywhere else that i closed it. The page before i didn't even touch the DB, and the top of this page i open it...Here is my code...
<%Response.Buffer=TRUE%>
<%Set conn = server.createobject("adodb.connection"
Path = Server.Mappath("db/WEBDB.MDB"
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
conn.Mode = 3
conn.Open DSNtemp
uid = Request.Form("ADAnum1" + Request.Form("ADAnum2" + Request.Form("ADAnum3"
pwd = Request.Form("pwd"
email = Request.Form("email"
SQL = "Select * From MemInfo Where ADANum = '" & uid & "'"
Set RS = Conn.Execute(SQL)
If Not RS.EOF Then
response.write Path & "<br>"
response.write pwd & "<br>"
response.write email & "<BR>"
response.write uid & "<br>" & "Found" & "<br><br><br>"
SQL2 = "UPDATE Meminfo SET pwd = '"& pwd &"' WHERE ADANum='"& uid &"';"
' , email = '"& email &"'
Conn.Execute(SQL2)
Conn.Close
RS.Close <-- Error is here
Set RS = Nothing
'response.clear
'Response.Redirect "Login.asp"
Else
...
...
...
ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.
/login/Password_create.asp, line 27
I searched around and i think that error is given when a blank is returned from an SQL statement, but i am trying to update a DB so i don't see why that should matter. It does update the DB, but it errors on the close. I can't see anywhere else that i closed it. The page before i didn't even touch the DB, and the top of this page i open it...Here is my code...
<%Response.Buffer=TRUE%>
<%Set conn = server.createobject("adodb.connection"
Path = Server.Mappath("db/WEBDB.MDB"
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
conn.Mode = 3
conn.Open DSNtemp
uid = Request.Form("ADAnum1" + Request.Form("ADAnum2" + Request.Form("ADAnum3"
pwd = Request.Form("pwd"
email = Request.Form("email"
SQL = "Select * From MemInfo Where ADANum = '" & uid & "'"
Set RS = Conn.Execute(SQL)
If Not RS.EOF Then
response.write Path & "<br>"
response.write pwd & "<br>"
response.write email & "<BR>"
response.write uid & "<br>" & "Found" & "<br><br><br>"
SQL2 = "UPDATE Meminfo SET pwd = '"& pwd &"' WHERE ADANum='"& uid &"';"
' , email = '"& email &"'
Conn.Execute(SQL2)
Conn.Close
RS.Close <-- Error is here
Set RS = Nothing
'response.clear
'Response.Redirect "Login.asp"
Else
...
...
...