<% set file = Server.CreateObject("Scripting.FileSystemObject") path = Server.MapPath("hitcount.txt") set infile = file.OpenTextFile( path ) visitor = infile.ReadLine d = infile.ReadLine fundo = infile.ReadLine visitor = visitor + 1 infile.close set outfile = file.CreateTextFile( path, True ) outfile.WriteLine( visitor ) outfile.WriteLine( d ) outfile.WriteLine( fundo ) outfile.Close %>