Hey ik heb hier dit script, om een counter op de website te laten zien... maar het probleem is dat ie niet verder telt
hij blijft bij 1 staan
...
<%
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("asp_count.txt"))
counter = clng(act.readline)
counter = counter + 1
act.close
Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)
act.WriteLine(counter)
act.Close
Response.Write counter
%>
<%
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("asp_count.txt"))
counter = clng(act.readline)
counter = counter + 1
act.close
Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)
act.WriteLine(counter)
act.Close
Response.Write counter
%>