View Single Post
  #3 (permalink)  
Old July 7th, 2003, 06:48 PM
changingfaces changingfaces is offline
Registered User
 
Join Date: Jul 2003
Location: , , .
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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?