Contador De Acesso ...

[Danilo Piovani]

Fala Galera sempre disposta ... já baixei o contador de acessos aqui no ScriptBrasil só não consigo faze-lo funcionar ...

Onde tenho que por aquele código ASP , ou tenho que chamar ele de algum lugar ??

Da uma força aí galera ... valeu ...

tá dando esse erro :

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Session'

/producao/main/InfoProd.asp, line 883

[[ GuTo ]]

Putz, pelo jeito seu código é grandinhu...

Poste o código aki pra olharmos..

Mas não coloque tags do HTML, só o indispensável ok

[Danilo Piovani]

Eis o código ... do contador ... o resto da página é só tabela e etc ...

minha maior dúvida é a seguinte :::

Aquele arquivo Global.asa tem que ficar onde ???

<%

'+-------------------------------------------+

'l Desenvolvido por Rodrigo Alviani - f0ck l

'l rody_lmd@hotmail.com UIN: 131341660 l

'l Esse script livre e foi feito para estudo l

'l ou para ser usado em seu site. l

'+-------------------------------------------+

'===========================================================================

'Definindo as Variáveis

'===========================================================================

Dim fsoObject 'File System Object

Dim tsObject 'Text Stream Object

Dim filObject 'File Object

Dim Visitantes 'Número de Visitantes

Dim Contador 'Loop para preencher as imagens do contador

Dim Zeros 'Adicionas os Zeros a esquerda

Dim Quantidade 'Quantidade de Digitos que aparecerão

'(deixe 0 para auto)

'===========================================================================

'Definindo Quantidade de Dígitos Mostrados

'===========================================================================

Quantidade=8

'===========================================================================

'Criando o File System Object

'===========================================================================

Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

'===========================================================================

'Iniciando o o FSO já com o caminho do arquivo de texto

'===========================================================================

Set filObject = fsoObject.GetFile(Server.MapPath("contador.txt"))

'===========================================================================

'Abrindo o Arquivo de Texto

'===========================================================================

Set tsObject = filObject.OpenAsTextStream

'===========================================================================

'Lendo o Arquivo de Texto

'===========================================================================

Visitantes = CLng(tsObject.ReadAll)

'===========================================================================

'Caso a Variável da Sessão seja nula ou não exista, adicionar 1 ao contador

'===========================================================================

If isEmpty(Session("Visitado")) = true Then ( essa é a linha 883 )

'Somando +1 ao contador

Visitantes = Visitantes + 1

'Definindo a Varoável da Sessão como True

Session("Visitado") = True

End if

'===========================================================================

'Criando um Novo Arquivo de Texto Para Substituir o Antigo

'===========================================================================

Set tsObject = fsoObject.CreateTextFile(Server.MapPath("contador.txt"))

'===========================================================================

'Definindo o Novo Número no Contador

'===========================================================================

tsObject.Write CStr(Visitantes)

'===========================================================================

'Fechando os Objetos

'===========================================================================

Set fsoObject = Nothing

Set tsObject = Nothing

Set filObject = Nothing

'===========================================================================

'Habilitar a Linha Abaixo Para Mostrar o Resultado em Modo Texto

'===========================================================================

'Response.Write(Visitantes)

'===========================================================================

'Acertando a Quantidade de Dígitos Mostrados

'===========================================================================

Do While Len(Visitantes)<>Quantidade

Visitantes="0" & Visitantes

Loop

'===========================================================================

'Loop Para Mostrar o Resultado em Imagens

'===========================================================================

For Contador = 1 to Len(Visitantes)

'Mostrando as Imagens

Response.Write("<img src=""imagens/")

Response.Write(Mid(Visitantes, Contador, 1) & "a.gif""")

Response.Write("alt=""" & Mid(Visitantes, Contador, 1) & """>")

Next

%>