---
title: "Visad post"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/61531-visad-post"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2002-12-08T12:20:57.000Z"
updated: "2002-12-08T13:44:12.000Z"
replies: 4
views: 199
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/61531-visad-post"
---

# Visad post

## #1 — Ivar, 2002-12-08T12:20Z

Hej!
Jag har en databas med en tabell som heter Items, där finns en kolumn som heter Visningar. I den tänkte jag lagra hur många gånger artikeln för den raden har visats. Men jag vet inte hur jag ska skriva koden.

\<%
dim conn, classifieds, id
set conn = server.createobject("ADODB.connection")
Conn.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set Connection = Server.CreateObject("ADODB.Connection")
id = trim(request("item"))
if id="" then
 response.write "Ingen annons är vald.\<p\>" else
 set classifieds = conn.execute(\_
 "select \* from items where id=" & id)
 showitem classifieds("item"),classifieds("description"),\_
 classifieds("price"),classifieds("phone"),\_
 classifieds("email"),classifieds("stad"),\_
 classifieds("dateCreated"),classifieds("fileName")
SQL = "UPDATE Items SET visningar=visningar+1 WHERE id=" & request("id")
Connection.Execute(SQL)
response.write SQL

SQL = "SELECT \* FROM Items WHERE id =" & Request("id")
SQL = SQL & " Order by id Desc"
Set RS = Connection.Execute(SQL)
response.write SQL
 
%\>
\<% end if %\>

Feltyp:
ADODB.Connection (0x800A0E78)
Åtgärden är inte tillåten när objektet är stängt.
/europa/detail.asp, line 36

Line 36 Connection.Execute(SQL)
Mvh/Ivar

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

## #2 — icaaq, 2002-12-08T12:27Z

Byt ut alla 

```
[red]
Connection
[/red]
```

mot

```
[red]
conn
[/red]
```

mvh icaaq

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

## #3 — Ivar, 2002-12-08T12:35Z

Hej!
Då får jag fel meddelande
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel (operator saknas) i frågeuttrycket 'id='.
/europa/detail.asp, line 36
Line 36 Conn.Execute(SQL)

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

## #4 — Denniz PoP, 2002-12-08T13:31Z

om du skriver ut response.write(sql) så kommer du se att SQL-satsen kommer se ut någontin såhär:

"SELECT \* FROM Items WHERE id ="

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

## #5 — Ivar, 2002-12-08T13:44Z

Hej!
Jag fixade på  här viset: 
Men varje gång man trycker på uppdatera så sidan får nytt nummer hur förhindrar jag det. Kanske med if sats? Förslag.	

SQL = "UPDATE Items SET visningar=visningar+1 WHERE id=" & classifieds("id")
Conn.Execute(SQL)
'response.write SQL

SQL = "SELECT \* FROM Items WHERE id =" & classifieds("id")
SQL = SQL & " Order by id Desc"
set classifieds = Conn.Execute(SQL)
rs ="visningar"
\<%= classifieds("visningar")%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/61531-visad-post