The
members of the MHMG
team are accomplished inspirational public
speakers and moderators. They are sought
for keynote presentations, panel discussions,
roundtable discussions, training sessions,
workshops and seminars. They have a comprehensive
understanding of healthcare issues across
a broad range of therapeutic categories.
They are skilled facilitators of forums
of the most erudite and distinguished healthcare
professionals.
For
more info call
917-940-1692 or email to discuss how we can help you.
<%
Response.buffer = true
%>
<%
' **************************************************************************************
' **************************************************************************************
' ** **
' ** ASP Calendar System **
' ** Digital Interchange **
' ** support@cramerdev.com **
' ** V. 5.5.0 **
' ** **
' **************************************************************************************
' ** ________________________________________________________________________________ **
' ** Copyright Notice **
' ** Digital Interchange **
' ** Copyright 2001-2004 Digital Interchange All Rights Reserved. **
' **************************************************************************************
' ** This copyright notice must remain intact and may not be removed. **
' ** This software is intellectual property and is owned by Digital Interchange and **
' ** is copyright of Digital Interchange in all countries in the world, and ownership **
' ** remains with Digital Interchange. The consumer (Licensee) is granted a **
' ** non-expiring license to use the software by Digital Interchange. The Licensee **
' ** is not allowed to distribute this source code (if released) to third parties. **
' ** Licensee is not allowed to reverse engineer, disassemble or decompile the code, **
' ** or make any modifications of the source code, remove or alter any trademark, **
' ** logo, copyright or other proprietary notices, legends, symbols, or labels in **
' ** the Software. Licensee is not allowed to sub-license the Software or any **
' ** derivative work based on or derived from the Software. It is understood by **
' ** Licensee that Digital Interchange shall not be liable for any loss or damage **
' ** that may arise, including any indirect special or consequential loss or damage **
' ** in connection with or arising from the performance or use of the software, **
' ** including fitness for any particular purpose. By using this Software, Licensee **
' ** agrees to abide by the copyright law and all other applicable laws of the **
' ** United States and the terms of this license. Licensee may be held legally **
' ** responsible for any copyright infringement that is caused or encouraged by the **
' ** Licensee's failure to abide by the terms of this license. **
' **************************************************************************************
' **************************************************************************************
%>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
response.expires = -2
Set myDBObjects = New ClosableObjectList
Set cnnCalendar = Server.CreateObject("ADODB.Connection")
myDBObjects.AddObject(cnnCalendar)
cnnCalendar.OPEN MM_calendar_STRING
if rsConfiguration("bAllowMultipleCalendars") then
if Request("intDivisionID") <> "" then
Session("DivisionID") = request("intDivisionID")
else
if(isEmpty(Session("DivisionID"))) then
if(not isNull(rsConfiguration("intDefaultDivision")))then
Session("DivisionID") = rsConfiguration("intDefaultDivision")
else
Session("DivisionID") = 0
end if
end if
end if
else
Session("DivisionID") = "0"
end if
intDivisionID = Session("DivisionID")
Dim Divisions
Dim Divisions_numRows
Set Divisions = Server.CreateObject("ADODB.Recordset")
Divisions.ActiveConnection = MM_calendar_STRING
Divisions.Source = "SELECT * FROM Calendar_Divisions WHERE intInstallationID = " & Session("intInstallationID")
Divisions.CursorType = 0
Divisions.CursorLocation = 2
Divisions.LockType = 1
Divisions.Open()
Divisions_numRows = 0
%>
<%
dim num_days 'total number of days in month
dim num_days_year 'total number of days in year
dim region_id
navmonth = request.querystring("month")
navyear = request.querystring("year")
'response.Write(region_id)
'response.End()
If navmonth = "" Then
navmonth = Month(Date)
End If
If navyear = "" Then
navyear = Year(Date)
End If
'****************************************************************************
'Cut this block to remove multiple calendar display
'Also Cut the Block at the bottom of the page
intNumberOfCalendarsToDisplay = 1
if(rsConfiguration("intNumberOfCalendarsToDisplay"))then
intNumberOfCalendarsToDisplay = rsConfiguration("intNumberOfCalendarsToDisplay")
end if
intDisplayedCalendars = 0
While intDisplayedCalendars < intNumberOfCalendarsToDisplay
if(navmonth >= 13)then
navmonth = 1
navyear = navyear + 1
end if
'****************************************************************************
firstday = Weekday(dateSerial(navyear,navmonth,1))
'response.Write(firstday)
'response.end
leapTestNumbers = navyear / 4
leapTest = (leapTestNumbers) - Round(leapTestNumbers)
if(leaptest <> 0)then
num_days_year = 365
else
num_days_year = 366
end if
'lastDate=num_days
If navmonth = 2 Then
If leapTest <> 0 Then
lastDate = 28
Else
lastDate = 29
End If
ElseIf ((navmonth = 4) OR (navmonth = 6) OR (navmonth = 9) OR (navmonth = 11)) Then
lastDate = 30
Else
lastDate = 31
End If
lastMonth = navmonth - 1
lastYear = navyear
If lastMonth < 1 Then
lastMonth = 12
lastYear = lastYear - 1
End If
nextMonth = navmonth + 1
nextYear = navyear
If nextMonth >12 Then
nextMonth = 1
nextYear = nextYear + 1
End If
nextyear=navyear
if navmonth = 12 then
nextyear = nextyear+1
end if
num_days = datediff("d",navmonth &"/1/" & navyear, nextmonth & "/1/" & nextyear)
'response.Write("")
dateCounter = 1
weekCount = 1
DateEnd = lastDate
DateBegin = firstDate
%>
<%
usertype = "admin"
dtdiff = navmonth & "-01-" & navyear
if not rsConfiguration("bAllowMultipleCalendars") or intDivisionID = 0 then
eventsSQL = "SELECT calendar.*, calendar_events.*, calendar.CalendarID as iCalendarID FROM (calendar INNER JOIN calendar_events ON calendar.calendarID = calendar_events.calendarID) WHERE intInstallationID = " & Session("intInstallationID") & " AND bApproved<>0 and (datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtDate,'" & navmonth &"/1/"&navyear & "') <= 0 AND datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtDate,'"& navmonth &"/" & lastdate & "/"&navyear & "') >=0) ORDER BY calendar_events.dtdate, dtStartTime"
recurringSQL = "SELECT calendar.*, calendar_recurring_events.*, calendar.CalendarID as iCalendarID FROM (calendar INNER JOIN calendar_recurring_events ON calendar.calendarID = calendar_recurring_events.calendarID) WHERE intInstallationID = " & Session("intInstallationID") & " AND bApproved<>0 and (datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtstartdate,'" & navmonth &"/"&lastdate&"/"&navyear & "') >= 0 AND datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtEndDate,'" & navmonth &"/1/"& navyear & "') <= 0) ORDER BY calendar_recurring_events.dtstartdate, dtStartTime"
else
eventsSQL = "SELECT calendar.*, calendar_events.*, calendar.CalendarID as iCalendarID FROM (calendar INNER JOIN calendar_events ON calendar.calendarID = calendar_events.calendarID) WHERE intInstallationID = " & Session("intInstallationID") & " AND bApproved<>0 and intDivisionID = " & intDivisionID & " and (datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtDate,'" & navmonth &"/1/"&navyear & "') <= 0 AND datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtDate,'"& navmonth &"/" & lastdate & "/"&navyear & "') >=0) ORDER BY calendar_events.dtdate, dtStartTime"
recurringSQL = "SELECT calendar.*, calendar_recurring_events.*, calendar.CalendarID as iCalendarID FROM (calendar INNER JOIN calendar_recurring_events ON calendar.calendarID = calendar_recurring_events.calendarID) WHERE intInstallationID = " & Session("intInstallationID") & " AND bApproved<>0 and intDivisionID = " & intDivisionID & " and (datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtstartdate,'" & navmonth &"/"&lastdate&"/"&navyear & "') >= 0 AND datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtEndDate,'" & navmonth &"/1/"& navyear & "') <= 0) ORDER BY calendar_recurring_events.dtstartdate, dtStartTime"
end if
'Response.write(dtdiff)
'Response.Write(eventsSQL)
'Response.Write(recurringSQL)
'Response.end
Set RSEVENT = Server.CreateObject("ADODB.Recordset")
RSEVENT.ActiveConnection = MM_calendar_STRING
RSEVENT.Source = eventsSQL
RSEVENT.Open()
Set RSRECURRING = Server.CreateObject("ADODB.RecordSet")
RSRECURRING.ActiveConnection = MM_calendar_STRING
RSRECURRING.Source = recurringSQL
RSRECURRING.Open()
%>
<%
Do while weekCount <= 7
dateSelect = navmonth & "-"
if dateCounter <= 9 then
dateSelect = dateSelect & "0"
end if
dateSelect = dateSelect & dateCounter & "-" & navyear
dateSelect = dateSelect
if(abs(datediff("d","1/1/" & year(dateSelect),"1/1/" & year(dateSelect) +1)) = 366 )then
if(Month(dateSelect) >= 3)then
leap = 1
end if
else
leap = 0
end if
if(abs(datediff("d","1/1/" & year(dateSelect),"1/1/" & year(dateSelect) -1)) = 366 ) then
hasLeapOccured=1
end if
%>
<% If (weekCount < firstDay) OR (dateCounter > lastDate) Then %>
<% else %>
<%=dateCounter%>
<%
Do while (NOT RSEVENT.EOF)
vcLocation = ""
if(datediff("d", rsevent("dtdate"), dateSelect) < 0)then
exit do
end if
'response.Write(dateselect)
if datediff("d", rsevent("dtdate"), dateSelect) = 0 then
if rsConfiguration("bShowCityOnCalendar") then
if rsevent("vcCity") <> "" then
vcLocation = " - " & rsevent("vcCity")
if rsConfiguration("bShowStateOnCalendar") then
vcLocation = vcLocation & ","
end if
bLocation = true
end if
end if
if rsConfiguration("bShowStateOnCalendar") then
if rsevent("vcState") <> "" then
vcLocation = vcLocation & " " & rsevent("vcState")
bLocation = true
end if
end if
if bLocation <> true then
vcLocation = ""
end if
blocation = false
%>
<%
RSEVENT.movenext
else
RSEVENT.movenext
end if
Loop
if( not RSEVENT.BOF)then
RSEVENT.MOVEFIRST
end if
%>
<%
'RECURRING EVENTS
Dim difference
while(not RSRECURRING.EOF)
vcLocation = ""
CalendarID = RSRECURRING("iCalendarID")
sSQL = "SELECT * FROM Calendar_Recurring_Event_Exceptions WHERE CalendarID = " & CalendarID & " AND datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtExceptionDate,'" & dateSelect & "') = 0"
Set rsException = cnnCalendar.EXECUTE(sSQL)
if (rsException.EOF and rsException.BOF) then
startDate = RSRECURRING("dtStartDate")
endDate = RSRECURRING("dtEndDate")
freq=RSRECURRING("intRecurType")
difference = datediff("d", startDate, dateSelect)
endDifference = datediff("d", endDate, dateSelect)
if(difference >= 0 and endDifference <= 0)then
select case freq
case 1: difference = difference mod 1
case 2: difference = difference mod 7
case 3: difference = day(startdate) - day(dateSelect)
case 4: difference = difference mod (365 + Leap)
if(hasLeapOccured)then
difference = (difference-1)mod 365
end if
end select
if(difference = 0)then
if rsConfiguration("bShowCityOnCalendar") then
if RSRECURRING("vcCity") <> "" then
vcLocation = " - " & RSRECURRING("vcCity")
if rsConfiguration("bShowStateOnCalendar") then
vcLocation = vcLocation & ","
end if
bLocation = true
end if
end if
if rsConfiguration("bShowStateOnCalendar") then
if RSRECURRING("vcState") <> "" then
vcLocation = vcLocation & " " & RSRECURRING("vcState")
bLocation = true
end if
end if
if bLocation <> true then
vcLocation = ""
end if
blocation = false
%>
<%
eventsCount = eventsCount + 1
end if
end if
end if
RSRECURRING.MoveNext
wend
if(not RSRECURRING.EOF or not RSRECURRING.BOF)then
RSRECURRING.MoveFirst
end if
'END RECURRING EVENTS
%>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
<% Do while dateCounter <= lastDate %>
<% Do while weekCount <= 7
dateSelect = navmonth & "-"
if dateCounter <= 9 then
dateSelect = dateSelect & "0"
end if
dateSelect = dateselect & dateCounter & "-" & navyear %>
<% If dateCounter > lastDate Then %>
<% else %>
<%=dateCounter%>
<%
Do while (NOT RSEVENT.EOF)
'response.Write(dateselect)
vcLocation = ""
if(datediff("d", rsevent("dtdate"), dateSelect) < 0)then
exit do
end if
if datediff("d", rsevent("dtdate"), dateSelect) = 0 then
if rsConfiguration("bShowCityOnCalendar") then
if RSEVENT("vcCity") <> "" then
vcLocation = " - " & RSEVENT("vcCity")
if rsConfiguration("bShowStateOnCalendar") then
vcLocation = vcLocation & ","
end if
bLocation = true
end if
end if
if rsConfiguration("bShowStateOnCalendar") then
if RSEVENT("vcState") <> "" then
vcLocation = vcLocation & " " & RSEVENT("vcState")
bLocation = true
end if
end if
if bLocation <> true then
vcLocation = ""
end if
blocation = false
%>
<%
RSEVENT.movenext
else
RSEVENT.movenext
end if
Loop
if not rsevent.bof then
RSEVENT.MOVEFIRST
end if
%>
<%
'RECURRING EVENTS
while(not RSRECURRING.EOF)
vcLocation = ""
CalendarID = RSRECURRING("iCalendarID")
sSQL = "SELECT * FROM Calendar_Recurring_Event_Exceptions WHERE CalendarID = " & CalendarID & " AND datediff(" & GetDateDiffParameter("d",validateNumber(Session("DICalendar.iDBType"),DI_CALENDAR_DB_MSACCESS)) & ",dtExceptionDate,'" & dateSelect & "') = 0"
Set rsException = cnnCalendar.EXECUTE(sSQL)
if (rsException.EOF and rsException.BOF) then
startDate = RSRECURRING("dtStartDate")
endDate = RSRECURRING("dtEndDate")
freq=RSRECURRING("intRecurType")
difference = datediff("d", startDate, dateSelect)
endDifference = datediff("d", endDate, dateSelect)
if(difference >= 0 and endDifference <= 0)then
select case freq
case 1: difference = difference mod 1
case 2: difference = difference mod 7
case 3: difference = day(startdate) - day(dateSelect)
case 4: difference = difference mod (365 + Leap)
if(hasLeapOccured)then
difference = (difference-1)mod 365
end if
end select
if(difference = 0)then
if rsConfiguration("bShowCityOnCalendar") then
if RSRECURRING("vcCity") <> "" then
vcLocation = " - " & RSRECURRING("vcCity")
if rsConfiguration("bShowStateOnCalendar") then
vcLocation = vcLocation & ","
end if
bLocation = true
end if
end if
if rsConfiguration("bShowStateOnCalendar") then
if RSRECURRING("vcState") <> "" then
vcLocation = vcLocation & " " & RSRECURRING("vcState")
bLocation = true
end if
end if
if bLocation <> true then
vcLocation = ""
end if
blocation = false
%>
<%
eventsCount = eventsCount + 1
end if
end if
end if
RSRECURRING.MoveNext
wend
if(not RSRECURRING.EOF or not RSRECURRING.BOF)then
RSRECURRING.MoveFirst
end if
'END RECURRING EVENTS
%>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
<% Loop %>
<%
'*************************************************************************
'Cut this block to remove triple calendar display
'Also cut the block at the top of the page
intDisplayedCalendars = intDisplayedCalendars + 1
navmonth = navmonth + 1
WEND
'*************************************************************************
%>
<%
Divisions.Close()
Set Divisions = Nothing
%>
<% if rsConfiguration("bAllowUserEvents") then %>
Add/Edit
Event