<% 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 & "-") %>

 

 

Siegfried Graf

 

 

 

 

 
 

Wenn Sie unseren regelmäßigen Newsletter erhalten möchten, dann senden Sie uns eine Email mit dem Betreff "NEWSLETTER" an UNS!