<% 'enregistrer les visiteurs du site set ObjFSO= server.CreateObject ("Scripting.FileSystemObject") MyChemin=server.MapPath ("/Compteur.txt") set Myfile=ObjFso.OpenTextFile (Mychemin, 1, true ) Myval=Myfile.ReadAll Myfile.close 'creer est ecrit les données set Myfile=ObjFso.CreateTextFile (Mychemin) Myfile.writeline Myval Myfile.write now &" ; "&Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") &" ; " &Request.ServerVariables("REMOTE_ADDR" )&" ; " Myfile.close '------------ %> Valenti location d'engins terrassement demolition

[Accueil] [Historique][le parc][Contact]