Hjælp til mindre dato problem

Jeg har følgende som jeg ikke kan få til at virke :

Date0 = Day(Date)&"-"&Month(Date)&"-"&Year(Date)
Date1 = "1-6-"&Year(Date)
Date2 = "1-12-"&Year(Date)
Date3 = "1-12-"&Year(Date)
Date4 = "31-5-"&Year(Date)+1
If Date0 >= Date1 And Date0 <= Date2 Then
    Response.Write("1-"&Right(Year(Date),2)&"")
ElseIf Date0 >= Date3 And Date0 <= Date4 Then
    Response.Write("2-"&Right(Year(Date),2)&"")
End If

Den viser ikke noget når jeg køre scriptet nogen der kan hjælpe med det