<% CurrentDay=Now CurrentDay=DatePart("d", currentday) CurrentWeekday=Weekday(Now) temp=CurrentDay mod 7 FirstWeekday=CurrentWeekday-temp If (FirstWeekday) >= 0 Then FirstWeekday=FirstWeekday+1 Else FirstWeekday=FirstWeekday+8 End If CurrentMonth=Month(Now) CurrentYear=Year(Now)+543 %> <% If CurrentMonth=12 Then CurrentMonth=1 CurrentYear=CurrentYear+1 Else CurrentMonth=CurrentMonth+1 End If LastDay=CDate("1"+"/"+CStr(CurrentMonth)+"/"+CStr(CurrentYear))-1 LastDay=DatePart("d", LastDay) DayCount=1 Do While DayCount<=LastDay Response.Write "" For i=1 To 7 If (i<>FirstWeekday) And (DayCount=1) Then Response.Write "" Else If DayCount<=LastDay Then If DayCount=CurrentDay Then Response.Write "" Else Response.Write "" End If DayCount=DayCount+1 End If End If Next Response.Write "" Loop Response.Write "

<%=MonthName(CurrentMonth)%>  <%=CurrentYear%>
S	M	T	W	T	F	S
	" & DayCount & "	" & DayCount & "

" %>