<%
'CONTADOR DE VISITAS QUE INSERE O NÚMERO DE VISITAS NO ARQUIVO Visitantes.txt
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
strFichero = Server.MapPath("Visitantes.txt")
Set InStream = FileObject.OpenTextFile (strFichero, 1, false )
Conta = Trim(InStream.ReadLine)
Conta = Conta + 1
Set OutStream = FileObject.CreateTextFile (strFichero, True)
OutStream.WriteLine(Conta)
InStream.close
Set InStream = Nothing
OutStream.Close
Set OutStream = Nothing
Set FileObject = Nothing
%>
