Dato af forskellige arter

Altså bare sådan i en lang opremsning...?


dim dt
dim md
dt = "2005-01-01"
md = -1

do while year(dt) = 2005
  if md <> month(dt) then
    md = month(dt)
    response.write MonthName(md) & "<br>"
  end if

  response.write day(dt) & ".<br>"

  ' næste dag
  dt = DateAdd("d", 1, dt)
loop

lukker

Betyder det at du ikke kunne bruge det jeg havde lavet...???

Jeg synes ellers det levede op til specifikationerne...