Dato + 1

Hej jeg har lavet dette stykke kode, som viser dags dato. Men jeg vil gerne have den til at vise en dag frem altså tirsdag i stedet for i dag mandag.

Kan nogen hjælpe ?

<%

Dim UgeDag

Dim Dag

UgeDag = Weekday(date, 2)

If UgeDag = 1 Then

    Dag = "Mandag d."

ElseIf UgeDag = 2 Then

    Dag = "Tirsdag d."

ElseIf UgeDag = 3 Then

    Dag = "Onsdag d."

ElseIf UgeDag = 4 Then

    Dag = "Torsdag d."

ElseIf UgeDag = 5 Then

    Dag = "Fredag d."

ElseIf UgeDag = 6 Then

    Dag = "Lørdag d."

ElseIf UgeDag = 7 Then

    Dag = "Søndag d."

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 & " " & DagNummer & ". " & Maaned & " " & Aar

%>