I have tried to solve this one in many ways, but i can't seem to find the 
real problem. Each time I try to update my database online I get this 
error: Error '80004005': Cannot update. Database or object is read-only.
So I have checked if my database was read-only, but it wasn't!
The strange thing is: when I run the script on my local pc, it works! Can 
somebody help me out? 

This is the code i used:

Set conn = Server.CreateObject("ADODB.Connection")
connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath
("db\staticdb.mdb")
Conn.Open connStr
  
MySQL = "SELECT * FROM Guestbook"
Set RSg = Server.CreateObject("ADODB.Recordset")
RSg.OPEN MySQL, Conn, 2, 2

thisTimeStamp = formatDateTime(date,1)&" "&formatDateTime(now,4)
RSg.AddNew
RSg("Naam") = thisName
RSg("Email") = thisMail
RSg("DateTime") = thisTimeStamp
RSg("City") = thisCity
RSg("Message") = thisMess
RSg.Update

Tiemen Han van Boxtel

Not sure how you checked to see if your database was read-only.  Go to
the server wwwroot, click on the directory where the database is in and
do a right click, properties.  If it says readonly, unclick it.

-----Original Message-----
From: Tiemen Han van Boxtel [mailto:tiemenhan@h...]
Sent: Saturday, March 08, 2003 5:38 AM
To: ASP Database Setup
Subject: [asp_database_setup] Error '80004005': Cannot update. Database
or object is read-only.


I have tried to solve this one in many ways, but i can't seem to find
the
real problem. Each time I try to update my database online I get this
error: Error '80004005': Cannot update. Database or object is read-only.
So I have checked if my database was read-only, but it wasn't! The
strange thing is: when I run the script on my local pc, it works! Can
somebody help me out?

This is the code i used:

Set conn =3D Server.CreateObject("ADODB.Connection")
connStr =3D "DRIVER=3D{Microsoft Access Driver (*.mdb)}; DBQ=3D" &
Server.MapPath
("db\staticdb.mdb")
Conn.Open connStr
 
MySQL =3D "SELECT * FROM Guestbook"
Set RSg =3D Server.CreateObject("ADODB.Recordset")
RSg.OPEN MySQL, Conn, 2, 2

thisTimeStamp =3D formatDateTime(date,1)&" "&formatDateTime(now,4)
RSg.AddNew
RSg("Naam") =3D thisName
RSg("Email") =3D thisMail
RSg("DateTime") =3D thisTimeStamp
RSg("City") =3D thisCity
RSg("Message") =3D thisMess
RSg.Update

Tiemen Han van Boxtel
%%email.unsub%%