update non funzionante

[Eol]

mi sarò fuso, ma proprio non capisco l'errore:

dim id
id=(request.QueryString("id"))
set Conn = Server.CreateObject("ADODB.Connection")
strCon = "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("mdb-database/news.mdb")
Conn.open (strCon)

set objRs=Server.CreateObject("ADODB.Recordset")
sql_a="SELECT * FROM news2 WHERE id="&id&" "
objRs.open sql_a, Conn, 3, 3

dim scar, scaricato
scar=CInt(objrs("scar")+1)

objrs.close
set objrs=nothing

sql="UPDATE news2 SET scar="&scar&" WHERE id="&id&""
Conn.execute sql

conn.close
set conn=nothing

scar e id del db sono campi numerici
:master:
l'errore è a lvl dell'update in conn.execute

[burruchaga]

prova con

dim id
id=request.QueryString("id")
set Conn = Server.CreateObject("ADODB.Connection")
strCon = "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("mdb-database/news.mdb")
Conn.open (strCon)

sql="UPDATE news2 SET scar=scar+1 WHERE id="&id
Conn.execute sql

conn.close
set conn=nothing

[Eol]

Originariamente inviato da burruchaga
prova con

dim id
id=request.QueryString("id")
set Conn = Server.CreateObject("ADODB.Connection")
strCon = "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("mdb-database/news.mdb")
Conn.open (strCon)

sql="UPDATE news2 SET scar=scar+1 WHERE id="&id
Conn.execute sql

conn.close
set conn=nothing

:master: :master:
grazie ora va,ma non capisco ilmio errore!!!
lo stesso identico script in una pagina differenze funziona benissimo