Contador de acessos com erro

[Célio-Ctba 0]

Inserir string no contador, ao invés de somar + 1, colocar letras?

[Mário Monteiro 179]

Inserir string no contador, ao invés de somar + 1, colocar letras?

não, acho que o que ele quiz dizer é armazenar numero em string e toda vez qeu for pegar tem que converter pra numero pra poder somar e depois inserir como texto denovo...Particularmente deixaria o campo como numero e faria o UPDATE diretamente, sem consulta previa...

[Célio-Ctba 0]

Mas é assim que está, veja o cód.:

 

ASP [/tr][tr]Dim Conn, RsQuery, Pagina, Counter, cliques

Pagina = Request.ServerVariables("SCRIPT_NAME")

Set Conn = Server.Createobject("ADODB.Connection")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("contador.mdb")

If Len(Session(Pagina)) = 0 Then

Counter = RsQuery("acesso")+1

Conn.Execute("UPDATE acesso SET acesso = "&Counter&" WHERE url = '"&pagina&"'") '**********AQUI É Q TÁ F... *********

Session(Pagina) = "visitada"

Else

Set RsQuery = Conn.Execute("SELECT * FROM acesso WHERE url = '" & Pagina & "'")

Counter = RsQuery("acesso")

End If

Conn.Close

Set Conn = Nothing

Response.Write Counter

[/tr]

[Mário Monteiro 179]

cara não sei qual é o erro mas não precisa selecionar o valor pra fazer o UPDATE, faz direto..."UPDATE acesso SET acesso = acesso + 1 WHERE url = '" & Pagina & "'"vê se resolve

mas olha como imaginei fazer...não usa aquel counter, mesmo porque ele estará vazio

[Célio-Ctba 0]

Sim, já tinha feito isso q você falou mas daí o erro muda para:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1./teste/contador.asp, line 53Que NHACA, um cód tão fácil é q sou mto burro!!!

[Mário Monteiro 179]

e foi exatamente nesta hora que pedi pra você escrever istoresponse.write("UPDATE acesso SET acesso = acesso + 1 WHERE url = '" & Pagina & "'")pra tentar ver qual é o erro...

[Célio-Ctba 0]

Ah, tá, agora me traz a seguinte informação:Nº de visitantes: UPDATE acesso SET acesso = acesso + 1 WHERE url = '/teste/inicial.asp'

[Mário Monteiro 179]

Ah, tá, agora me traz a seguinte informação:Nº de visitantes: UPDATE acesso SET acesso = acesso + 1 WHERE url = '/teste/inicial.asp'

bem cara se o campo acesso é numerico e se a url mostrada existe, o update deve estar funcionando, pois está tudo certo...

[FabricioGomes 0]

<%Dim Conn, RsQuery, Pagina, CounterPagina = Request.ServerVariables("SCRIPT_NAME")Set Conn = Server.Createobject("ADODB.Connection")Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("contador.mdb")If Len(Session(Pagina)) = 0 Then    Set RsQuery = Conn.Execute("SELECT * FROM acesso WHERE url = '" & Pagina & "'"")    counter = 1    if not rsQuery.Eof then       Counter = RsQuery("acesso")+1    end if    Set RsQuery = Conn.Execute("UPDATE acesso SET acesso = " & Counter & " WHERE url = '" & Pagina & "'")    Session(Pagina) = "visitada"Else    Set RsQuery = Conn.Execute("SELECT * FROM acesso WHERE url = '" & Pagina & "'")    Counter = RsQuery("acesso")End IfConn.CloseSet Conn = NothingResponse.Write Counter%>

se nao resolver, muda o nome da tabela para acessos, com s no final e muda na sql... pode ser que seja isso, mas acredito que nao...

e o campo tem que ser numerico... ok?

 

PS: Faltou um where no select do contador :)

[Mário Monteiro 179]

mass fabricio se o campo for numerico não precisa selecionar nada antes do update...Vai funcionar vai, mas não precisa

[FabricioGomes 0]

mario, é para mostrar depois o contador de acessos... voce precisa ter um valor anterior para somar +1... ;)