<% 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 = 1221 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) %>

Um auf die Seiten der Stadtschulpflegschaft Lüdenscheid zu gelangen klicken sie bitte auf das Logo oder hier.

Diese Seiten wurden optimiert für
Internet Explorer 6.0 und 1024 x 768 Pixel Bildschirmauflösung
Stand: 10.03.2009

Gast auf unserer Seite. (Seit Anfang 2006)

Sie sind der