Nedtælling virker ikke

Kan nogen fortælle mig hvorfor denne nedtælling ikke virker? Den skriver:

2 mdr. -1 dage 14 timer og 26 min.

Hvis i kke kan få det til at virke har i så en kode som gør?

Koden se sådan ud:

<!--Nedtællingscriptet starter her-->
<%

Function CountDown(dTargetDate, dTargetTime, sEventName)
    DIM D1, D2, T1, T2, Years, Months, Days, Hours, Minutes, Temp, since
   
    D2 = DateValue(dTargetDate)
    T2 = TimeValue(dTargetTime)

    If (D2 < Date) Then
        since = TRUE
        D1 = DateValue(dTargetDate)
        D2 = Date
        T1 = TimeValue(dTargetTime)
        T2 = Time
    Else
        since = FALSE
        D1 = Date
        T1 = Time
    End If

    Years = Year(D2) - Year(D1)
    Months = Month(D2) - Month(D1)
    Days = Day(D2) - Day(D1)

    Hours = Hour(T2) - Hour(T1)
    Minutes = Minute(T2) - Minute(T1)

    If (Months < 0) Then
        Months = Months + 12
        Years = Years - 1
    End If

    If (Days < 0) Then
        Days = Days + DaysIn(Month(D1))
        Months = Months - 1
    End If

    If (Hours < 0) Then
        Hours = Hours + 24
        Days = Days - 1
    End If

    If (Minutes < 0) Then
        Minutes = Minutes + 60
        Hours = Hours - 1
    End If

    Temp = \"\"

    If (Years <> 0) Then
        Temp = Temp & Years
        If (Years = 1) Then
            Temp = Temp & \" år \"
        Else
            Temp = Temp & \" år \"
        End If
    End If
    If (Months <> 0) Then
        Temp = Temp & Months
        If (Months = 1) Then
            Temp = Temp & \" mdr. \"
        Else
            Temp = Temp & \" mdr. \"
        End If
    End If
    If (Days <> 0) Then
        Temp = Temp & Days
        If (Days = 1) Then
            Temp = Temp & \" dag \"
        Else
            Temp = Temp & \" dage \"
        End If
    End If
    If (Hours <> 0) Then
        Temp = Temp & Hours
        If (Hours = 1) Then
            Temp = Temp & \" time \"
        Else
            Temp = Temp & \" timer \"
        End If
    End If
    If (Minutes <> 0) Then
        If (Temp <> \"\") Then Temp = Temp & \" og \"
        Temp = Temp & Minutes
        If (Minutes = 1) Then
            Temp = Temp & \" min. \"
        Else
            Temp = Temp & \" min. \"
        End If
    End If
    If (Since) Then
        Temp = \"Konkurencen har været igang i \" & temp & \" siden \" & sEventName
    Else
        Temp = \"Så er der kun <font color=\"\"#ff0000\"\"> <strong> \" & temp & \" </strong> </font> til \" & sEventName
    End If

    Countdown = Temp
End Function

\' Returns the number of days in a given month
Function DaysIn(MonthNum)
    Select Case MonthNum
        Case 1  DaysIn = 31 \'jan
        Case 2  DaysIn = 28 \'feb
        Case 3  DaysIn = 31 \'mar
        Case 4  DaysIn = 30 \'apr
        Case 5  DaysIn = 31 \'may
        Case 6  DaysIn = 30 \'jun
        Case 7  DaysIn = 31 \'jul
        Case 8  DaysIn = 31 \'aug
        Case 9  DaysIn = 30 \'sep
        Case 10 DaysIn = 31 \'oct
        Case 11 DaysIn = 30 \'nov
        Case 12 DaysIn = 31 \'dec
    End Select
End Function
%>

<%= CountDown(\"15/1/2002\", \"00:00:00\", \"konkurrencen starter!\") %>

<!--Nedtællingsscriptet slutter her-->

Fomse:-)