---
title: "Skrivskydd?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8152-skrivskydd"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Zapotek"
published: "2001-02-14T23:20:00.000Z"
updated: "2001-02-15T00:54:00.000Z"
replies: 1
views: 188
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/8152-skrivskydd"
---

# Skrivskydd?

## #1 — Zapotek, 2001-02-14T23:20Z

Om man får felet:

ADODB.Recordset.1 error '80004005' 

Recordset is read-only 

/admin/add_filer.asp, line 22 

är det då databas filen (mdb filen) som är skrivskyddad eller är det något fel i koden:

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

Addera = "SELECT \* FROM Filer ORDER BY ID DESC;"
RecSet.Open Addera, Connect, adOpenStatic

   If Len(Request.Form("f_o")) = "\>255" Then
   
   Response.Write "Du kan endast använda dig av 255 tecken och du har överskridit den gränsen :)"
   %\> Lägg till \<a href="default.asp"\>fler poster\</a\> \<%
   Else
   

	RecSet.AddNew

	RecSet("Överskrift") = Request.Form("f_o")
	RecSet("Text") = Request.Form("f_t")
	RecSet("Betyg") = Request.Form("f_b")
	RecSet("Länk") = Request.Form("f_l")
	
	RecSet.Update
	RecSet.Close
	Connect.Close 
	%\>

Följande uppgifter har nu lagts till i databasen:
\<p\> Överskrift:\<br\>
  \<b\>\<% =Request.Form("f_o") %\>\</b\>
\<p\> Text:\<br\>
  \<b\>\<% =Request.Form("f_t") %\>\</b\>
\<p\> Betyg:\<br\>
  \<b\>\<% =Request.Form("f_b") %\>\</b\>
\<p\> Länk:\<br\>
  \<b\>\<% =Request.Form("f_l") %\>\</b\>
\<p\> Lägg till \<a href="http://www.minsajt.nu"\>fler poster\</a\> 
\<% End if %\>

Permalänk: https://www.webforum.nu/p/8152

## #2 — PatrikB, 2001-02-15T00:54Z

... det ser ut som du har glömt vilken LockType recordsetet ska ha.
Du kan inte köra default(som det blir när man ej anger ett värde) för uppdatering av recordset genom adodb.recordset

Raden det gäller är:

```
RecSet.Open Addera, Connect, adOpenStatic
```

Bör vara:

```
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
```

en liten sak till. kopiera dessa konstanter från adovbs och lägg in på asp sidan istället för att inkludera hela adovbs för endast användande av 2 av alla konstanter eller använd värdet på konstanterna direkt.

```
RecSet.Open Addera, Connect, 3, 3
```

\[r\]
kolla även in detta inlägg i ämnet: <http://cgi.webforum.nu/wf/Forum11/HTML/002056.html> 

en annan sak är att det är en mycket bättre ide att lägga till info i databasen med connection objektet istället.
\[/r\]
cya,

Permalänk: https://www.webforum.nu/p/259227

---

Tråden på webben: https://www.webforum.nu/amne/asp/8152-skrivskydd