Contador de acessos com erro

[Célio-Ctba 0]

Fala galera!!!!

 

Alguém pode me dar uma luz, pq tá dando erro:

 

(0x80020009)Exceção

 

Aí vai o cód:

ASP [/tr][tr]

<%

Dim Conn, RsQuery, Pagina, Counter

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

Set RsQuery = Conn.Execute("SELECT * FROM acesso")

Counter = RsQuery("acesso")+1 'O erro está aki***********

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 If

Conn.Close

Set Conn = Nothing

Response.Write Counter

%>

[/tr]

 

O banco de dados se chama contador.mdb, tem uma tabela chamada acesso, e um campo também chamado acesso do tipo numérico, será q isso pode implicar?

 

 

Abraços!!

[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

[Célio-Ctba 0]

Mudou o erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

 

 

ASP [/tr][tr]

<%

Dim Conn, RsQuery, Pagina, Counter

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

Set RsQuery = Conn.Execute("UPDATE acesso SET acesso = (acesso + 1) WHERE url = '" & Pagina & "'") 'Agora o erro está aki

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]

escreve na tela a SQL do update e posta aqui, o que ta dizendo é que algo não está como deveria...

[Célio-Ctba 0]

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

Erro de sintaxe

/teste/contador.asp, line 50, column 15

response.Write Set RsQuery = Conn.Execute("UPDATE acesso SET acesso = (acesso + 1) WHERE url = '" & Pagina & "'")

--------------^

 

 

A linha 50 é essa.

ASP [/tr][tr]

response.Write Set RsQuery = Conn.Execute("UPDATE acesso SET acesso = (acesso + 1) WHERE url = '" & Pagina & "'")

[/tr]

 

Foi isso q você pediu?

[Mário Monteiro 179]

não era bem isso..poe isso apenas em cima desta linharesponse.Write("UPDATE acesso SET acesso = (acesso + 1) WHERE url = '" & Pagina & "'")

[Célio-Ctba 0]

Não entendi!!!!Colocar o RESPONSE.WRITE em cima desta linha? :blink:

[Mário Monteiro 179]

Não entendi!!!!Colocar o RESPONSE.WRITE em cima desta linha? :blink:

é pra visualizar o qeu pode está errado...Isto não resolverá o problema mas pode ajudar

[Célio-Ctba 0]

Sim, mas aí vai dar erro: Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01C2)Número de argumentos incorreto ou atribuição de propriedade inválida: 'write'/teste/contador.asp, line 49

[vicoluis 0]

o campo "acesso" no seu DB é do tipo numero ou texto?

[Célio-Ctba 0]

Já tentei c/ os 2 !!!Não deu!!

[vicoluis 0]

tenta assim:

 

ASP [/tr][tr]<%

cliques = RsQuery("acesso") + 1

 

Conn.Execute("UPDATE acesso SET cacesso = '"&cliques&"' WHERE url = '"&pagina&"'")

%>

[/tr]

 

 

neste caso o campo "acesso" seria do tipo texto... se você estiver usando do tipo numero ficaria assim:

 

ASP [/tr][tr]<%

cliques = RsQuery("acesso") + 1

 

Conn.Execute("UPDATE acesso SET cacesso = "&cliques&" WHERE url = '"&pagina&"'")

%>

[/tr]

[Célio-Ctba 0]

Que NHACA, agora tá dando tipos imcompatíveis

 

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/teste/contador.asp, line 51

 

ASP [/tr][tr]

cliques = RsQuery("acesso") + 1

[/tr]

 

Declarei cliques como variável mas deu erro assim mesmo.

[vicoluis 0]

primeiro se você so copiou e colou, tem um erro de digitação meu:

 

agora ta certo

 

ASP [/tr][tr]<%

cliques = RsQuery("acesso") + 1

 

Conn.Execute("UPDATE acesso SET acesso = "&cliques&" WHERE url = '"&pagina&"'")

%>

[/tr]

 

outra... veja se ele ta somando um pelo menos

 

ASP [/tr][tr]<%

cliques = RsQuery("acesso") + 1

 

response.write cliques

%>

[/tr]

 

tirando o UPDATE... vamos saber se o erro é nele ou se é antes...

[Mário Monteiro 179]

Já tentei c/ os 2 !!!Não deu!!

como assim com os dois, pra funcionar tem que ser numerico...

[vicoluis 0]

Já tentei c/ os 2 !!!Não deu!!

como assim com os dois, pra funcionar tem que ser numerico...

não necessáriamente... meu contador é tipo "texto" e funfa que é uma beleza.. :blink: :wacko:

[Célio-Ctba 0]

É, eu tinha visto que estava "cacesso" mas mesmo assim, agora o erro é:

 

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/teste/contador.asp, line 51

 

A linha 51 é:

ASP [/tr][tr]cliques = RsQuery("acesso") + 1[/tr]

 

Tentei hora c/ texto e depois c/ numérico, dá o mesmo erro.

[Mário Monteiro 179]

não necessáriamente... meu contador é tipo "texto" e funfa que é uma beleza.. :blink: :wacko:

sei disso, o lance que disse era pra funcionar direto do UPDATE...

[Célio-Ctba 0]

O q pode ser imcompatível?

[Mário Monteiro 179]

tentar inserir string em lugar de numero ou o inverso...