<%
application.lock
if application("cpt-dirigeants")="" then
set fs=createobject("scripting.filesystemobject")
set a=fs.opentextfile("c:\inetpub\wwwroot\lamory\compteur\dirigeants.txt")
ct = Clng(a.readline)
application("cpt-dirigeants")=ct
a.close
set fs=nothing
end if
application("cpt-dirigeants")=application("cpt-dirigeants")+1
set fs=createobject("scripting.filesystemobject")
set a =fs.createtextfile("c:\inetpub\wwwroot\lamory\compteur\dirigeants.txt",true)
a.writeline(application("cpt-dirigeants"))
a.close
set fs=nothing
application.unlock
response.write("
Cette page a déja été vue " & application("cpt-dirigeants") & " fois")
%>
|