You are visitor number <% Dim fso, ts, s Const ForReading = 1 Const ForWriting = 2 Const countFile = "\home\e2management\www\glassworks\counter\count.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(countFile, ForReading) s = ts.ReadLine s = s + 1 for i = 1 to Len(s) %>" width="15" height="20"><% next ts.Close Set ts = fso.OpenTextFile(CountFile, ForWriting, True) ts.Write(s) ts.Close Set ts = Nothing Set fso = Nothing %> Vous êtes visiteur numéro

Copyright ©2000, Glass Works