Contador De Cliks

[Rapper]

Ae fazendo favor, alguém pode me explica como posso faze um contador de "clicks", tipo tenho uma tabela +/- assim.

[noticia, autor, fonte, titulo, clicks]

ai gostaria de saber quando eu clicar em uma "noticias/id" comar +1 nessa "noticia/id".

bom desde já valeu!

[cyberalexxx]

Quando clicar na noticia, certamente voce vai fazer um select para visualizar a noticia, certo??

pegar tambem o valor de clicks e somar mais + 1

depois fazer um update no campo clicks, usando o mesmo critério de seleção que você usou na hora de exibir a noticia.

[bareta]

faiz uma busca aqui no forum veja o tópico de funç~poes e tutoriais que você encontrara algo pronto

[Rapper]

alguém pode me ajuda aqui fazendo favor, ta dando erro, não sei se o código ta certo, pois não manjo muito.

<%
  id = Request.Querystring("id")
  sql = ("SELECT * FROM noticias WHERE id = "&id&"")
  set rst = server.createobject("adodb.recordset")
   rst.open sql,conexao,3,3
   IF (rst.EOF) THEN
   Response.Redirect("default.asp")
   ELSE
   titulo = rst("titulo")
   noticia = rst("texto")
   por = rst("por")
   data = rst("data")
   id = rst("id")

  sql = ("SELECT * FROM noticias WHERE leituras = '"&leituras&"' AND id = '"&id&"'")
  set rsu = server.createobject("adodb.recordset") 
  IF (rsu.EOF) THEN
  conexao.execute("INSERT INTO noticias (leituras) VALUES ('0')")
  ELSE
  conexao.execute("UPDATE noticias SET leituras=leituras +1 '"&leituras&"'")
  END IF
  rsu.close
  set rsu = nothing
%>

O ERRO É:

Operação não permitida quando o objeto está fechado.

teste.asp, line 66

onde linha 66 = IF (rsu.EOF) THEN

desde já valeu ai pela colaboração!

[cyberalexxx]

Voce não abriu a conexão!!

abra a conexão antes da linha 66

rsu.open sql,conexao,3,3

[Rapper]

Bom eu reformulei o código pois esse acima ai tava dando errado, pois a "lógica dele ta erra" (eu acho).

bom eu fiz esse aqui mas num sei se ta certo também:

<%
	id = Request.Querystring("id")
	sql = ("SELECT * FROM noticias WHERE id = "&id&"")
	set rst = server.createobject("adodb.recordset")
	rst.open sql,conexao,3,3
IF (rst.EOF) THEN
	Response.Redirect("default.asp")
ELSE
	titulo = rst("titulo")
	noticia = rst("texto")
	por = rst("por")
	data = rst("data")
	id = rst("id")
  
	sql = ("SELECT leituras FROM noticias WHERE id = '"&id&"'")
	set rsj = server.createobject("adodb.recordset")
	rsj.open sql,conexao,3,3
	IF leituras >= 0 THEN
conexao.execute("UPDATE noticias SET leituras="leituras +1" WHERE id="&id&"")
END IF
	rsj.close
	set rsj = nothing
%>

bom ele ta dando erro:

Erro de compilação do Microsoft VBScript (0x800A03EE)

')' esperado

/textos.asp, line 66, column 47

conexao.execute("UPDATE noticias SET leituras="leituras +1" WHERE id="&id&"")

ele fala que espera um ')' mas onde pode ser esse parenteses ?

[dark0]

seu campo LEITURAS é NUMERO, ou TEXTO?

O problema é ali..

Set leituras = CINT(leituras + 1) where ...

[Rapper]

é memorando

bom eu peguei essa parte do código que você passo e adaptei nele e tirei algumas parte deu nisso:

<%
sql = ("SELECT leituras FROM noticias WHERE id = '"&id&"'")
set rs = server.createobject("adodb.recordset")
IF leituras >= 0 THEN
conexao.execute("UPDATE noticias SET leituras = CINT(leituras + 1) WHERE id="&id&"")
END IF
set rs = nothing
%>

pelo menos deu certo "conto" normal, seria isso mesmo o correto!?

ah! e valeu pela ajuda a todos.