<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% session("pageredir") = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING") open_calender_connection() dDate = GetSelectedDate() print = request.querystring("print") yearvar = request.querystring("yearvar") if yearvar = vbnullstring then yearvar = year(now()) sect = request.querystring("sect") if sect <> vbnullstring then sect_name = "(" & sect & ")" if sect <> vbnullstring then sect_whereclause = "Sect = '" & sect & "' and " sql = "select * from calender_event where " & sect_whereclause & "Year(start_dt) =" & yearvar & " order by start_dt ASC, start_time ASC" set rstemp=conn.execute(sql) sub GenerateList(format) response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") monthvar = "" if sect <> vbnullstring then sect_whereclause = "Sect = '" & sect & "' and " sql = "select * from calender_event where " & sect_whereclause & "Year(start_dt) =" & yearvar & " order by start_dt ASC, start_time ASC" set rs = conn.execute(sql) if rs.eof then response.write("
DateHeureÉvénementLieuDétail
Aucun événement trouvé!
") else do while not rs.eof if month(rs("start_dt")) <> monthvar then monthvar = month(rs("start_dt")) response.write("
" & MONTH_NAMES(monthvar-1) & "
") end if response.write("" & FormatDateTime(rs("start_dt"),vbShortDate) & "") response.write("") if TimeWithoutSeconds(rs("start_time") ) <> "01h00" then response.write(timewithoutseconds(rs("start_time"))) else response.write(" ") end if response.write("") response.write("" & rs("name") & "") response.write("" & rs("location") & "") response.write("" & rs("description") & "") rs.movenext loop response.write("") end if end sub sub GenerateCalender() response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf 'Get day of the week the month starts on. iDOW = GetWeekdayMonthStartsOn(dDate) ' Write spacer cells at beginning of first row if month doesn't start on a Sunday. response.write "" & vbCrLf For iCurrent = 1 to iDOW - 1 response.write "" & vbCrLf Next ' Write days of month in proper day slots For iCurrent = 1 to GetDaysInMonth(Month(dDate), Year(dDate)) ' set the current date, were going to use it twice later on ld_loopDate = cdate(Month(dDate) & "/" & iCurrent & "/" & Year(dDate)) ' If the day we're writing is the selected day then highlight it somehow. If iCurrent = Day(dDate) Then response.write "" & vbCrLf ' If we're at the endof a row then close it up If iDOW = 7 Then response.write "" & vbCrLf iDOW = 0 End If ' Increment the days of the week iDOW = iDOW + 1 ' If we're at the begginning of a row then write TR If iDOW = 1 Then response.write "" & vbCrLf Next ' Write spacer cells at end of last row if month doesn't end on a Saturday. iDOWNEW = 1 If iDOW <> 1 Then Do While iDOW <= 7 response.write "" & vbCrLf iDOW = iDOW + 1 iDOWNEW = iDOWNEW + 1 Loop response.write "" & vbCrLf End If response.write "
" & vbCrLf response.write "" response.write MonthName(Month(dDate)) & " " & Year(dDate) & " " response.write "" response.write "
dimlunmarmerjeuvensam
" & GetDaysInMonth(Month(dDate)-1, Year(dDate))-iDOW+iCurrent+1 & "



" Else response.write "" End If response.write "" & iCurrent & "" response.write "" ' write out events for the current day filtering the recordset and calling a function rstemp.Filter = "start_dt = " & ld_loopDate ' filter the recordset response.write "" lb_eventsFound = WriteEventLabelsForRecordset(rstemp) response.write "" rstemp.Filter = 0 If not lb_eventsFound then response.write "



" lb_eventsFound = false ' reset the flag response.write "
" & iDOWNEW & "



" end sub %> <% if print = "y" then %> <% else %> <% end if %> <% if print <> "y" then %> <% end if %>

Calendrier - Saison <%= yearvar %> <%= sect_name %>

 <% response.write(" ") if (session("memLevel") >= LEVEL_EDITORCAL) then response.write("") end if if print <> "y" then response.write(" ") end if %>
 
Note. Pour consulter le détail d'une activité, cliquez sur la date.
Note 2. Les plans d'entraînements sont disponibles ici.
 
<% if print = "y" then call GenerateList("all") else call GenerateCalender () end if %>
<% rstemp.Filter = "start_dt = " & dDate ' filter the recordset Call WriteEventsForRecordset(rstemp) 'write the events for the recordset %>
<% close_calender_connection() %> <% if print = "y" then %> <% else %> <% end if %>