<%
if Session("visitorcount") = "" then
dim fs
dim textdatei
Set DateiSystem = CreateObject("Scripting.FileSystemObject")
Set textdatei = DateiSystem.OpenTextFile(server.MapPath("counter.txt"))
visitorcount = CInt(textdatei.ReadLine)
Session("visitorcount") = visitorcount
visitorcount = visitorcount + 1
textdatei.close
Set textdatei = DateiSystem.CreateTextFile(server.MapPath("counter.txt"), True)
textdatei.WriteLine(visitorcount)
textdatei.Close
set textdatei = nothing
set Dateisystem = nothing
end if %>
Dancing Schlernkeller