Tjenare!

Fick ovanstående felmess och denna text också:

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

/forum/adderaPost.asp, line 61

Här är koden för "adderaPost.asp". Rad 61 är utmärkt - det står "61 i början av raden" (där det står "recSet.update":


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

<%

'###### LITE KONTROLLER ######

IF Request.Form("namn") = "" THEN
Session("fel")= "Du måste fylla i NAMN"
ElseIF Request.Form("rubrik") = "" THEN
Session("fel")= "Du måste fylla i en RUBRIK"
ElseIF Request.Form("inlagg") = "" THEN
Session("fel")= "Du måste skriva ett inlägg"
END IF

IF Session("fel") <> "" Then

IF Request.QueryString("refID") <> "" THEN
Response.Redirect "read.asp?ID=" &Request.QueryString("refID")
ELSE
Response.Redirect "forum.asp"
END IF

END IF

'##### SLUT KONTROLLERAT #####


'### Spara info om användaren i en cookie ###

IF Request.Cookies("UserInfo")("NAMN") = "" THEN
Response.Cookies("UserInfo")("NAMN") = Request.Form("namn")
IF Request.Form("epost") <> "" THEN
Response.Cookies("UserInfo")("EPOST") = Request.Form("epost")
END IF
Response.Cookies("UserInfo").Expires = Now + 30 ' <-- Kakan sparas i 30 dagar
END IF

'### Slut sparat ###

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forum.mdb")&";"

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

Addera = "Select * From asp"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.ADDNEW

RecSet("NAMN") = Request.Form("namn")
RecSet("EPOST") = Request.Form("epost")
RecSet("RUBRIK") = Request.Form("rubrik")
RecSet("INLAGG") = Request.Form("inlagg")
RecSet("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet("DATUM") = NOW()

IF Request.QueryString("refID") <> "" THEN
RecSet("REF_ID") = Request.QueryString("refID") ' Om det är ett svar så ska REF_ID läggas till!
END IF

RecSet.UPDATE

RecSet.CLOSE

'######### RÄKNAR ANTAL SVAR PÅ ETT INLÄGG ##########

IF Request.QueryString("refID") <> "" THEN
Addera = "Select * From asp WHERE ID = " &Request.QueryString("refID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet("ANTALSVAR") = RecSet("ANTALSVAR") + 1
RecSet.UPDATE

RecSet.CLOSE
END IF

'#################### SLUTRÄKNAT ####################

Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing

IF Request.QueryString("refID") <> "" THEN
Response.Redirect "read.asp?ID=" &Request.QueryString("refID")
ELSE
Response.Redirect "forum.asp"
END IF

%>



############

Har försökt att hitta felet men blir "galen" läste på Microsofts hemsida att man var tvungen att göra något väldigt avancerat och då webhotellet ligger på¨Box hoasting är det lite svårt att själv ändra något på servern...

Myckettacksam för svar!

Hälsningar/
Andreas

Be Box att ge alla fulla rättigheter på din forum.mdb fil så kommer det fungera.

Du kan inte lägga till poste med en Statisk Cursor:
<code>
<!-- #include file="adovbs.inc" -->

<%

'###### LITE KONTROLLER ######

If Request.Form("namn") = "" THEN
Session("fel")= "Du måste fylla i NAMN"
ElseIf Request.Form("rubrik") = "" THEN
Session("fel")= "Du måste fylla i en RUBRIK"
ElseIf Request.Form("inlagg") = "" THEN
Session("fel")= "Du måste skriva ett inlägg"
End If

If Session("fel") <> "" Then
If Request.QueryString("refID") <> "" THEN
Response.Redirect "read.asp?ID=" &Request.QueryString("refID")
Else
Response.Redirect "forum.asp"
End If
Else
'##### SLUT KONTROLLERAT #####


'### Spara info om användaren i en cookie ###

If Request.Cookies("UserInfo")("NAMN") = "" THEN
Response.Cookies("UserInfo")("NAMN") = Request.Form("namn")
If Request.Form("epost") <> "" THEN
Response.Cookies("UserInfo")("EPOST") = Request.Form("epost")
End If
Response.Cookies("UserInfo").Expires = Now + 30 ' <-- Kakan sparas i 30 dagar
End If

'### Slut sparat ###

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forum.mdb")&";"

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

strSQL = "SELECT * FROM asp WHERE False"
RecSet.Open strSQL, Connect, adOpenKeyset, adLockOptimistic

RecSet.AddNew

RecSet("NAMN") = Request.Form("namn")
RecSet("EPOST") = Request.Form("epost")
RecSet("RUBRIK") = Request.Form("rubrik")
RecSet("INLAGG") = Request.Form("inlagg")
RecSet("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet("DATUM") = NOW()

If Request.QueryString("refID") <> "" THEN
RecSet("REF_ID") = Request.QueryString("refID") ' Om det är ett svar så ska REF_ID läggas till!
End If

RecSet.UPDATE

RecSet.CLOSE

'######### RÄKNAR ANTAL SVAR PÅ ETT INLÄGG ##########

If Request.QueryString("refID") <> "" THEN
strSQL = "UPDATE asp SET ANTALSVAR = ANTALSVAR + 1 WHERE ID = " & Request.QueryString("refID")
Connect.Execute strSQL
End If

'#################### SLUTRÄKNAT ####################

Set RecSet = nothing

Connect.CLOSE
Set Connect = nothing

If Request.QueryString("refID") <> "" THEN
Response.Redirect "read.asp?ID=" &Request.QueryString("refID")
Else
Response.Redirect "forum.asp"
End If
End If
%>
</code>

Håller med pelle faktiskt....

jobbigt fel det där, men oftast enkelt...

är det win xp så testa att välja bort alternativet förenklad fildelning i utforskaren... sen kan du ge användare fulla rättigheter till din databas, och därefter ladda upp den...
det ska nog funka...