<% Function qryCalendarAll() Dim Rs Dim strQuery strQuery = "SELECT * " & _ "FROM Calendar " & _ "WHERE flagDisplay = True " & _ " ORDER BY calendarDate DESC" Set Rs = GetRecordset("", strQuery) Set qryCalendarAll = Rs End Function %> <% Dim Rs Set Rs = qryCalendarAll() if Rs.recordcount then Dim calendarID, rsDate, currMonth, currYear, flagDisplay do until Rs.eof calendarID = Rs("calendarID") rsDate = FormatDateTime( Rs("calendarDate"), 0 ) currMonth = DatePart("m", rsDate) currYear = DatePart("yyyy", rsDate) If Rs("flagDisplay") = True Then flagDisplay = "yes" Else flagDisplay = "no" End If response.write("" & _ currMonth & "/" & currYear & "
" & vbCrLf ) %> <% Rs.MoveNext loop %> <% else %> no production at this time
<% end if %>