v. der Osten-Fabeck

<% Dim fs, getCounterFile, makeCountTmpFile, CounterHits Set fs = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set getCounterFile= fs.OpenTextFile (CounterFile, 1, True) CounterHits = Trim(getCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 getCounterFile.Close Set getCounterFile = Nothing CounterHits = CounterHits + 1 Set makeCountTmpFile= fs.CreateTextFile (CounterFile, True) makeCountTmpFile.WriteLine(CounterHits) makeCountTmpFile.Close Set makeCountTmpFile = Nothing Set fs = Nothing response.write (CounterHits) %>