Loopa datum

Hej!

Jag undrar hur man på lättaste sättet kan loopa datum dvs kunna loopa fram 30 dagar t ex.

<% For x = FixDate(Date) To FixDate(Date) + 30 %>
<%=x%>
<br>
<% Next %>

Har försökt med detta men det går tydligen inte och jag får felmeddelandet:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "Måndag 26 april"]'

Håller på med en enkel kalender där jag senare ska koppla en databas till.

Någon som vet hur man enklast kan loopa ett datum?
Blir glad för tips och vad för fel jag gör.

/Annette

For dtm = Date() To DateAdd("d", 30, Date())
  Response.Write(dtm & "<br>")
Next

For x = Date() To DateAdd("d", date(), +30)
  Response.Write(x &"<br>")
Next

Dateadd är överflödig.

for x = date() to date() + 30

Tack för alla snabba svar!
Nu jag får i alla fall inte det att fungera som jag önskar eftersom jag har en funktion som gör om 2004-04-26 till Måndag 26 april.
Tar jag bort funktionen FixDate fungerar det bra men när jag kopplar den till Date() får jag felmeddelandet.
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "Måndag 26 april"]'
Går det inte att loopa en textsträng av Date() ?

/Annette

Vad är FixDate() för funktion då?

Ta bort FixDate() ur For-satsen, och använd det bara i utskriften.

for x = date() to date() + 30
      Response.Write FixDate(x) & "<br>"
next

Tack @nders!
FixDate gör om datumet från 2004-04-27 till Tisdag 27 april.
Nu fungerara det.