---
title: "Update funkar inte"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12338-update-funkar-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2001-10-28T16:26:00.000Z"
updated: "2001-10-29T10:35:00.000Z"
replies: 8
views: 219
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/12338-update-funkar-inte"
---

# Update funkar inte

## #1 — timedia, 2001-10-28T16:26Z

Har precis fått konto på Space2u. (Dom kör ChilisoftASP) Koden nedan har fungerad förut men ger nu följande fel:

```
ADODB.Recordset.1 error '80004005' 

SQLState: 34000
Native Error Code: 0
[INTERSOLV][ODBC SequeLink driver]Statement with cursor named in this statement's CURRENT-OF-CURSOR clause is not a SELECT FOR UPDATE.

/admin/redfst2.asp, line 22
```

Linje 22= RecSet.Update
Hur får jag nedanstående att fungera?

```
Set RecSet = Server.CreateObject("ADODB.Recordset")
   Uppdatera = "SELECT * FROM Nyheter WHERE NyhetsID = " & Request.Form("AD") & " "

   RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic 

	RecSet("Rubrik") = Request.Form("rubrik")
	RecSet("Bild") = Request.Form("bild")
	RecSet("Rubrikbild") = Request.Form("rubrikbild")
	RecSet("Artikel") = Request.Form("artikel")
	RecSet("Brodtext1st") = Request.Form("brodtext1st")
	

	RecSet.Update
	RecSet.Close
	Set Recordset = Nothing 
	Connect.Close 
	Set Connect = Nothing  %>
```

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

## #2 — @nders, 2001-10-28T18:25Z

Hej!

Jag skulle vilja ersätta hela det kodstycket du visade ovan, med detta:

```
strSQL = "UPDATE Nyheter SET Rubrik = '" & Request.Form("rubrik") & ", Bild = '" & Request.Form("bild") & ", Rubrikbild = '" & Request.Form("rubrikbild") & "', Artikel = '" & Request.Form("artikel") & "', Brodtextlist = '" & Request.Form("brodtext1st") & "' WHERE NyhetsID = " & Request.Form("AD")
Connect.Execute strSQL, , 128

Connect.Close 
Set Connect = Nothing
```

Se om det fungerar bättre att göra på detta sätt, som är bättre på de flesta sätt. :)
Eftersom jag vet att frågan kommer att dyka upp så passar jag på att nämna att argumentet 128 som jag ger till Connect.execute ovan, specificerar att inget recordset ska skapas. Och det ska det ju inte heller, eftersom vi inte ska hämta någonting.

Mvh,

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

## #3 — jorgen, 2001-10-28T19:30Z

Hej!

timedia, det går inte köra sådan kod på ChilliASP. Gör som @nders sade och kör ren SQL istället.

mvh Jörgen :)

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

## #4 — timedia, 2001-10-29T07:33Z

Tack, nu får jag detta fel:

```
ADODB.Connection.1 error '80004005' 

SQLState: 07001
Native Error Code: -3010
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/admin/redfst2.asp, line 11
```

...och det som genererar fel är: linje 11 är Connect.Execute strSQL, , 128

```
<%	Set Connect = Server.CreateObject("ADODB.Connection")
   Connect.Open "DSN=;Password"

	strSQL = "UPDATE Nyheter SET Rubrik = '" & Request.Form("rubrik") & ", Bild = '" & Request.Form("bild") & ", Rubrikbild = '" & Request.Form("rubrikbild") & "', Artikel = '" & Request.Form("artikel") & "', Brodtextlist = '" & Request.Form("brodtext1st") & "' WHERE NyhetsID = " & Request.Form("AD")
Connect.Execute strSQL, , 128
Connect.Close 
Set Connect = Nothing	

	 %>
```

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

## #5 — timedia, 2001-10-29T07:37Z

HURRA! Jag fixade det. Ett litet skrivfel i Anders kod :) Skulle vara Brodtext1st - inte Brodtextlist.
Tack för hjälpen!

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

## #6 — @nders, 2001-10-29T07:42Z

Såg precis det. :)

Mvh,

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

## #7 — timedia, 2001-10-29T10:26Z

Trodde detta funkade, men upptäckte ett nytt problem :(

```
strSQL = "UPDATE Nyheter SET Rubrik = '" & Request.Form("rubrik") & ", Bild = '" & Request.Form("bild") & ", Rubrikbild = '" & Request.Form("rubrikbild") & "', Artikel = '" & Request.Form("artikel") & "', Brodtext1st = '" & Request.Form("brodtext1st") & "' WHERE NyhetsID = " & Request.Form("AD")
Connect.Execute strSQL, , 128
Connect.Close 
Set Connect = Nothing
```

Nu skriver den " , Bild = " i rubriken när jag uppdaterar en nyhet!?.

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

## #8 — icaaq, 2001-10-29T10:30Z

```
strSQL = "UPDATE Nyheter SET Rubrik = '" & Request.Form("rubrik") & "[b]'[/b], Bild = '" & Request.Form("bild") & "', Rubrikbild = '" & Request.Form("rubrikbild") & "[b]'[/b], Artikel = '" & Request.Form("artikel") & "', Brodtext1st = '" & Request.Form("brodtext1st") & "' WHERE NyhetsID = " & Request.Form("AD")
Connect.Execute strSQL, , 128
Connect.Close 
Set Connect = Nothing
```

du hade glömt lite **'** ;)

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

## #9 — timedia, 2001-10-29T10:35Z

Tack Isaaq. Nu funkar det (det verkar så i alla fall :))

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12338-update-funkar-inte