---
title: "databasproblem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48931-databasproblem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mappe"
published: "2002-07-28T17:07:50.000Z"
updated: "2002-07-28T18:06:56.000Z"
replies: 3
views: 229
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/48931-databasproblem"
---

# databasproblem

## #1 — mappe, 2002-07-28T17:07Z

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
%\>
\-----------------------------------------------------------------------------------

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

## #2 — Ekström, 2002-07-28T17:42Z

Om du lägger till i din databas på detta sätt:

INSERT INTO online (RecSet("chattnamn")) VALUES (chattnamn1)

Så slipper du nog det problemet.

Fick så själv förr i tiden då jag lade till som dig.

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

## #3 — Peeer, 2002-07-28T17:56Z

Typiskt webStudio!
Ger dig samma tips som jag fick en gång. Sluta läs webStudios guide när den börjar handla om databaser. Gå då över till [webeye](http://www.webeye.nu) istället!

Just ja, **Välkommen till wF Martin**

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

## #4 — voigtann1, 2002-07-28T18:06Z

ja.. går till webeye.nu ... rockar mycket mer! :))) webstudio LÄR MAN SEJ inte mycket inom databaser tycker jag..

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/48931-databasproblem