---
title: "Rpoblem vid Update..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50461-rpoblem-vid-update"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2002-08-15T16:42:20.000Z"
updated: "2002-08-16T14:00:37.000Z"
replies: 12
views: 226
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/50461-rpoblem-vid-update"
---

# Rpoblem vid Update...

## #1 — ReloadMaster, 2002-08-15T16:42Z

Någon som kan hjälpa mig hitta felet här:

\<%
If Request.Querystring("rosta") = "ja" Then

db = Server.MapPath("omrostning.mdb") 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (\*.mdb)};dbq="& db 

Dim SQLUpdate, nummer
nummer = Request.Querystring("alternativ")

SQLUpdate = "UPDATE omrostning SET roster"&nummer&"=roster"&nummer&"+1 WHERE ID='" & Request.Querystring("ID") & "'"
Conn.Execute SQLUpdate

Response.Redirect("omrostning2.asp?rosta=ett")

%\>

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Typblandningsfel i villkorsuttryck.
/omrostning/omrostning2.asp, line 126

125&126 är:
SQLUpdate = "UPDATE omrostning SET roster"&nummer&"=roster"&nummer&"+1 WHERE ID='" & Request.Querystring("ID") & "'"
Conn.Execute SQLUpdate

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

## #2 — Skarre, 2002-08-15T16:57Z

Jag vet inte om det beror på detta, men om kolumnen ID är INT eller liknande så ska du inte ha några apostrofer runt det värdet.

```
WHERE ID = " & Request.Querystring("ID")
```

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

## #3 — ReloadMaster, 2002-08-15T17:15Z

Berodde inte på det...

Det verkar som scriptet fastnar där innan för den uppdaterar varken värdet eller skickar vidare till ursprungsidan

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

## #4 — @nders, 2002-08-15T17:16Z

Vad är rösterfälten i tabellen för datatyp?

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

## #5 — ReloadMaster, 2002-08-15T17:31Z

> **@nders skrev:**
>
> Vad är rösterfälten i tabellen för datatyp?

Röster är TAL

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

## #6 — @nders, 2002-08-15T18:34Z

Får du samma felmeddelande när du gör enligt Skarres förslag?

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

## #7 — ReloadMaster, 2002-08-15T22:23Z

Länken blir:

omrostning_rosta.asp?id=2&alternativ=2rosta=ja 

Nu får jag inget felmeddelande men roster2 som ska uppdateras med 1 uppdateras inte och jag skickas inte till omrostning.asp

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

## #8 — Jesper T, 2002-08-15T22:31Z

Prova med:

```
Conn.Execute SQLUpdate,,128
```

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

## #9 — Jesper T, 2002-08-15T22:34Z

Länken skall väl ändå bli:
omrostning_rosta.asp?id=2&alternativ=2**&**rosta=ja

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

## #10 — ReloadMaster, 2002-08-15T23:08Z

Ops, klumpigt ;)

Aja när vi ändå är i farten undrar jag om någon kunde hjälpa mig  lägg in så att när någon har röstat så lägger den in en cookie som baserar sig på omröstningens ID

Och som sedan kollar om användaren har röstat eller inte...

EDIT: En fråga till om jag tar bort &rosta=ja kan jag använda typ:
If Request.Querystring("ID") = RecSet("ID") Then
eller går det på något annat sätt?
Eftersom jag vill lägga in sparningsgrejen i samma fil som resten av omröstningen...

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

## #11 — Jesper T, 2002-08-15T23:42Z

```
 	
contr = Request.Cookies("voted")("check")
If contr = RecSet("ID") Then
'Du har redan röstat ju!
	Else
Response.Cookies("voted")("check") 	= RecSet("ID")
Response.Cookies("voted").Expires 	= Date + 365'eller nåt
' Tack för din röst!
	End If
```

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

## #12 — ReloadMaster, 2002-08-16T01:54Z

Hmm... verkar vara problem för den verkar inte vilja skapa cookien...

```
<%
If Request.Querystring("rosta") = "ja" Then

Dim Conn, SQL1

db = Server.MapPath("omrostning.mdb") 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& db
	
Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL1 = "SELECT * FROM omrostning WHERE ID= " & Request.Querystring("id") & " "
RecSet.Open SQL1, Conn

contr = Request.Cookies("voted")("check")
If contr = RecSet("ID") Then

Response.Redirect("omrostning2.asp?rostat=ja")

Else

Dim SQL2, Siffra
nummer = Request.Querystring("alternativ")

SQL2="UPDATE omrostning SET roster"&nummer&"=roster"&nummer&"+ 1 WHERE ID = " & Request.Querystring("ID")
Conn.Execute SQL2

Response.Cookies("voted")("check") 	= RecSet("ID")
Response.Cookies("voted").Expires 	= Date + 31

Response.Redirect("omrostning2.asp?rostat=ja")

RecSet.Close 
Set RecSet = Nothing 
Conn.close 
Set Conn = Nothing 

End If
End If
%>
```

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

## #13 — ReloadMaster, 2002-08-16T14:00Z

Hjälp?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/50461-rpoblem-vid-update