<% Sub modify_Event( dtDate, eventID ) dim selectedMonth(12) dim selectedDay(31) dim selectedYear(9999) selectedMonth(Month(dtDate)) = "selected" selectedDay(Day(dtDate)) = "selected" selectedYear(Year(dtDate)) = "selected" timedSelected = "checked" alldaySelected = "" DurationHour = 1 CalendarTime = Time() if eventID > 0 then Set CalendarTable = CreateObject("ADODB.Recordset") CalendarTable.Open "Select * FROM Appointments where Member='" & Member & "' and ID=" & eventID, "DSN=frucalendar;" If Not CalendarTable.EOF Then CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") CalendarTable.Close selectedMonth(Month(dtDate)) = "" selectedDay(Day(dtDate)) = "" selectedYear(Year(dtDate)) = "" selectedMonth(Month(CalendarDate)) = "selected" selectedDay(Day(CalendarDate)) = "selected" selectedYear(Year(CalendarDate)) = "selected" if AllDayEvent then timedSelected = "" alldaySelected = "checked" else timedSelected = "checked" alldaySelected = "" end if eventNotFound = false Else eventID = 0 End If end if %> <% if CalendarID > 0 then %> <% end if %>

name="EventID">
Event:
Date:	>Jan >Feb >Mar >Apr >May >Jun >Jul >Aug >Sep >Oct >Nov >Dec <% i = 1 do until i > 31 %> ><%=i%> <% i = i + 1 loop %> <% i = Year(Now()) - 5 do until i > Year(Now()) + 5 %> ><%=i%> <% i = i + 1 loop %>
> All Day Event > Select Time
Time:	<% i = 1 do until i > 12 if i = Hour(CalendarTime) mod 12 or i = Hour(CalendarTime) then %> <%=i%> <% else %> <%=i%> <% end if i = i + 1 loop %> <% i = 0 do until i >= 60 if i = 0 then displayi = "00" else displayi = i end if if displayi = Minute(CalendarTime) then %> <%=displayi%> <% else %> <%=displayi%> <% end if i = i + 15 loop %> <% if hour(CalendarTime) > 12 Then %> AM PM <% else %> AM PM <% end if %>
Duration:	Hours <% i = 0 do until i > 12 if i = DurationHour then %> <%=i%> <% else %> <%=i%> <% end if i = i + 1 loop %> Minutes <% i = 0 do until i >= 60 if i = 0 then displayi = "00" else displayi = i end if if displayi = DurationMinute then %> <%=displayi%> <% else %> <%=displayi%> <% end if i = i + 15 loop %>
Delete:

<% End Sub Sub format_DisplayTime( dtTime, displayTime, intOption) displayHr = Hour(dtTime) displayMin = Minute(dtTime) if intOption = 0 then if displayHR >= 12 then displayAMPM = "PM" else displayAMPM = "AM" end if end if if intOption = 1 then if displayHR >= 12 then displayAMPM = "pm" else displayAMPM = "am" end if end if displayHr = displayHr mod 12 if displayHr = 0 then displayHr = 12 end if if displayMin < 10 then displayMin = "0" & displayMin end if if intOption = 0 then displayTime = displayHr & ":" & displayMin & " " & displayAMPM end if if intOption = 1 then displayTime = displayHr & displayAMPM end if End Sub Sub search_CalendarForm (searchString, intOption) %> <% if intOption = 1 then %> <% end if %>

Search:		Start: All Years <% i = Year(Date) - 5 Do Until i > Year(Date) + 5 %> <%=i%> <% i = i + 1 Loop %>

