<% @ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
<%JourChiffre=day(now)
Mois=Month(now)
NbJour=Weekday(now)
Annee=Year(now)
Select Case Mois
Case 1
MoisTexte = "Janvier"
Case 2
MoisTexte = "Fevrier"
Case 3
MoisTexte = "Mars"
Case 4
MoisTexte = "Avril"
Case 5
MoisTexte = "Mai"
Case 6
MoisTexte = "Juin"
Case 7
MoisTexte = "Juillet"
Case 8
MoisTexte = "Aout"
Case 9
MoisTexte = "Septembre"
Case 10
MoisTexte = "Octobre"
Case 11
MoisTexte = "Novembre"
Case 12
MoisTexte = "Decembre"
End Select
Select Case NbJour
Case 1
JourTexte = "Dimanche"
Case 2
JourTexte = "Lundi"
Case 3
JourTexte = "Mardi"
Case 4
JourTexte = "Mercredi"
Case 5
JourTexte = "Jeudi"
Case 6
JourTexte = "Vendredi"
Case 7
JourTexte = "Samedi"
End Select
JourChiffre2=day(now)
Mois2=Month(now)
Annee2=Year(now)
if Mois2< 10 then
Mois2="0"&mois2
else Mois2=Mois2
end if
if JourChiffre2< 10 then
JourChiffre2="0"&JourChiffre2
else JourChiffre2=JourChiffre2
end if
toto=JourChiffre2&"/"&Mois2&"/"&Annee2
%>
Pour toute information ou réservation , veuillez nous adresser un mail à :
