thank u for your help. I am getting some other error:
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/wildxchange/adduser.asp, line 33
------------------------this is the adduser.asp----------------------
<%
Dim rsUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open "Person", oConn, adOpenForwardOnly, adLockOptimistic, adCmdTable
If Session("UserID") <> " " Then ' currently logged-on user
rsUsers.Filter = "UserID ='" & Session("UserID") & "'"
Else ' New session
rsUsers.Filter = "EmailAddress = '" & Request.Form("email") & " ' " & _
"AND = Password =' " & Request.Form("Password") & " ' "
If rsUsers.EOF Then ' User not found
rsUsers.AddNew ' ...so add a new record
' Else
' Email address and password matched with DB records -
' In this case we'll allow this to update user's personal details
End If
End If ' write personal details to record
rsUsers("EAddy") = Request.Form("email")
rsUsers("FName") = Request.Form("First")
rsUsers("LName") = Request.Form("Last")
rsUsers("PStrt1") = Request.Form("Addy1")
rsUsers("PStrt2") = Request.Form("Addy2")
rsUsers("City") = Request.Form("City")
rsUsers("State")= Request.Form("State")
rsUsers("Zip") = Request.Form("ZipCode")
rsUsers("Country") = Request.Form("Country")
rsUsers("SecretQuestion") = Request.Form("SecretQuestion")
rsUsers("SecretAnswer") = Request.Form("SecretAnswer")
rsUsers("Active") = True
rsUsers("LastLogin") = Now
rsUsers.Update ' update the database
Dim strName, strValue ' create session variables
For each strField in rsUsers.Fields
strName = strField.Name
strValue = strField.value
Session(strName) = strValue
Next
Session("blnValidUser") = True ' declare that current user is validated
Response.Redirect "MenuForRegisteredUsers.asp"
%>
----------------------------------
can u help me out here?
|
