<%
datToday = Date() 'today's date
intThisYear = Year(datToday) 'the current year
intThisMonth = Month(datToday) 'the current month
intThisDay = Day(datToday) 'the current day
strMonthName = MonthName(intThisMonth) 'the name of the current month
strWeekDayName = WeekDayName(WeekDay(datToday), False, vbSunday) 'the name of the current day
If strWeekDayName = "Saturday" Then strWeekDayName2 = "Lørdag "
If strWeekDayName = "Sunday" Then strWeekDayName2 = "Søndag "
If strWeekDayName = "Monday" Then strWeekDayName2 = "Mandag "
If strWeekDayName = "Tuesday" Then strWeekDayName2 = "Tirsdag "
If strWeekDayName = "Wednesday" Then strWeekDayName2 = "Onsdag "
If strWeekDayName = "Thursday" Then strWeekDayName2 = "Torsdag "
If strWeekDayName = "Friday" Then strWeekDayName2 = "Fredag "
datTime = Time() 'current time
intThisHour = Hour(datTime) 'the current year
intThisMinute = Minute(datTime) 'the current month
intSecond = Second(datTime) 'the current day
strMonthName = MonthName(intThisMonth) 'the name of the current month
'strDayName = DayName(intThisDay)
%>
<%=strWeekDayName2 %>
<% if intThisDay<10 Then %>
0<% =intThisDay %>
<%Else%>
<% =intThisDay%>
<% End If%>
.
<% if intThisMonth<10 Then %>
0<% =intThisMonth %>
<%Else%>
<% =intTHisMonth %>
<% End If%>
.
<% =intThisYear%>
Funeral
Arrangements