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