% 'Designer: Todd Cutler (317-839-2114) 'Copyright 2002 '2.0 08/01/02 Search version of calendar with multi-library features '2.1 09/03/02 Change TABLE setting for List view to NOT be centered. ' Fixed problem with calendar not displaying correctly in maintenance modes. ' Moved EVENTTYPESEARCHENABLE = 1 & MULTILIBENABLE = 1 to defines.inc '2.2 01/08/02 Fixed problem with showing the wrong year '2.3 01/30/03 Fixed issue with Netscape 6.x and up '2.4 02/20/03 Added eventtitle in order by statement '2.5 04/21/03 Added support for no personal schedule link from="events" Response.Buffer = True Response.CacheControl="no-cache" Dim WRITESTYLES WRITESTYLES = "1" %> <% Sub Display_Date(DispType) If DispType = "list" Then Response.Write "
| < | <% DisplayMonthYearOptions dtCurViewMonth %> | > |
| <%=sWeekDayAbr(iDay-1)%> | <%Next %>W | |
|---|---|---|
| " '---- Write day of month If Not tc.EOF Then tempDay = Day(tc("EventDate")) If Day(dtCurViewDay) = Day(tc("EventDate")) Then Response.Write "" & Day(dtCurViewDay) & "" tempDay = Day(tc("EventDate")) Do until x=1 tc.MoveNext If NOT tc.EOF Then If Day(tc("EventDate")) <> tempDay Then Exit Do End If Else Exit Do End If Loop Else Response.Write Day(dtCurViewDay) End If Else Response.Write Day(dtCurViewDay) End If Else Response.Write " | " End If Response.Write " | " & vbCrLf weekNum = DatePart("ww", dtCurViewDay) dtCurViewDay = DateAdd("d", 1, dtCurViewDay) Next Response.Write ""
sClass = "class='tinycal_day'"
If weekFlag=1 Then
Response.Write weekNum & " " End If Response.Write " | " & vbCrLf
Response.Write "
E*vents is not enabled.
Contact your supplier to have it activated.