| |
|
 |
Calendar
|
|
|
| |
Recommend
Us Send this site to a colleague |
|
|
| |
For
more info call
917-940-1692 or email to discuss how we can help you. |
|
|
|
|
|
|
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
'Database Intialization
Set myDBObjects = New ClosableObjectList
Set cnnCalendar = Server.CreateObject("ADODB.Connection")
myDBObjects.AddObject(cnnCalendar)
cnnCalendar.OPEN MM_calendar_STRING
'End Database Initialization
'Local Variable Validation
iInstallationID = validateNumber(Request("iInstallationID"),Session("intInstallationID"))
dtDate = validateDate(date,date)
iDisplayDays = validateNumber(rsConfiguration("iFrontPageDisplayDays"),7)
dim bError(1)
dim sErrorMessage(1)
'End Local Variable Validation
'My Recruiter Jobs Recordset
sSQL = "SELECT Calendar.*, Calendar_Event_Dates.dtStartDate, Calendar_Event_Dates.dtEndDate, Calendar_Event_Dates.intFrequency FROM Calendar " & _
" INNER JOIN (" & _
" SELECT CalendarID, dtDate as dtStartDate, dtDate as dtEndDate, 0 as intFrequency FROM Calendar_Events " & _
" UNION " & _
" SELECT CalendarID, dtStartDate, dtEndDate, intRecurType as intFrequency FROM Calendar_Recurring_Events " & _
" ) Calendar_Event_Dates ON Calendar.CalendarID = Calendar_Event_Dates.CalendarID"
Set rsEvents = Server.CreateObject("ADODB.RecordSet")
myDBObjects.AddObject(rsEvents)
rsEvents.ActiveConnection = cnnCalendar
rsEvents.Source = sSQL
rsEvents.CursorType = 2
rsEvents.OPEN
'End My Recruiter Jobs Recordset
%>
/shared/calendar_stylesheet.css" rel="stylesheet" type="text/css">
|
<%
bNoEvents = true
iTotalEvents = 0
For i = 0 to iDisplayDays
While not rsEvents.EOF
dtStartDate = rsEvents("dtStartDate")
dtEndDate = rsEvents("dtEndDate")
intEventType = rsEvents("intEventType")
intFreq = rsEvents("intFrequency")
Select Case intEventType
Case 1: vcViewPage = rsConfiguration("vcCalendarPath") & "/view_event.asp?calendarID=" & rsEvents("CalendarID")
Case 2: vcViewPage = rsConfiguration("vcCalendarPath") & "/view_recurring_event.asp?calendarID=" & rsEvents("CalendarID")
Case 3: vcViewPage = rsConfiguration("vcCalendarPath") & "/view_recurring_event.asp?calendarID=" & rsEvents("CalendarID")
Case Else: vcViewPage="#"
End Select
if(intEventType = 1)then
if(datediff("d",dtDate,dtStartDate)=0) then
%>
<%=Month(dtDate)%>/<%=Day(dtDate)%> <%=rsEvents("stTitle")%>
<%
bNoEvents = false
end if
else
difference = datediff("d", dtStartDate, dtDate)
endDifference = datediff("d", dtEndDate, dtDate)
if(difference >= 0 and endDifference <= 0)then
select case intFreq
case 1: difference = difference mod 1
case 2: difference = difference mod 7
case 3: difference = day(dtStartDate) - day(dtDate)
case 4: difference = difference mod (365 + Leap)
if(hasLeapOccured)then
difference = (difference-1)mod 365
end if
end select
if(difference = 0)then
Dim rsExceptionDate
Dim rsExceptionDate_numRows
Set rsExceptionDate = Server.CreateObject("ADODB.Recordset")
rsExceptionDate.ActiveConnection = cnnCalendar
rsExceptionDate.Source = "SELECT Calendar.CalendarID, Calendar_Recurring_Event_Exceptions.dtExceptionDate, Calendar.intInstallationID " &_
"FROM Calendar INNER JOIN " &_
"Calendar_Recurring_Event_Exceptions ON Calendar.CalendarID = Calendar_Recurring_Event_Exceptions.CalendarID " & _
"WHERE (Calendar.intInstallationID = " & iInstallationID & " ) AND (Calendar_Recurring_Event_Exceptions.dtExceptionDate = '" & dtDate & "')"
rsExceptionDate.CursorType = 0
rsExceptionDate.CursorLocation = 2
rsExceptionDate.LockType = 1
rsExceptionDate.Open()
rsExceptionDate_numRows = 0
if rsExceptionDate.EOF OR rsExceptionDate.BOF Then
%>
<%=vcSubNavChar & " "%><%=Month(dtDate)%>/<%=Day(dtDate)%> <%=rsEvents("stTitle")%>
<%
End if
bNoEvents = false
end if
end if
end if
rsEvents.MoveNext
Wend
dtDate = dateadd("d",1,dtDate)
if(not rsEvents.EOF or not rsEvents.BOF)then
rsEvents.MoveFirst
end if
Next
%>
|
|
|
|
|
|
