<% @ LANGUAGE="VBSCRIPT" %><% Response.Buffer = True %><%JourChiffre=day(now)Mois=Month(now)NbJour=Weekday(now)Annee=Year(now) Select Case MoisCase 1MoisTexte = "Janvier"Case 2MoisTexte = "Février"Case 3MoisTexte = "Mars"Case 4MoisTexte = "Avril"Case 5MoisTexte = "Mai"Case 6MoisTexte = "Juin"Case 7MoisTexte = "Juillet"Case 8MoisTexte = "Août"Case 9MoisTexte = "Septembre"Case 10MoisTexte = "Octobre"Case 11MoisTexte = "Novembre"Case 12MoisTexte = "Décembre"End Select Select Case NbJourCase 1JourTexte = "Dimanche"Case 2JourTexte = "Lundi"Case 3JourTexte = "Mardi"Case 4JourTexte = "Mercredi"Case 5JourTexte = "Jeudi"Case 6JourTexte = "Vendredi"Case 7JourTexte = "Samedi"End Select %><HTML><BODY><%=JourTexte%> <%=JourChiffre%> <%=MoisTexte%> <%=Annee%> </BODY></HTML>