<% End Sub Sub search_CalendarResults (searchString, searchstartDate) %> <% i = 0 Set EventTable = CreateObject("ADODB.Recordset") EventTable.Open "Select * FROM Events where (Year(EventDate) >= " & CInt(searchstartDate) & ") and (ConcertCity like '%" & searchString & "%' or ConcertState like '%" & searchString & "%' or EventDesc like '%" & searchString & "%') ORDER BY EventDate", "DSN=frucalendar;" Do Until EventTable.EOF EventDate = EventTable.Fields("EventDate") ConcertCity = EventTable.Fields("ConcertCity") ConcertState = EventTable.Fields("ConcertState") EventDesc = EventTable.Fields("EventDesc") EventType = EventTable.Fields("EventType") i = i + 1 EventTable.MoveNext if EventType = "MF" then %> <% else %> <% end if Loop Set CalendarTable = CreateObject("ADODB.Recordset") CalendarTable.Open "Select * FROM Appointments where (Member='" & Member & "' and Year(Date) >= " & CInt(searchstartDate) & " and Appointment like '%" & searchString & "%') ORDER BY Date, Time", "DSN=frucalendar;" Do Until CalendarTable.EOF CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") format_DisplayTime CalendarTime, displayCalendarTime, 1 if AllDayEvent then displayCalendarTime = "" end if i = i + 1 CalendarTable.MoveNext %><% Loop if i = 0 then %> <% end if CalendarTable.Close EventTable.Close %>

Moxy Früvous Event: <%=EventDate%> <%=ConcertCity%> <%=ConcertState%> <%=EventDesc%>

<%=EventDate%> <%=EventDesc%>

<%=CalendarDate%> <%=displayCalendarTime%> <%=Appointment%>

No results found.

<% End Sub Sub get_DayOfWeek( dtDate, strDayOfWeek, DayOfWeekNum ) DayOfWeekNum = DatePart("w", dtDate) Select Case DayOfWeekNum Case vbSunday strDayOfWeek = "Sunday" Case vbMonday strDayOfWeek = "Monday" Case vbTuesday strDayOfWeek = "Tuesday" Case vbWednesday strDayOfWeek = "Wednesday" Case vbThursday strDayOfWeek = "Thursday" Case vbFriday strDayOfWeek = "Friday" Case vbSaturday strDayOfWeek = "Saturday" End Select End Sub Sub get_Month( dtDate, strMonth ) MonthNum = DatePart("m", dtDate) Select Case MonthNum Case 1 strMonth = "January" Case 2 strMonth = "February" Case 3 strMonth = "March" Case 4 strMonth = "April" Case 5 strMonth = "May" Case 6 strMonth = "June" Case 7 strMonth = "July" Case 8 strMonth = "August" Case 9 strMonth = "September" Case 10 strMonth = "October" Case 11 strMonth = "Novemeber" Case 12 strMonth = "December" End Select End Sub Sub get_FirstDateOfMonth( dtDate, dtFirstDateOfMonth) dtFirstDateofMonth = Month(dtDate) & "/01/" & Year(dtDate) End Sub Sub get_LastDateOfMonth( dtDate, dtLastDateOfMonth) lastDateofJan = "01/31/" & Year(dtDate) dtLastDateOfMonth = DateAdd("m", Month(dtDate)-1, lastDateofJan) End Sub Sub display_MonthCalendar ( dtDate, intOption) get_firstDateOfMonth dtDate, firstDateOfMonth get_lastDateOfMonth dtDate, lastDateOfMonth get_Month dtDate, viewmonthName viewYear = Year(dtDate) Dim WeekArray(7, 31) get_DayOfWeek firstDateOfMonth, firstMonthDay, firstMonthDayNum i = firstMonthDayNum j = 1 k = 1 Do Until k > Day(lastDateOfMonth) Do Until i > 7 or k > Day(lastDateOfMonth) WeekArray(i, j) = k k = k + 1 i = i + 1 Loop i = 1 j = j + 1 Loop linkPrevMonth = DateAdd("m", -1, firstDateofMonth) linkNextMonth = DateAdd("m", 1, firstDateofMonth) %> <% if intOption = 1 then %> <% else %> <% end if %> <% Set CalendarTable = CreateObject("ADODB.Recordset") CalendarTable.Open "Select * FROM Appointments where Member='" & Member & "' and Date>=#" & firstDateofMonth & "# and Date<=#" & lastDateofMonth & "# ORDER BY Date", "DSN=frucalendar;" If Not CalendarTable.EOF Then CalendarDate = CalendarTable.Fields("Date") End If Set EventTable = CreateObject("ADODB.Recordset") EventTable.Open "Select * FROM Events where EventDate>=#" & firstDateofMonth & "# and EventDate<=#" & lastDateofMonth & "# ORDER BY EventDate", "DSN=frucalendar;" If Not EventTable.EOF Then EventDate = EventTable.Fields("EventDate") End If i = 1 j = 1 k = 1 foundEvent = false foundAppt = false Do Until k > Day(lastDateOfMonth)+firstMonthDayNum %> <% Do Until i > 7 linkdate = Month(firstDateofMonth) & "/" & WeekArray(i, j) & "/" & Year(firstDateofMonth) if WeekArray(i, j) <> "" Then if CDate(EventDate) = CDate(linkdate) then foundEvent = true Do Until CDate(EventDate) <> CDate(linkdate) or EventTable.EOF EventTable.MoveNext if Not EventTable.EOF Then EventDate = EventTable.Fields("EventDate") end if Loop end if if CDate(CalendarDate) = CDate(linkdate) then foundAppt = true Do Until CDate(CalendarDate) <> CDate(linkdate) or CalendarTable.EOF CalendarTable.MoveNext if Not CalendarTable.EOF Then CalendarDate = CalendarTable.Fields("Date") end if Loop end if end if if Not foundEvent and Not foundAppt then %> <% end if if foundEvent and Not foundAppt then %> <% end if if Not foundEvent and foundAppt then %> <% end if if foundEvent and foundAppt then %> <% end if k = k + 1 i = i + 1 foundEvent = false foundAppt = false Loop i = 1 j = j + 1 %> <% Loop display_LongDate Date(), todayDisplay if intOption = 1 then %> <% end if %>

