dato løkke - udskriv måned med ugedagens navn

Jeg kunne godt tænke mig at udskrive en kalender måned fra første dag til sidste dag.
01 torsdag dato
02 fredag dato
03 lørdag dato
...
...
28 onsdag dato

Mit problem er at jeg ikke ved hvordan jeg lave en løkke der lægger en dag til.

jeg nedestående for..next løkke skriver alle dage i februar, men hvordan får jeg den til at skrive det nye ugedag navn og den nye dato for dagen?
Jeg har prøvet, at tilføje denne linje i for..next løkken:
tDato=weekdayname(weekday(DateAdd("d", i,nyDato)))
med det gå slet ikke!

<%
session.LCID = 1030
'dags dato
tmpDate = date()
'tmpYear = dette år
tmpYear = year(date())
'tmpYear = denne måned
tmpMonth = month(date())
' måneds navn med stort første bogstav
tmpMonthName= UCase(left(monthname(month(tmpDate)),1)) & mid(monthname(month(tmpDate)),2)
' ugedag navn
iDagName = weekdayname(weekday(tmpDate))
'dageImd = antal dage i denne måned
dageImd = AntalDage(Month(tmpDate), Year(tmpDate))

for i = 1 to dageImd
response.Write("dag " & i & " Dagens navn " & iDagName & " dato " & tmpDate & "<br />")
next
%>