<% Function qryCalendarByID( calendarID ) Dim Rs Dim strQuery If isnumeric(calendarID) Then strQuery = "SELECT * " & _ "FROM Calendar " strQuery = strQuery & " WHERE flagDisplay = True AND calendarID = " & calendarID & " " Else strQuery = "SELECT Top 1 * " & _ "FROM Calendar WHERE flagDisplay = True " End If strQuery = strQuery & "ORDER BY calendarDate DESC " set Rs = GetRecordset("", strQuery) Set qryCalendarByID = Rs End Function %> <% calendarID = Trim(Request.QueryString("ID")) Set Rs = qryCalendarByID( calendarID ) if Rs.recordcount then Dim content do until Rs.eof calendarID = Rs("calendarID") rsDate = FormatDateTime( Rs("calendarDate"), 0 ) content = Rs("content") currMonth = MonthName(DatePart("m", rsDate)) currYear = DatePart("yyyy", rsDate) If Rs("flagDisplay") = True Then flagDisplay = "yes" Else flagDisplay = "no" End If %>

<% = response.write(currMonth & " " & currYear & vbCrLf & vbCrLf ) %>

<% = response.write(content & vbCrLf ) %>

<% Rs.MoveNext loop %> <% else %> no production at this time
<% end if %>