% ' 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("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 %>
| <% Response.Write(cpt) %> |
|
Agenda 2010 |
|
Et pourquoi pas une visite du Musée durant les vacances? Surtout quand une sympathique animation attend toute famille … Faites le parcours avec notre mascotte T’If et vous verrez qu’il y a plus d’une richesse dans nos racines ! Livret-jeu, audioguide, dictaphone, boîtes surprises, gommettes, intrus... ; toute une panoplie didactique est mise à votre disposition afin de vous permettre de réaliser les multiples activités ludiques et "Ranimer le patrimoine qui vit en vous"!
Animation proposée durant les mois de juillet et août
Droit d’entrée (animation et audio guide compris) :
|
|
|
|
|
|
du 30 octobre au 7 novembre 2010
Et pourquoi pas une visite du Musée durant les vacances de Toussaint? Surtout quand une sympathique animation attend toute famille … Faites le parcours avec notre mascotte T’If et vous verrez qu’il y a plus d’une richesse dans nos racines !
Le parcours de visite est spécialement conçu pour engager, entre les seniors/adultes et les jeunes visiteurs (à partir de 5 ans), une découverte interactive de nos riches collections. Livret-jeu, audioguide, dictaphone, boîtes surprises … proposeront une quinzaine d’épreuves ludiques.
Prix d’entrée max. pour toute la famille (parents ou grands-parents et enfants : 6 €)
|
|
|
|
|