<%
Dim UgeDag
Dim Dag
UgeDag = Weekday(date, 2)
If UgeDag = 1 Then
Dag = "Mandag"
ElseIf UgeDag = 2 Then
Dag = "Tirsdag"
ElseIf UgeDag = 3 Then
Dag = "Onsdag"
ElseIf UgeDag = 4 Then
Dag = "Torsdag"
ElseIf UgeDag = 5 Then
Dag = "Fredag"
ElseIf UgeDag = 6 Then
Dag = "Lørdag"
ElseIf UgeDag = 7 Then
Dag = "Søndag"
End If
Dim DagNummer
DagNummer = Day(date)
Dim MaanedNummer
Dim Maaned
MaanedNummer = Month(now)
If MaanedNummer = 1 Then
Maaned = "januar"
ElseIf MaanedNummer = 2 Then
Maaned = "februar"
ElseIf MaanedNummer = 3 Then
Maaned = "marts"
ElseIf MaanedNummer = 4 Then
Maaned = "april"
ElseIf MaanedNummer = 5 Then
Maaned = "maj"
ElseIf MaanedNummer = 6 Then
Maaned = "juni"
ElseIf MaanedNummer = 7 Then
Maaned = "juli"
ElseIf MaanedNummer = 8 Then
Maaned = "august"
ElseIf MaanedNummer = 9 Then
Maaned = "september"
ElseIf MaanedNummer = 10 Then
Maaned = "oktober"
ElseIf MaanedNummer = 11 Then
Maaned = "november"
ElseIf MaanedNummer = 12 Then
Maaned = "december"
End If
Dim Aar
Aar = Year(now)
Response.Write Dag & " d. " & DagNummer & ". " & Maaned & " " & Aar
%>
