<%@LANGUAGE="VBSCRIPT"%> <% ' Compteur ASP de hits ' Création de l'objet permettant de manipuler les fichiers Set FSO=CreateObject("Scripting.FileSystemObject") ' Le dossier "data" doit être déprotégé en écriture ! ' (voir sinon avec l'admin de l'hébergeur) fichier=Server.MapPath("/data") & "\compteur.txt" ' Lecture du fichier s'il existe et incrémente cpt = 1 if FSO.FileExists(fichier) then set inF = FSO.OpenTextFile(fichier,1,false) cpt = CLNG(inF.readLine) + 1 ' jusqu'à 2 milliards inF.close end if ' Sauvegarde du compteur set inF = FSO.createTextFile(fichier) inF.writeLine(cpt) inF.close %> ImmoPacte - Plan du site
accueil

Accueil -> plan du site
Vous souhaitez acquérir : Vous souhaitez louer :

Une maison
Un appartement
Un terrain
Un commerce
Un local industriel

Une maison
Un appartement
Un terrain
Un commerce
Un local industriel
Nos conseils Nos services

Comment acheter dans les meilleures conditions
Comment vendre vite et bien
Choisir une bonne assurance

Passer une annonce
A propos d'Immopacte Questions Réponses
Qui sommes nous ?
Mentions légales
Vos questions et nos réponses
contact

© 2002 Conception et réalisation : Agence Webatoll