<%
Function getDate(lang)
dim ugedag,dagnavn,dag,maaned,aar
ugedag = weekday(date())
if lang="dk" then
select case ugedag
case 1: dagnavn = "Søn."
case 2: dagnavn = "Man."
case 3: dagnavn = "Tir."
case 4: dagnavn = "Ons."
case 5: dagnavn = "Tor."
case 6: dagnavn = "Fre."
case 7: dagnavn = "Lør."
end select
else
select case ugedag
case 1: dagnavn = "Sun."
case 2: dagnavn = "Mon."
case 3: dagnavn = "Tue."
case 4: dagnavn = "Wed."
case 5: dagnavn = "Thu."
case 6: dagnavn = "Fri."
case 7: dagnavn = "Sat."
end select
end if
dag = day(date())
maaned = month(date())
aar = year(date())
if len(dag) = 1 then
dag = "0" & dag
end if
if len(maaned)=1 then
maaned = "0" & maaned
end if
getDate = dagnavn & " " & dag & "-" & maaned & "-" & aar
end function
%>