Hvorfor denne fejlmeddelelse i asp/access?

Hej Eksperter,

Jeg har lavet en hjemmeside, hvor man kan taste data ind og gemme dem i access. Jeg skal registrere nogle ting et sted, hvor der ikke er internetadgang, og derfor ville jeg bruge IIS og køre siden der fra. Det virker godt på en ekstern webserver, men ikke på min IIS. Jeg får fejlmeddelelsen:

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

-----------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/lederneweb/add.asp, line 48


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; i-NavFourF; .NET CLR 1.1.4322)

Page:
POST 246 bytes to /lederneweb/add.asp

POST Data:
ok=ok&level1=FVJD&level2=Arbejdsledere&level1=+&level1=+&level1=Regnskab&datostart=&datoend=&title1=&title2=wer&author=&place=&abstract=&form=&note=wer&condition=erw&person=wer&personyear=&corporation . . .

Hvorfor kan IIS ikke update her, men godt på en anden server?

Her er (noget) af siden, linie 48 er der, hvor der står bib.update:

<!--#include file="adovbs.inc"-->

<%

if request("ok")="ok" then

SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("arkiv.mdb")
set bib = server.createobject("ADODB.Recordset")
sql="select * from arkiv"
bib.open sql, rs, adopenstatic, adlockoptimistic

bib.AddNew
bib("datostart")=request("datostart")
bib("datoend")=request("datoend")
bib("desclevel")=request("desclevel")
bib("title1")=request("title1")
bib("title2")=request("title2")
bib("author")=request("author")
bib("place")=request("place")
bib("abstract")=request("abstract")
bib("form")=request("form")
bib("datodesc")=date
bib("note")=request("note")
bib("condition")=request("condition")
bib("person")=request("person")
bib("personyear")=request("personyear")
bib("corporation")=request("corporation")
bib("location")=request("location")
bib("url")=request("url")
bib("level1")=request("level1")
bib("level2")=request("level2")
bib("level3")=request("level3")
bib("level4")=request("level4")
bib("level5")=request("level5")


bib.Update
bib.close
end if

dim level1(100)
dim level2(100)
dim level3(100)
dim level4(100)
dim level5(100)

SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("reg.mdb")
set bib = server.createobject("ADODB.Recordset")
sql="select * from reg"
bib.open sql, rs, adopenstatic, adlockoptimistic

while not bib.eof
level1(a)=bib("level1")
level2(a)=bib("level2")
level3(a)=bib("level3")
level4(a)=bib("level4")
level5(a)=bib("level5")
a=a+1
bib.movenext
wend

bib.close

%>