3. September

347 Kommentare and still counting!, z.T. ohne Rechtschreibung – Das Internet ist nicht für jeden!

22. November

<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
strLogfilePath = "D:\Web\D\B\36\~db\"
strLogfile = "count.txt"
strText = "init"
Dim objFso, objLogfile
set objFso = CreateObject("Scripting.FileSystemObject")
set objLogfile = objFso.OpenTextFile(strLogfilePath & strLogfile, ForReading)
intCount = Int(objLogfile.ReadLine)
objLogfile.Close
set objLogfile = Nothing
set objFso = Nothing
Response.Write("-Besucherzähler: " & intCount & "-")
%>

Macromdia at its best