|
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
CounterDatei = Server.MapPath("34050.txt")
if FSO.FileExists(CounterDatei) then
Set LeseDatei = FSO.OpenTextFile(CounterDatei, 1, true)
CounterStand = LeseDatei.ReadAll
LeseDatei.close
end if
CounterStand = CounterStand + 1
Set SchreibDatei = FSO.OpenTextFile(CounterDatei, 2, true)
SchreibDatei.Write CounterStand
SchreibDatei.close
Response.Write CounterStand
%>
|