<= <%=viewmonthName%> <%=viewYear%> =>
<%=viewmonthName%> <%=viewYear%>
Su	Mo	Tu	We	Th	Fr	Sa
&view=<%=view%>><%=WeekArray(i,j)%>	&view=<%=view%>><%=WeekArray(i,j)%>	&view=<%=view%>><%=WeekArray(i,j)%>	&view=<%=view%>><%=WeekArray(i,j)%>
&date=<%=Date()%>>Today is <%=todayDisplay%>

<% CalendarTable.Close EventTable.Close End Sub Sub display_LongDate ( dtDate, displayDate) get_Month dtDate, displayMonth get_DayOfWeek dtDate, displayDay, displayDayNum displayDate = displayDay & " " & displayMonth & " " & Day(dtDate) & ", " & Year(dtDate) End Sub Sub display_DayView( dtDate, tmBeginTime, tmEndTime ) beginTime = tmBeginTime endTime = tmEndTime display_LongDate dtDate, displayDate %> <% Set CalendarTable = CreateObject("ADODB.Recordset") CalendarTable.Open "Select * FROM Events where EventDate=#" & dtDate & "#", "DSN=frucalendar;" Do Until CalendarTable.EOF ConcertCity = CalendarTable.Fields("ConcertCity") ConcertState = CalendarTable.Fields("ConcertState") EventDesc = CalendarTable.Fields("EventDesc") EventType = CalendarTable.Fields("EventType") if EventType = "MF" then %> <% else %> <% end if CalendarTable.MoveNext Loop CalendarTable.Close CalendarTable.Open "Select * FROM Appointments where Member='" & Member & "' and Date=#" & dtDate & "# ORDER BY Time", "DSN=frucalendar;" If Not CalendarTable.EOF Then CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") End If lastTimeDisplayed = 0 Do While CDate(CalendarTime) < CDate("8:00 AM") and Not CalendarTable.EOF displayHour = Hour(CalendarTime) mod 12 if displayHour = 0 then displayHour = 12 end if if AllDayEvent Then %> <% else format_DisplayTime CalendarTime, displayCalendarTime, 0 CalendarEndTime = DateAdd("n", DurationMinute, CalendarTime) CalendarEndTime = DateAdd("h", DurationHour, CalendarEndTime) format_DisplayTime CalendarEndTime, displayCalendarEndTime, 0 if lastTimeDisplayed <> displayHour then lastTimeDisplayed = displayHour %> <% end if %> <% end if CalendarTable.MoveNext If Not CalendarTable.EOF Then CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") End If Loop i = hour(beginTime) Do Until i > hour(endTime) displayHour = i mod 12 if displayHour = 0 then displayHour = 12 end if %> <% Do While CalendarTime <= CDate(i & ":59") and Not CalendarTable.EOF format_DisplayTime CalendarTime, displayCalendarTime, 0 CalendarEndTime = DateAdd("n", DurationMinute, CalendarTime) CalendarEndTime = DateAdd("h", DurationHour, CalendarEndTime) format_DisplayTime CalendarEndTime, displayCalendarEndTime, 0 %> <% CalendarTable.MoveNext If Not CalendarTable.EOF Then CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") End If Loop i = i + 1 %> <% Loop lastTimeDisplayed = 6 Do While CDate(CalendarTime) >= CDate("7:00 PM") and Not CalendarTable.EOF displayHour = Hour(CalendarTime) mod 12 if displayHour = 0 then displayHour = 12 end if if bgColor="#CCCCCC" then bgColor = "#FFFFFF" else bgColor = "#CCCCCC" end if format_DisplayTime CalendarTime, displayCalendarTime, 0 CalendarEndTime = DateAdd("n", DurationMinute, CalendarTime) CalendarEndTime = DateAdd("h", DurationHour, CalendarEndTime) format_DisplayTime CalendarEndTime, displayCalendarEndTime, 0 if lastTimeDisplayed <> displayHour then lastTimeDisplayed = displayHour %> <% end if %> <% CalendarTable.MoveNext If Not CalendarTable.EOF Then CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") End If Loop %>

