<%@language=VBScript%>
<% ' Compteur ASP de visites/session
Set FSO=CreateObject("Scripting.FileSystemObject")
fichier=Server.MapPath("/data") & "\compteur.txt"
' si c'est le premier hit de la session
if session("visite")="" then
' marque la session
session("visite")="ok"
' Incrémente le compteur (crée le fichier si besoin)
set inF = FSO.openTextFile(fichier,8,true)
inF.write(".")
inF.close
end if
' Lecture de la taille du fichier
cpt = FSO.GetFile(fichier).size
%>
www.A1experts.com / Expert-conseil
