<%
On Error Resume Next
'Variáveis
Dim FSO, Arquivo, Contagem
'Criar objeto FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
'Criar objeto File
Set Arquivo = FSO.OpenTextFile(Server.MapPath("Contador.txt"))
'Ler a contagem atual. Se o arquivo não existir ou o valor não for numérico,
'o erro será ignorado e a próxima linha será executada, pelo "On Error Resume Next"
Contagem = CLng(Arquivo.Readline)
'Fechar o arquivo
Arquivo.Close
'Incrementar a contagem
Contagem = (Contagem + 1)
'Isto cria um novo arquivo texto, substituindo o atual
Set Arquivo = FSO.CreateTextFile(Server.MapPath("Contador.txt"), True)
'Gravar a contagem atual
Arquivo.WriteLine(Contagem)
'Fechar o arquivo
Arquivo.Close
'Destruir as instâncias dos objetos FSO
Set FSO = Nothing
Set Arquivo = Nothing
'Gravar a contagem atual numa variável "Session"
Session("Visitas") = Contagem
%>