<%=displayDate%>
	Moxy Früvous Event: <%=ConcertCity%> <%=ConcertState%> <%=EventDesc%>
	<%=EventDesc%>
	<%=Appointment%>
<%=displayHour%>:00
	<%=displayCalendarTime%>-<%=DisplayCalendarEndTime%> <%=Appointment%>
<%=displayHour%>:00
	<%=displayCalendarTime%>-<%=DisplayCalendarEndTime%> <%=Appointment%>
<%=displayHour%>:00
	<%=displayCalendarTime%>-<%=DisplayCalendarEndTime%> <%=Appointment%>

<% CalendarTable.Close End Sub Sub display_WeekView( dtDate ) startDate = dtDate endDate = DateAdd("ww", 1, startDate) endDate = DateAdd("d", -1, endDate) display_LongDate startDate, displayStartDate display_LongDate endDate, displayEndDate %> <% i = 1 Do Until i > 7 display_LongDate dtDate, displayDate %> <% Set CalendarTable = CreateObject("ADODB.Recordset") CalendarTable.Open "Select * FROM Events where EventDate=#" & dtDate & "#", "DSN=frucalendar;" Do Until CalendarTable.EOF ConcertCity = CalendarTable.Fields("ConcertCity") ConcertState = CalendarTable.Fields("ConcertState") EventDesc = CalendarTable.Fields("EventDesc") EventType = CalendarTable.Fields("EventType") if EventType = "MF" then %> <% else %> <% end if CalendarTable.MoveNext Loop CalendarTable.Close CalendarTable.Open "Select * FROM Appointments where Member='" & Member & "' and Date=#" & dtDate & "# ORDER BY Time", "DSN=frucalendar;" Do While Not CalendarTable.EOF CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") format_DisplayTime CalendarTime, displayCalendarTime, 0 CalendarEndTime = DateAdd("n", DurationMinute, CalendarTime) CalendarEndTime = DateAdd("h", DurationHour, CalendarEndTime) format_DisplayTime CalendarEndTime, displayCalendarEndTime, 0 if AllDayEvent Then displayCalendarTime = "" displayCalendarEndTime = "" end if %> <% CalendarTable.MoveNext Loop CalendarTable.Close %> <% dtDate = DateAdd("d", 1, dtDate) i = i + 1 Loop %>

<%=displayStartDate%> - <%=displayEndDate%>
><%=displayDate%>
	Moxy Früvous Event: <%=ConcertCity%> <%=ConcertState%> <%=EventDesc%>
	<%=EventDesc%>
	<%=displayCalendarTime%>-<%=DisplayCalendarEndTime%> <%=Appointment%>

