<%
'FenixWeb Contador. 3.1.0
' Declaração de variáveis
Dim ObjArquivoContador, ReadArquivoContador, WriteArquivoContador
Dim ArquivoContador
Dim AspMaxCounter
Set ObjArquivoContador = Server.CreateObject("Scripting.FileSystemObject")
ArquivoContador = Server.MapPath ("visitantes.txt")
Set ReadArquivoContador= ObjArquivoContador.OpenTextFile (ArquivoContador, 1, True)
If Not ReadArquivoContador.AtEndOfStream Then
AspMaxCounter = Trim(ReadArquivoContador.ReadLine)
If AspMaxCounter = "" Then AspMaxCounter = 0
Else
AspMaxCounter = 0
End If
ReadArquivoContador.Close
Set ReadArquivoContador = Nothing
AspMaxCounter = AspMaxCounter + 1
Set WriteArquivoContador= ObjArquivoContador.CreateTextFile (ArquivoContador, True)
WriteArquivoContador.WriteLine(AspMaxCounter)
WriteArquivoContador.Close
Set WriteArquivoContador = Nothing
Set ObjArquivoContador = Nothing
%>
Você é o visitante nº
Você é o Visitante <% =AspMaxCounter %>