Vypsání datumu (2)

Datum (2)

<% ' Tvorba celeho data
Dim DayStr(7)
DayStr(1) = "Nedele"
DayStr(2) = "Pondelí"
DayStr(3) = "Úterý"
DayStr(4) = "Streda"
DayStr(5) = "Ctvrtek"
DayStr(6) = "Pátek"
DayStr(7) = "Sobota"
DnesniDatum = DayStr(WeekDay(Date())) & " " & Day(Date()) & ". " & Month(Date()) & ". " & Year(Date())
%>