Erro no código

[AspAL 0]

eu forneco o ID de uma notícia em uma variável COD no endereço do browser! Capturo esse valor.

 

A intenção é fazer um contador, que mostre qual notícia foi mais clicada. Existe um campo no banco de dados chamado "clicks" que, por padrão, vem com o valor 0.

 

Mas o código abaixo está dando erro!!! PQ??? AJUDA AÍ!!! http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

<%

SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")

CONEXAO.OPEN "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("/noticias.mdb")

SET RS2 = CONEXAO.EXECUTE("select * from Noticias where id="&request.querystring("cod")&"")

 

clicks = RS2("clicks")

clicks = clicks + 1

response.write clicks & "<br>"

 

SQL="INSERT INTO Noticias (clicks) VALUES ('" & clicks & "') where id="&id&""

CONEXAO.EXECUTE(SQL)

%>

 

 

ERRO QUE VEM DO SERVIDOR:

 

1

 

Microsoft JET Database Engine error '80040e14'

 

Missing semicolon ( ; ) at end of SQL statement.

 

/clicks.asp, line 11

[Maux 0]

tenta assiM:<%SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")CONEXAO.OPEN "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("/noticias.mdb")SET RS2 = CONEXAO.EXECUTE("select * from Noticias where id="&request.querystring("cod")&"")clicks = RS2("clicks")clicks = clicks + 1response.write clicks & "<br>"SQL="UPDATE Noticias set clicks = clicks + 1 where id = '" & request("cod") &"'"CONEXAO.EXECUTE(SQL)%>

[AspAL 0]

tenta assiM:

 

<%

SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")

CONEXAO.OPEN "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("/noticias.mdb")

SET RS2 = CONEXAO.EXECUTE("select * from Noticias where id="&request.querystring("cod")&"")

 

clicks = RS2("clicks")

clicks = clicks + 1

response.write clicks & "<br>"

 

SQL="UPDATE Noticias set clicks = clicks + 1 where id = '" & request("cod") &"'"

CONEXAO.EXECUTE(SQL)

%>

fala brother! Quase lá!!! Deu esse erro agr:

 

1

 

Microsoft JET Database Engine error '80040e07'

 

Data type mismatch in criteria expression.

 

/clicks.asp, line 11

 

O que será??

[jothaz 1]

Camarada,

 

Se a coluna id for numerico troque isto:

SQL="UPDATE Noticias set clicks = clicks + 1 where id = '" & request("cod") &"'"

Por isso:

SQL="UPDATE Noticias set clicks = clicks + 1 where id = " & request("cod")

t+