<%
Dim strReadLine, aryConditionsSkis, I, strTitreField
strReadLine = InitializedFile(strFileNameCSV, 8)
IF strReadLine <> "" THEN
aryConditionsSkis = split(strReadLine, ";")
intNbrField = uBound(aryConditionsSkis)
FOR I=0 TO intNbrField - 1
SELECT CASE I
CASE 0:
strTitreField = "Date : "
CASE 1:
strTitreField = "Nbr piste ouvert: "
CASE 2:
strTitreField = "Condition de ski: "
CASE 3:
strTitreField = "NEige tombé: "
CASE 4:
strTitreField = "Cire jour: "
END SELECT
NEXT
END IF
FUNCTION InitializedFile(sFileName, sTypeWrite)
Dim FSO, dir, Fnm, inF, sOut, iLigne
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath(".")
Fnm = dir & sFileName
' Vérifier si le fichier existe
if FSO.FileExists(Fnm) then
set inF = FSO.OpenTextFile(Fnm,1,false)
While not inF.atEndOfStream
sOut = inF.readLine & "
"
Wend
inF.close
END IF
InitializedFile = sOut
END FUNCTION
FUNCTION ecrire_date(str_mois)
Dim ary_mois
ary_mois = Array("","janvier", "février","mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
mois = month(str_mois)
jour = day(str_mois)
annee= year(str_mois)
heure = hour(str_mois)
minut = minute(str_mois)
if(minut < 10) then
minut = "0" & minut
END IF
reponse = " " &jour & " " & ary_mois(mois) & " " & annee & " à " & heure & ":" & minut & "h"
ecrire_date = reponse
END FUNCTION
%>
Ski de fond
Hiver 2009-2010
Ski de
soirée
Jeudi et Vendredi jusqu'à 20h00 Heures d'ouverture du site Lundi au mercredi: 9h00 à 16h30 Jeudi et vendredi: 9h00 à 20h00 Samedi et dimanche: 9h00 à 17h30
|
Heures d'ouverture de la Location Lundi au dimanche: 9h00 à 16h30
Dernier accès au site
Samedi et dimanche: 16h30
|
|
|
 |
Venez profiter de l'hiver !
En plus du ski de fond (traditionnel
ou patin),
la glissade,
les sentiers de raquette
et la patinoire
seront en fonction.
Pour des informations sur les conditions des
pistes, vous adressez
au (450)452-4736 poste 1
|
||||||||||||||||||||
