<% Dim dt5, dayName1 For dt5 = 1 To 7 dayName1 = WeekdayName(dt5, False, vbSunday) %> <% Next %> <% Dim dt7 For dt7 = 1 To 5 %> <% Dim dt6 For dt6 = 1 To 7 %> <% if dt6 Mod 2 = 0 Then %> <% else %> <% end if %> <% Next %> <% Next %>

<%=dayName1%>
<%=(7*(dt7-1)+dt6)%>	<%=(7*(dt7-1)+dt6)%>