<% End Sub Sub display_MonthView ( dtDate) get_firstDateOfMonth dtDate, firstDateOfMonth get_lastDateOfMonth dtDate, lastDateOfMonth get_Month dtDate, viewmonthName Dim WeekArray(7, 31) get_DayOfWeek firstDateOfMonth, firstMonthDay, firstMonthDayNum i = firstMonthDayNum j = 1 k = 1 Do Until k > Day(lastDateOfMonth) Do Until i > 7 or k > Day(lastDateOfMonth) WeekArray(i, j) = k k = k + 1 i = i + 1 Loop i = 1 j = j + 1 Loop linkPrevMonth = DateAdd("m", -1, firstDateofMonth) linkNextMonth = DateAdd("m", 1, firstDateofMonth) Set CalendarTable = CreateObject("ADODB.Recordset") CalendarTable.Open "Select * FROM Appointments where Member='" & Member & "' and Date>=#" & firstDateofMonth & "# and Date<=#" & lastDateofMonth & "# ORDER BY Date, Time", "DSN=frucalendar;" If Not CalendarTable.EOF Then CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") format_DisplayTime CalendarTime, displayCalendarTime, 1 if AllDayEvent then displayCalendarTime = "" end if End If Set EventTable = CreateObject("ADODB.Recordset") EventTable.Open "Select * FROM Events where EventDate>=#" & firstDateofMonth & "# and EventDate<=#" & lastDateofMonth & "# ORDER BY EventDate", "DSN=frucalendar;" If Not EventTable.EOF Then EventDate = EventTable.Fields("EventDate") ConcertCity = EventTable.Fields("ConcertCity") ConcertState = EventTable.Fields("ConcertState") EventDesc = EventTable.Fields("EventDesc") EventType = EventTable.Fields("EventType") End If %> <% i = 1 j = 1 k = 1 sqldate = firstDateofMonth Do Until k > Day(lastDateOfMonth)+firstMonthDayNum %> <% Do Until i > 7 linkdate = Month(firstDateofMonth) & "/" & WeekArray(i, j) & "/" & Year(firstDateofMonth) %> <% k = k + 1 i = i + 1 Loop i = 1 j = j + 1 %> <% Loop %>

<= <%=viewmonthName%> <%=viewYear%> =>
Sunday	Monday	Tuesday	Wednesday	Thursday	Friday	Saturday
&view=week><%=WeekArray(i,j)%> <% if (WeekArray(i, j) <> "") then Do While CDate(EventDate) = CDate(sqlDate) and Not EventTable.EOF if EventType = "MF" Then %>Früvous:  <%=ConcertCity%> <%=ConcertState%> <% else %><%=EventDesc%> <% end if EventTable.MoveNext If Not EventTable.EOF Then EventDate = EventTable.Fields("EventDate") ConcertCity = EventTable.Fields("ConcertCity") ConcertState = EventTable.Fields("ConcertState") EventDesc = EventTable.Fields("EventDesc") EventType = EventTable.Fields("EventType") End If Loop Do While CDate(CalendarDate) = CDate(sqlDate) and Not CalendarTable.EOF %><%=displayCalendarTime%> <%=Appointment%> <% CalendarTable.MoveNext If Not CalendarTable.EOF Then CalendarID = CalendarTable.Fields("ID") CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") format_DisplayTime CalendarTime, displayCalendarTime, 1 if AllDayEvent then displayCalendarTime = "" end if End If Loop sqlDate = DateAdd("d", 1, sqlDate) end if %>

<% EventTable.Close CalendarTable.Close End Sub Sub display_YearView( dtDate ) tmpview = view view = "week" thisYear = Year(dtDate) thisMonth = CDate("01/01/" & thisYear) %> <% k = 1 l = 1 Do Until l > 4 %> <% k = 1 Do Until k > 3 %> <% thisMonth = DateAdd("m", 1, thisMonth) k = k + 1 Loop %> <% l = l + 1 Loop %>

<% display_MonthCalendar thisMonth, 0 %>

<% view = tmpview End Sub %>