databasproblem

Har lagt upp denna kod på brikster men får den inte att funka:
----------------------------------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/mappesajt/koll.asp, line 37
-----------------------------------------------------------------------------------
Den är inte skrivselskyddad

koden ser ut så här och den funkar på hårdisken:
-----------------------------------------------------------------------------------
<!-- #include virtual="/mappesajt/adovbs.asp" -->
<% chattnamn1 = Request.Form("chattnamn")
chattnamn1 = Server.HTMLEncode(chattnamn1)

chattnamn1 = Replace(chattnamn1, "'", "") %>
<% If Request.Form("chattnamn") <> "" Then

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("\mappesajt\db\asd.mdb")

Set RecSet = Server.CreateObject("ADODB.RecordSet")

Kolla = "SELECT* FROM online ORDER BY chattnamn"
RecSet.Open Kolla, conn, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If chattnamn1 = RecSet("chattnamn") Then
Session("med") = "Finns redan någon som använder det chattnamnet, ta nått annant"
Response.Redirect "start.asp"
End If

RecSet.MoveNext
Loop

If Request.Form("kon") = "kille" Then
kon = "#0000FF"
Else
kon = "#FF0000"
End If

RecSet.Addnew

RecSet("chattnamn") = chattnamn1
RecSet("kon") = kon

RecSet.Update /////////rad 37
RecSet.Close
conn.Close

Session("chattnamn") = chattnamn1
Session("kon") = kon
Session("godkand") = "ja"
Response.Redirect "chatt.asp"

ElseIf chattnamn1 = "" Then
Session("med") = "Du måste skriva in ett chattnamn först"
Response.Redirect "start.asp"

End If
%>
-----------------------------------------------------------------------------------