Update database

[Guest_imported]

I am trying to update records in my database but am continually get a error saying that the database or object is read only. Can anyone please tell why this is so - it is driving me crazy!

I have included the adovbs.inc file and I am using an access2000 database

here is my code

---------------------------------
connectionstring
----------------------------------

Function openDB()

dim dcnDB, filepath

filepath = Server.MapPath("/Service Directory/Service Directory.mdb&quot

set dcnDB = Server.CreateObject("ADODB.Connection&quot
dcnDB.Connectionstring ="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
dcnDB.open

set openDB = dcnDB

End Function


----------------------------------------------------------------------------------------------------------------------------------------
record set
------------------------------------------------------------------------------------------------------------------------------------------
set objRSpassupdate = Server.CreateObject("ADODB.Recordset&quot
objRSpassupdate.open "organisationbody", openDB, adopenKeyset, adLockoptimistic objRSpassupdate("organisationbodyname&quot = usernamecheck
objRSpassupdate("password&quot = passwordcheck
objRSpassupdate.Update
objRSpassupdate.close
openDB.close


the error I am getting is:

Error Type:
Microsoft JET Database Engine (0x80040E09)
Cannot update. Database or object is read-only.
/service directory/login.asp, line 45

 

[shaddow]

Try to use this way, cuz i got this problemn to when i use Microsoft.Jet.OLEDB...

Set Connection=Server.CreateObject("ADODB.Connection")
dbPath=Server.MapPath("yourdatabase.mdb")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbPath

Const adOpenStatic = 3
Const adUseClient = 3
Const adLockPessimistic = 2

set rs=server.CreateObject("ADODB.Recordset")

sub ExecuteSQL(byval cmd)
    if rs.State=1 then rs.Close
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.LockType = adLockPessimistic
    rs.Source = cmd
    rs.ActiveConnection = Connection   'The record set needs to know what connection to use.
    rs.Open
end sub

querry="select * from yourtable"
ExecuteSQL(querry)

Hope this gives u an ideea...
but first try to use "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbPath
________
George, M