Visa alla dagar i en månad

det borde väl bara vara att använda:

weekday(date, [firstdayofweek])

och om det är 6 så blir den blå, 7 så blir den röd.
men hur man spaltar upp en månads dagar vet jag inte så här på rak arm

Inte jag heller

Nej, allvarligt talat så borde det inte vara så svårt...

jag hittade den här.. http://cgi.webforum.nu/wf/Forum11/HTML/002080.html#5

det kanske är något som man kan använda

Så här skulle jag skriva..

<%
Dim d, firstDayThisMonth, firstDayNextMonth, daysInMonth
d = Now
firstDayThisMonth = Year(d) & "-" & Month(d) & "-01"
firstDayNextMonth = Year(d) & "-" & Month(DateAdd("m", 1, d)) & "-01"
daysInMonth = DateDiff("d", firstDayThisMonth, firstDayNextMonth)

Response.Write daysInMonth
%>

..eller om man vill komprimera det lite..

<%
Response.Write DateDiff("d", Year(Now) & "-" & Month(Now) & "-01", Year(Now) & "-" & Month(DateAdd("m", 1, Now)) & "-01")
%>

Komplett..

<%
Dim d, firstDayThisMonth, firstDayNextMonth, daysInMonth
d = Now
firstDayThisMonth = Year(d) & "-" & Month(d) & "-01"
firstDayNextMonth = Year(d) & "-" & Month(DateAdd("m", 1, d)) & "-01"
daysInMonth = DateDiff("d", firstDayThisMonth, firstDayNextMonth)

Dim i, dayInWeek, cssClass
For i = 1 To daysInMonth
	dayInWeek = WeekDay(Year(d) & "-" & Month(d) & "-" & i, 2)
	cssClass = "other"
	Select Case dayInWeek
	Case 6
		cssClass = "saturday"
	Case 7
		cssClass = "sunday"
	End Select
	Response.Write "<span class=""" & cssClass & """>" & dayInWeek & "</span> "
Next 'i
%>

Går kanske att skriva lite smidigare på vissa ställen, men vill du använda det så får du göra det själv.

Redigering: Case istället för If.

Nu kanske jag inte hade ett så bra exempel, men den skriver:

1234567 1234567 1234567 1234567

Jag menade att den skulle visa:

1 2 3 4 5 6 7 8 9 10 11 12 13 osv.

Någon som fattar?

Skall dock passa på att tacka ERIK & ISAAQ

TACK

en liten modifikation:

<%
Dim d, firstDayThisMonth, firstDayNextMonth, daysInMonth
d = Now
firstDayThisMonth = Year(d) & "-" & Month(d) & "-01"
firstDayNextMonth = Year(d) & "-" & Month(DateAdd("m", 1, d)) & "-01"
daysInMonth = DateDiff("d", firstDayThisMonth, firstDayNextMonth)

Dim i, dayInWeek, cssClass
For i = 1 To daysInMonth
	dayInWeek = WeekDay(Year(d) & "-" & Month(d) & "-" & i, 2)
	cssClass = "other"
	Select Case dayInWeek
	Case 6
		cssClass = "saturday"
	Case 7
		cssClass = "sunday"
	End Select
	Response.Write "<span class=""" & cssClass & """>" & i & "</span> "
Next 'i
%>

TACK!