<%=vCalendarInfo(CI_CalendarName)%>
<%
if vCalendarInfo(CI_Location) <> "" then
response.write " at " & vCalendarInfo(CI_Location)
end if
%>
<%=Months(iMonth)%> <%=iYear%> to <%= MonthName(Month(dEndDate))& " " & Year(dEndDate) %>
<%
' For the first day, we'll need to do some padding
iCurrentWeekday = weekday(dStartDate)
dCurrentDate = dStartDate
dim CurMonth
dim CurEvent
' Now finish off the rest of the calendar
'CurMonth = month(dCurrentDate) + 1
if iDateArraySize-1 = -1 then %> No events were
found. Please try again.
<% else %>
Your selection:
<%
if (iLocal <> "") and (iLocal <> "0") then
response.write "Location = " & vCalendarInfo(CI_Location) & "
"
end if
if sCats <> "" then
response.write "Training Category = " & vCalendarInfo(CI_CalendarName) & " "
end if
end if
%>
View list in calendar (location required) |
|
<%
do until dCurrentDate > dEndDate
if iCurrentWeekday = 8 then
iCurrentWeekday = 1
end if
for index=0 to (iDateArraySize-1)
if vDateInfo(2, index) <> CurEvent then
if cDate(vDateInfo(DE_Date, index)) = dCurrentDate then
if (Month(dCurrentDate) = month(cDate(vDateInfo(DE_Date, index)))) and (CurMonth <> Month(dCurrentDate)) then
%>
|
<% if date = dCurrentDate then
response.write MonthName(Month(dCurrentDate)) & " " & Day(dCurrentDate)
else
response.write MonthName(Month(dCurrentDate)) & " " & Day(dCurrentDate)
end if %>
|
<%
response.write ""
response.write ""
response.write vDateInfo(DE_shortdesc, index) & ""& CRLF
response.write ""
CurEvent = vDateInfo(2, index)
%> <% If vDateInfo(DE_EventLanguage, index) <> "" Then %>
Language: <%= vDateInfo(DE_EventLanguage, index) %>
<% End If %>
|
 |
When:
<%
' if vDateInfo(DE_HasDateRange, index) = 1 then
' response.write "Event occurs between: " & vDateInfo(DE_StartDateRange, index) _
' & " and " & vDateInfo(DE_EndDateRange, index) & ". "
'end if
' if vDateInfo(DE_Recurring, index) <> "none" then
' response.write "This event happens " & vDateInfo(DE_Recurring, index) & ". "
' end if
if vDateInfo(DE_alldayevent, index) = 1 then
response.write "This is an all day event. "
else
dim sSMerid,sEMerid
if vDateInfo(DE_TimeOfDayMeridian, index) = 1 then
sSMerid = "PM"
else
sSMerid = "AM"
end if
if vDateInfo(DE_endtimemeridian, index) = 1 then
sEMerid = "PM"
else
sEMerid = "AM"
end if
dim iMinute, iEMinute
iMinute = vDateInfo(DE_TimeOfDayMinute, index)
iEMinute = vDateInfo(DE_endtimeminute, index)
if iMinute < 10 then iMinute = "0" & cstr(iMinute)
if iEMinute < 10 then iEMinute = "0" & cstr(iEMinute)
response.write "From " & vDateInfo(DE_TimeOfDayHour, index) _
& ":" & iMinute & " " & sSMerid _
& " To " & vDateInfo(DE_endtimehour, index) & ":" & iEMinute & " " & sEMerid
end if
'Response.write "
"
%> |
<% If vDateInfo(DE_EventLocation, index) <> "" Then %>Where:
<%= vDateInfo(DE_EventLocation, index) %>
<% End If %> |
<%
CurEvent = vDateInfo(2, index)
end if
' end if
end if
next
CurEvent = ""
response.write ""
dCurrentDate = DateAdd("d", 1, dCurrentDate)
iCurrentWeekday = iCurrentWeekday + 1
loop
' Finish off the week
iCurrentWeekday = weekday(dCurrentDate)
%>