hola lo qeu puedes hacer es sacar el ultimo dia de cada mes o del mes actual, con esto haces un ciclo que te recorra desde 1 hasta el ultimo dia de ese mes, luego te saldran unos numeros que corresponden a cada dia, con este numero le sacas el weekday y te saldran todos los dias de ese mes..
asi:
Código:
<%
' funcion para sacar el ultimo dia del mes.
Function ultimodiadelmes(mes, ano)
DIm messig
messig = DateAdd("m", 1, DateSerial(ano, mes, "01"))
ultimodiadelmes = Day(DateAdd("d", -1, messig))
End Function
dim d, mes, ano
mes= month(now) ' mes actual
ano = year(now) ' ano actual
' ciclo que nos recorre los dias del mes determinado
for d = 1 to ultimodiadelmes(mes, ano)
Response.write WeekDayName(WeekDay(d)) ' imprime el nombre del dia
Response.write "<br>"
next
%>
espero te sirva, si deseas tambien tengo un calendario muy bueno, luego trato de resumirlo para postearlo aqui, esta en italiano pero es muy facil de personalizar.suerte.