<%
varRowCount = 1
varTodayDate = day(now())
varTodayMonth = MonthName(month(date())
Response.Write "<h2>Report for " & varTodayMonth & "</h2>"
Do While varMonthCount <32 or <= 31
Response.Write "The days of " & varTodayMonth & " " & varRowCount
Response.Write ": are varTodayDate<br>"
varRowCount = varRowCount + 1
Loop
%>

<%
varRowCount = 1
varTodayDate = day(now())
varTodayMonth = MonthName(month(date())
Response.Write "<h2>Report for " & varTodayMonth & "</h2>"
Do While varMonthCount <32 or varMonthCount  <= 31
Response.Write "The days of " & varTodayMonth & " " & varRowCount
Response.Write ": are varTodayDate<br>"
varRowCount = varRowCount + 1
Loop
%>

<form>
<select size="1" name="Month">
<option value="January">Jan</option>
<option value="February">Feb</option>
<option value="March">Mar</option>
<option value="April">Apr</option>
<option value="May">May</option>
<option value="June">Jun</option>
</select>
<input type="submit" value="Choose Month">
</form>
<%
dim intDay  '// incremental number used in the loop
dim daysInMonth '// the number of days in each month
dim strMonth '// the selected month
 
intDay = 1 '// set the value to 1 to start
strMonth = request("month") '// set the month to the one selected in the form
 
If strMonth <> "" Then '// If a month has been selected display the results
 
 '// assign the number of days to each month
Select Case strMonth
Case "January", "March", "May", "July", "August", "October", "December"
 daysInMonth = 31
Case "February"
 daysInMonth = 28
Case Else
 daysInMonth = 30
End Select
 
'// Display the total number of days in the selected month
Response.Write "The days of " & strMonth & " are "
'// Then loop through the days in the month, starting at 1
Do While intDay <= daysInMonth
 Response.Write intDay & ", "
 intDay = intDay + 1
Loop 
 
Else '// there has been no month selected so....
' do nothing
End If 
%>