Running script. Receving the following message:
----------------------------------------
ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

/AddUser.asp, line 18
-----------------------------------------
Here is the code:

<%
Dim rsUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open "Persons", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable

If Session("TableID") <> " " Then
rsUsers.Filter = "TableID = '" & Session("TableID") & "'"
Else
rsUsers.Filter = "EMailAddress = '" & Request.Form("email") & "'" & _
"AND Password = '" & Request.Form("password") & "'"
If rsUsers.EOF Then
rsUsers.AddNew
End If
End If

rsUsers("EMailAddress") = Request.Form("email") <-- (line 18)
rsUsers("Password") = Request.Form("password")
rsUsers("FamilyName") = Request.Form("FamilyName")
rsUsers("GivenName") = Request.Form("GivenName")
rsUsers("StreetAddress1") = Request.Form("StreetAddress")
rsUsers("City") = Request.Form("City")
rsUsers("State") = Request.Form("State")
rsUsers("PostalCode") = Request.Form("PostalCode")
rsUsers("Country") = Request.Form("Country")
rsUsers("Active") = True
rsUsers("LastLongin") = Now
rsUsers.Update

Dim strName, strValue
For each strField in rsUsers.Fields
strName = strField.Name
strValue = strField.Value
Sessions(strName) = strValue
Next
Session("blnValidUser") = True
Response.Redirect "MenuForRegisteredUsers.asp"

%>

ANY HELP WOULD BE APPRECIATED. THANKYOU.
> BENNY P

I'm sorry you haven't had any replies yet and I would help, but I am having the same problem!!! Here's is my code and the error happens about the same place as yours.

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

updatecouncilsurveyentry.asp, line 24


%
Dim adoCon
Dim rsAddcouncilsurvey
Dim strSQL
Dim lngRecordNo

lngRecordNo = CLng(Request.Form("councilsurveyID"))

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

adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & Server.MapPath("../admin.mdb")

Set rsAddcouncilsurvey = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT councilsurvey.username, councilsurvey.peturl, councilsurvey.councilposition, councilsurvey.name, councilsurvey.location, councilsurvey.startedneopets, councilsurvey.howstarted, councilsurvey.joinedguild, councilsurvey.howjoined, councilsurvey.talentsneopets, councilsurvey.talentsoutside, councilsurvey.hobbies, councilsurvey.possession, councilsurvey.website, councilsurvey.otherinfo FROM councilsurvey WHERE councilsurveyID=" & lngRecordNo

rsAddcouncilsurvey.CursorType = 2

rsAddcouncilsurvey.LockType = 3

rsAddcouncilsurvey.Open strSQL, adoCon

rsAddcouncilsurvey.Fields("username") = Request.Form("username")
rsAddcouncilsurvey.Fields("peturl") = Request.Form("peturl")
rsAddcouncilsurvey.Fields("councilposition") = Request.Form("councilposition")
rsAddcouncilsurvey.Fields("name") = Request.Form("name")
rsAddcouncilsurvey.Fields("location") = Request.Form("location")
rsAddcouncilsurvey.Fields("startedneopets") = Request.Form("startedneopets")
rsAddcouncilsurvey.Fields("howstarted") = Request.Form("howstarted")
rsAddcouncilsurvey.Fields("joinedguild") = Request.Form("joinedguild")
rsAddcouncilsurvey.Fields("howjoined") = Request.Form("howjoined")
rsAddcouncilsurvey.Fields("talentsneopets") = Request.Form("talentsneopets")
rsAddcouncilsurvey.Fields("talentsoutside") = Request.Form("talentsneopets")
rsAddcouncilsurvey.Fields("hobbies") = Request.Form("hobbies")
rsAddcouncilsurvey.Fields("possession") = Request.Form("possession")
rsAddcouncilsurvey.Fields("website") = Request.Form("website")
rsAddcouncilsurvey.Fields("otherinfo") = Request.Form("otherinfo")

rsAddcouncilsurvey.Update


rsAddcouncilsurvey.Close
Set rsAddcouncilsurvey = Nothing
Set adoCon = Nothing

Response.Redirect "index.asp"
%>


Now, hopefully we'll find someone to help us!!!

Stacy

Hi Stacy

The problem is occurring becuase there is actually no data in the recordset!

This would be because the value in the variable "lngRecordNo" would not be present in the table "councilsurvey". So the select statement wouldn't return any data.

Try the code with a valid value for the variable and then it should work fine.

Mayank

Hi Benny P,

Check your database table and be sure that a field called email is part of the fields.

You can then enter some data into the fields and run the code again.

cheers