<%

Dim todayDate, todayDay, todayMonth

'fyller den första arrayen med veckans alla dagar, den andra arrayen med årets månader
dayArray = Array(" ", "Söndag", "Måndag", "Tisdag", "Onsdag", "Torsdag", "Fredag", "Lördag")
monthArray = Array(" ", "januari", "februari", "mars", "april", "maj", "juni", "juli", "augusti", "september", "oktober", "november", "december")

'tar ut värdena för dagens datum, dagens veckodag, och dagens månad
todayDate = Date()
todayDay = Weekday(todayDate)
todayMonth = Month(todayDate)

'från strängen med innehållet yyyy-mm-dd tas i den första ut dd och i den andra yyyy
todayDayDate = Mid(todayDate, 9, Len(todayDate))
todayYear = Left(todayDate, 4)

Response.Write dayArray(todayDay) & " den " & todayDayDate & " " & (monthArray(todayMonth)) & " " & todayYear

%>