|
Arctic Midnight Orienteering 2013 |
<%
Dim UgeDag
Dim Dag
UgeDag = Weekday(date, 2)
If UgeDag = 1 Then
Dag = "Monday"
ElseIf UgeDag = 2 Then
Dag = "Tuesday"
ElseIf UgeDag = 3 Then
Dag = "Wednesday"
ElseIf UgeDag = 4 Then
Dag = "Thursday"
ElseIf UgeDag = 5 Then
Dag = "Friday"
ElseIf UgeDag = 6 Then
Dag = "Saturday"
ElseIf UgeDag = 7 Then
Dag = "Sunday"
End If
Dim DagNummer
DagNummer = Day(date)
Dim MaanedNummer
Dim Maaned
MaanedNummer = Month(now)
If MaanedNummer = 1 Then
Maaned = "january"
ElseIf MaanedNummer = 2 Then
Maaned = "february"
ElseIf MaanedNummer = 3 Then
Maaned = "marts"
ElseIf MaanedNummer = 4 Then
Maaned = "april"
ElseIf MaanedNummer = 5 Then
Maaned = "may"
ElseIf MaanedNummer = 6 Then
Maaned = "june"
ElseIf MaanedNummer = 7 Then
Maaned = "july"
ElseIf MaanedNummer = 8 Then
Maaned = "august"
ElseIf MaanedNummer = 9 Then
Maaned = "september"
ElseIf MaanedNummer = 10 Then
Maaned = "october"
ElseIf MaanedNummer = 11 Then
Maaned = "november"
ElseIf MaanedNummer = 12 Then
Maaned = "december"
End If
Dim Aar
Aar = Year(now)
Response.Write Dag & " " & DagNummer & ". " & Maaned & " " & Aar
%> |