Onde Esta O Erro?

[py2tz]

No BD existe um Campo chamado cliques que já esta com o numero 1

A cada visita de uma página ele soma +1 clique e consigo ver quantos foram a cada visita. mas não faz a soma, a parte que deveria fazer esta em vermelho. Será que falta ou tem coisa a mais?

<%

my_Conn.Open ConStr

sql ="SELECT * FROM prlist WHERE id=" & pId

RS.open sql, my_Conn, 1, 3

If not RS.EOF Then

cliquesa = rs("cliques")

cliquesb = "1"

x = cliquesa + cliquesb

Sql = "UPDATE prlist SET cliques = '" & x & "' WHERE id = " & id & " "

my_Conn.Execute(Sql)

pLocal01 = RS("Local01")

pLocal02 = RS("Local02")

pLocal03 = RS("Local03")

pImage = RS("Image")

pEleEla = RS("EleEla")

pStartGrid = RS("StartGrid")

pEndGrid = RS("EndGrid")

varcod = Trim(RS("Comments"))

pComments =Replace(varcod,vbCrlf,"<br>")

'Reading information about workers

sql ="SELECT * FROM workers WHERE ProjectId=" & pId

RS2.open sql, my_Conn, 1, 3

i=0

While (not RS2.EOF) and (i<4)

i = i + 1

pClerk(i,1) = RS2("Nome")

pClerk(i,2) = RS2("email")

RS2.MoveNext

WEnd

All = i

RS2.Close

%>

[fercosmig]

movendo

[.Andreia.]

tente assim:

x = Cint(cliquesa) + Cint(cliquesb)

[py2tz]

Alterei mas não funcionou,

cliquesa = rs("cliques")

cliquesb = "1"

x = Cint(cliquesa) + Cint(cliquesb)

Sql = "UPDATE prlist SET cliques = '" & x & "' WHERE id = " & id & " "

my_Conn.Execute(Sql)

[Marcos-rj]

você está usando codigo D+.

tenta assim:

Sql = "UPDATE prlist SET cliques = cliques+1 WHERE id = " & id & " "

[py2tz]

Olá Marcos, Bom dia a todos,

Achei alguma coisa e alterei para este que passa a ser o novo contador.asp, ele esta contando, mas acrescenta +1 em todos os registros, teria que ser individulamente para cada ID clicada, onde coloco isso no script abaixo?

<%

SET Con = Server.CreateObject("ADODB.Connection")

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("arvore.mdb")

set conta_visitas = Con.execute("SELECT * FROM prlist")

IF NOT Session("on") = TRUE THEN

Con.Execute("UPDATE prlist SET cliques='"& conta_visitas("cliques")+1 &"'")

Session("on") = TRUE

Session.TimeOut = 10

END IF

Response.Write " "& conta_visitas("cliques")

%>

[Roney]

Você não está informando o ID em uma cláusula WHERE, logo o SQL interpreta que é para o banco todo.

Tente o seguinte:

<%

SET Con = Server.CreateObject("ADODB.Connection")

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("arvore.mdb")

set conta_visitas = Con.execute("SELECT * FROM prlist")

IF NOT Session("on") = TRUE THEN

Con.Execute("UPDATE prlist SET cliques='"& conta_visitas("cliques")+1 &"' WHERE id = " & id)

Session("on") = TRUE

Session.TimeOut = 10

END IF

Response.Write " "& conta_visitas("cliques")

%>

Onde id deverá conter o id do registro a ser alterado.

Abs,

[py2tz]

Beleza, Roney, ficou assim:

<%

SET Con = Server.CreateObject("ADODB.Connection")

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("arvore.mdb")

id = request.querystring("id")

'IF NOT Session("on") = TRUE THEN

Con.Execute("UPDATE prlist SET cliques = cliques +1 WHERE id = "&id&"")

'Session("on") = TRUE

'Session.TimeOut = 10

'END IF

%>

Esta contando legal agora, individualmente para cada registro.

Obrigado a todos que me ajudaram......

Fausto