For
more info call
917-940-1692 or email to discuss how we can help you.
<%
' **************************************************************************************
' **************************************************************************************
' ** **
' ** 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]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
iCalendarID = Request("CalendarID")
if not isNumeric(iCalendarID) or iCalendarID = "" then
iCalendarID = 0
end if
iUserID = Session("MM_UserID")
if not isNumeric(iCalendarID) or iUserID = "" then
iUserID = 0
end if
Set myDBObjects = New ClosableObjectList
Set cnnCalendar = Server.CreateObject("ADODB.Connection")
myDBObjects.AddObject(cnnCalendar)
cnnCalendar.OPEN MM_calendar_STRING
bAllowEdit = false
if Session("MM_Username") <> "" then
bAdmin = CBOOL(instr(vcAdminAuthorization,Session("MM_UserAuthorization")) > 0)
bAllowEdit = bAdmin
if not bAllowEdit then
sSQL = "SELECT * FROM Calendar_Event_Users WHERE UserID = " & iUserID & " AND CalendarID = " & iCalendarID
Set rsUserEvent = cnnCalendar.EXECUTE(sSQL)
myDBObjects.AddObject(rsUserEvent)
if not (rsUserEvent.EOF and rsUserEvent.BOF) then
bAllowEdit = true
end if
sSQL = "SELECT * FROM Calendar_User_Division_Permissions WHERE bEditEvent = -1 AND intDivisionID IN (SELECT intDivisionID FROM Calendar WHERE CalendarID = " & iCalendarID & ")"
Set rsUserEvent = cnnCalendar.EXECUTE(sSQL)
if not (rsUserEvent.EOF and rsUserEvent.BOF) then
bAllowEdit = true
end if
end if
end if
%>
<%
Dim Prices__MMColParam
Prices__MMColParam = "1"
If (Request.QueryString("CalendarID") <> "") AND isNumeric(Request("CalendarID")) Then
Prices__MMColParam = Request.QueryString("CalendarID")
End If
%>
<%
Dim Prices
Dim Prices_numRows
Set Prices = Server.CreateObject("ADODB.Recordset")
Prices.ActiveConnection = MM_calendar_STRING
Prices.Source = "SELECT * FROM Calendar_Prices WHERE CalendarID = " + Replace(Prices__MMColParam, "'", "''") + ""
Prices.CursorType = 0
Prices.CursorLocation = 2
Prices.LockType = 1
Prices.Open()
Prices_numRows = 0
%>
<%
'07/11/04
'Desc: Removed the Dim variable names
'Dim Repeat1__numRows
'Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Prices_numRows = Prices_numRows + Repeat1__numRows
%>
<%
Dim Events__MMColParam
Events__MMColParam = "1"
If (Request.QueryString("CalendarID") <> "") AND isNumeric(Request.QueryString("CalendarID")) Then
Events__MMColParam = Request.QueryString("CalendarID")
End If
%>
<%
Dim Events__MMDiv
Events__MMDiv = ""
If (Request.QueryString("DivisionID") <> "") Then
Events__MMDiv = " AND intDivisionID = " & Request.QueryString("DivisionID")
End If
%>
<%
Dim Events
Dim Events_numRows
Set Events = Server.CreateObject("ADODB.Recordset")
Events.ActiveConnection = MM_calendar_STRING
Events.Source = "SELECT Calendar.intTopic as iTopic, Calendar.CalendarID as iCalendarID, * FROM ((Calendar_Recurring_Events INNER JOIN Calendar on Calendar_Recurring_Events.CalendarID = Calendar.CalendarID) INNER JOIN Calendar_Recurring_Events_Type ON Calendar_Recurring_Events.intRecurType = Calendar_Recurring_Events_Type.intRecurTypeID) LEFT JOIN Calendar_Topics on Calendar.intTopic = Calendar_Topics.intTopic WHERE Calendar.intInstallationID = " & Session("intInstallationID") & " AND Calendar.CalendarID = " + Replace(Events__MMColParam, "'","''") + " " + Events__MMDiv
Events.CursorType = 0
Events.CursorLocation = 2
Events.LockType = 1
Events.Open()
Events_numRows = 0
%>
<% if not Events.EOF or not Events.BOF then %>
<% end if %>
<%
vcPriceField = "intPrice"
if(datediff("d",Events("dtLatePriceDate"),DATE())>=0)then
vcPriceField = "intLatePrice"
end if
%>
<%
bPrices = false
While ((Repeat1__numRows <> 0) AND (NOT Prices.EOF))
if (Prices(vcPriceField) <> 0 and not isNull(Prices(vcPriceField)))then
bPrices = true
sPrices = sPrices & Prices.Fields.Item("vcPriceDesc").Value & ": $" & Prices.Fields.Item(vcPriceField).Value & " "
end if
Prices.MoveNext()
Wend
%>
<% if bPrices then %>
Price
<%=sPrices%>
<% end if %>
<% if rsConfiguration("bShowMoreInfoLink") then %>
<% if Events("vcLink") <> "" and Events("vcLink") <>"http://" then %>
<% end if %>
<% end if %>
<% if rsConfiguration("bAllowTopics") then %>
Topic
<%if Events("iTopic") = "0" or Events("iTopic") = "" or isnull(Events("iTopic")) then %>
None
<% else %>
<%=(Events.Fields.Item("vcTopic").Value)%>
<% end if %>
<% end if %>
<% If rsConfiguration("bShowRecurringFrequency") then %>
Frequency
<%=(Events.Fields.Item("vcRecurDesc").Value)%>
<% End If %>
<% if rsConfiguration("bAllowRegistrations") then %>
<% if Events("bRequireRegistration") <> 0 then %>
<%
bRegClosed = false
if(not isNull(Events("dtRegistrationClosed")) and Events("dtRegistrationClosed") <> "") then
bRegClosed = datediff("d",Events("dtRegistrationClosed"),DATE())>=0
end if
bRegClosed = bRegClosed or (CINT(Events("bRequireRegistration"))=2)
%>
<%bRegClosed = bRegClosed or (CINT(Events("bRequireRegistration"))=2)%>
<%if not bRegClosed then %>
<%
if rsConfiguration("bMaximumAttendance") then
set objConn = Server.CreateObject("ADODB.Connection")
objConn.OPEN MM_calendar_STRING
set objAttendanceCount = objConn.EXECUTE("SELECT COUNT(*) as intAttendanceCount FROM Calendar_Registrations WHERE CalendarID = " & Request("CalendarID"))
if Events("intMaxAttendance") <= objAttendanceCount("intAttendanceCount") and Events("intMaxAttendance") > 0 then
%>
Registration for this event has been closed because all available openings have been filled.
Edit
Event 
Return to Calendar