Udskrive alle dage i måneden

Jeg vil tro dette kan gøre det:

dato = cdate(year(now) & "-" & month(now) & "-01")
aktuelmaaned = month(now)

do while month(dato) = aktuelmaaned
  response.write year(dato) & "-" & month(dato) & "-" & day(dato)
  dato = dateadd("d",1,dato)
loop

Hvis måneder og dage som er encifrede også skal foranstilles med nul kan du benytte flg. kode:

function lz(n)
  lz = right("00" & n, 2)
end function

dato = cdate(year(now) & "-" & month(now) & "-01")
aktuelmaaned = month(now)

do while month(dato) = aktuelmaaned
  response.write year(dato) & "-" & lz(month(dato)) & "-" & lz(day(dato))
  response.Write "<br>"
  dato = dateadd("d",1,dato)
loop

Perfekt, smid svar.

Velbekomme :)

Takker ;)

Tak for point :)