Visad post

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

Byt ut alla

[red]
Connection
[/red]

mot

[red]
conn
[/red]

mvh icaaq

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)

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 ="

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")%>