<%
function FrenchDate
Dim FrenchMonth, FrenchDay
Select Case Weekday(Weekday(Date()))
Case 1
FrenchDay = "Dimanche"
Case 2
FrenchDay = "Lundi"
Case 3
FrenchDay = "Mardi"
Case 4
FrenchDay = "Mercredi"
Case 5
FrenchDay = "Jeudi"
Case 6
FrenchDay = "Vendredi"
Case 7
FrenchDay = "Samedi"
End Select
Select Case Month(date())
Case 1
FrenchMonth = "janvier"
Case 2
FrenchMonth = "février"
Case 3
FrenchMonth = "mars"
Case 4
FrenchMonth = "avril"
Case 5
FrenchMonth = "mai"
Case 6
FrenchMonth = "juin"
Case 7
FrenchMonth = "juillet"
Case 8
FrenchMonth = "août"
Case 9
FrenchMonth = "sept."
Case 10
FrenchMonth = "octobre"
Case 11
FrenchMonth = "novembre"
Case 12
FrenchMonth = "décembre"
End Select
FrenchDate = FrenchDay & " " & Day(Date()) & " " & FrenchMonth & " " & Year(Date())
End function
%>
