Dato bestemt grafik

Du kan definere datoerne og så lave det i stil med:

dato1 = CDate("01-01-2003")
dato2 = CDate("31-02-2003")
dato3 = CDate("03-07-2003")
dato4 = CDate("30-08-2003")
dato5 = CDate("30-10-2003")
dato6 = CDate("25-11-2003")
dato7 = CDate("31-12-2003")

dato = CDate(date())

if dato1 < dato AND dato2 > dato then
  'Vis billede 1
elseif dato2 < dato AND dato3 > dato then
  'Vis billede 2
elseif dato3 < dato AND dato4 > dato then
  'Vis billede 3
elseif dato4 < dato AND dato5 > dato then
  'Vis billede 4
elseif dato5 < dato AND dato6 > dato then
  'Vis billede 5
elseif dato6 < dato AND dato7 > dato then
  'Vis billede 6
end if

Det ser ud til at du skal være min faste redningsmand her Eagleeye :-)