<% Language=VBScript %> <% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") countsFile = Server.MapPath ("/visitas") & "\counter.txt" Set InStream= FileObject.OpenTextFile (countsFile, 1, false ) Oldcounts = Trim(InStream.ReadLine) Newcounts = Oldcounts + 1 Set OutStream= FileObject.CreateTextFile (countsFile, True) OutStream.WriteLine(Newcounts) %> Visitas al sitio: <%=Newcounts%>