erro de exceçâo

[explore 3]

Ai pessoal!!!!!!!!!!!

 

Peguei um Script de Contador aqui do Forum para colocar em meu banco de codigos mais ele ta com o seguinte erro!

 

erro '80020009'

Exceção.

 

/Arquivos de Linguagens/ASP/contador/contador2.asp, line 9

 

Já tentei algumas coisas mais naum consegui!!!!!

 

LINHA 9

ASP

[*]Visitas = cint(cint(Contador("Visitas")))+1

 

Falo!!!!!!!!!!!!!!!

[Cable 0]

Exceção pode ser qualquer coisa cara...tenta tirar um desses CINT ai que voce colocou, e coloca o "+1" dentro do CINT tbm.Off: Não coloque mais palavrões nos titulos, sub-titulos e nem nos topicos...ok? ;)

[Mário Monteiro 179]

Contador("Visitas")o campo visitas no bd é de que tipo se for numerico bastaVisitas = Contador("Visitas")+1se for texto bastaVisitas = cint(Contador("Visitas")) + 1ainda mais... se for só pra atualizar um campo incrementando-o você não precisa recuperar o campo pra atualizar depois você pode atualizar direto UPDATE TABELA SET CAMPO = CAMPO + 1T +

[dark0 0]

brother, posta o seu codigo aqui pra gente verabraço

[explore 3]

Em primeiro lugar desculpe pelo PALAVRÂO!!!!!!!!!!!!!!!

 

Em segundo lugar tentei deixar apenas

 

Visitas = Contador("Visitas")

 

mais nada!!!!!!!!!!!!!!!!!!

O Codigo é este:

Foi tirado do Forum Imasters mesmo Postado por SALGADO!!!!!

 

ASP

[*]<%

[*]if session("Visitas")="" or session("Visitas") = 0 or session("ip")="" or session("ip") = 0 or session("ip")<> Request.ServerVariables("REMOTE_ADDR") or session("id")="" or session("id") = 0 or session("id")<> session.SessionID then ' Verifica se o usuário já foi contado, evita que seja contado com um refresh

[*]set conn = server.createObject("ADODB.Connection")

[*]conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("contadorUser.mdb") & ";"

[*]sql="select Top 1 * from Contador order by Visitas desc" 'Seleciona o ultimo visitante

[*]Set Contador = server.CreateObject("ADODB.RecordSet")

[*]Contador.Open sql,conn,3,3

[*]

[*]Visitas = cint(Contador("Visitas"))+1

[*]session("Visitas") = Visitas

[*]Session("UltimaVisita") = Contador("Ultimo_visitante")

[*]session("IP")=Request.ServerVariables("REMOTE_ADDR")

[*]session("ID")=session.SessionID

[*]Contador.EOF

[*]

[*]Contador.addnew

[*]Contador("Visitas") = cint(Visitas)

[*]Contador("Ultimo_visitante")=cdate(Now())

[*]Contador("IP")=session("IP")

[*]Contador("ID")=session("ID")

[*]Contador.update

[*]

[*]Contador.Close

[*]set Contador= nothing

[*]conn.Close

[*]set conn= nothing

[*]end if

[*]%>

[*]Visitas <%=session("Visitas")%><br>

[*]Ultima Visita <%=session("UltimaVisita")%><BR>

[*]Ultimo IP <%=session("IP")%><BR>

[*]Ultimo ID <%=session("ID")%>

 

Brigadão

 

Falo!!!!!!!!!

[Mário Monteiro 179]

mas como esta o campo em seu db??

[explore 3]

Visitas (num), Ultimo_Visitante (Data), IP (Num) e ID (Num

[Salgado 4]

Estranho esse erro, uso esse contador, com pequena adaptação (coloca imagens no lugar dos numeros) no site aqui do trampo.

[explore 3]

Estranho esse erro, uso esse contador, com pequena adaptação (coloca imagens no lugar dos numeros) no site aqui do trampo.

<{POST_SNAPBACK}>

Não entendi oque é para eu fazer!!!!!!!!!

[alphamek 2]

Seguinte. Após tu abrir o RecordSet, dá um Response.Write e End. Exemplo. response.write Contador("Visitas") Visitas = cint(Contador("Visitas"))+1 response.write Visitas response.end E veja o ele está trazendo? E passa para a gente. Abraços,

[explore 3]

Cara veio o seguinte erro e naum consegui resolver!!!!!!ADODB.Field erro '80020009' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /Arquivos de Linguagens/ASP/contador/contador2.asp, line 0

[Salgado 4]

Iniciante é fogo (eu era nessa época). O BD está zerado por isso o erro.

Coloca um If testando se BOF ou EOF, se for verdadeiro você manda inserir os dados de IP, ID, Ultimo_Visitante e o valor 1 para o campo visitas.

[explore 3]

Cara eiu já tentei isso muitas vezes e naum funfo!!!!!!!!Se tivesse funfado não teria postado aqui!!!!!!!!!!!!!!Iniciante é f*** ...hehehheheFalo!!!!!!!!!!

[ska_ska 0]

repare uma coisa no código

ASP

[*]Set Contador = server.CreateObject("ADODB.RecordSet")

[*]Contador.Open sql,conn,3,3

[*]

[*]Visitas = cint(Contador("Visitas"))+1

[*]session("Visitas") = Visitas

[*]Session("UltimaVisita") = Contador("Ultimo_visitante") **********

[*]session("IP")=Request.ServerVariables("REMOTE_ADDR")

[*]session("ID")=session.SessionID

[*]Contador.EOF

 

veja a linha demarcada com ******.... ela está puxando esses dados do BD... e como naum tem dados ele causa uma excessão...

altere para Session("UltimaVisita") = "erro"... a forma correta seria

 

ASP

[*]Set Contador = server.CreateObject("ADODB.RecordSet")

[*]Contador.Open sql,conn,3,3

[*]

[*]Visitas = cint(Contador("Visitas"))+1

[*]session("Visitas") = Visitas

[*]if not Contador.EOF then

[*] Session("UltimaVisita") = Contador("Ultimo_visitante") **********

[*]else

[*] Session("UltimaVisita") = "-"

[*]end if

[*]session("IP")=Request.ServerVariables("REMOTE_ADDR")

[*]session("ID")=session.SessionID

[*]Contador.EOF

 

;)

[Mário Monteiro 179]

o erro é claro...

 

BOF ou EOF são verdadeiros

 

você esta fazendo uma consulta que não retorna nada...

 

deve fazer os testes de validação antes de exibir algo do db

[explore 3]

Já resolvi!!!!!!!!!!!!!!Apessar Fiz outro!!!!!!!è ruim pegar Sistema Dos outros!!!Prefiri fazer um eu mesmo!!!!!!Valeu Galera!!!!!!!!!!!!

[Mário Monteiro 179]

tb concordo que desenvolver o proprio é melhor, mas se já tiver algo bem feito pronto e free...

[dark0 0]

é mario..se já existir alguma coisa em desenvolvimento.. open source.. eu axo bom pegar e modificar pra deixar do meu modo de uso..