<%@ LANGUAGE=VBSCRIPT %> <% Response.Buffer = True %> [an error occurred while processing this directive] <% Function InDateRange(CompareDate, StartRange, EndRange) idrFlag = False If IsNull(EndRange) Or Len(EndRange) = 0 Then EndRange = StartRange If DateValue(CompareDate) >= DateValue(StartRange) And DateValue(CompareDate) <= DateValue(EndRange) Then idrFlag = True InDateRange = idrFlag End Function %> Town of Orleans - Town Council
 
<% '-------------------------------------------------------------------------' ' ASP Calendar Engine v1.0 - by Timothy M. Lasek. ' ' Copyright(c) 1999, 2000 - Lasek Technologies. All Rights Reserved. ' ' Last Revision Date: 12/23/1999 ' '-------------------------------------------------------------------------' ' Notes: ' ' reduced code size by 17000 bytes ' ' search supports formats: mm/dd & mm/dd/yy ' ' search supports characters: /\.:;,_+-[space] ' ' returns variables: ' ' DaySelected = weekday name of date selected ' ' DateSelected = date selected in format (mm/yy) or (mm/dd/yy) ' ' CmdSelected = "day" or "month" ' '-------------------------------------------------------------------------' '--> default configuration tablewidth = 325 border = 0 cellpadding = 0 cellspacing = 1 tableback = "#28323D" topcellback = "#28323D" cellwidth = "14%" cellheight = "20" cellback1 = "#A9E2A6" cellback = "#EEFAED" fontface = "arial, verdana, helvetica" monthyearcolor = "white" nextprevcolor = "white" weekdaycolor = "black" userollover = True uselinkunderline = False linkcolor = "#28323D" alinkcolor = "#000000" vlinkcolor = "#28323D" returnto = "default.asp" '--> this sets min/max date ranges to + and - one year of the current month '--> to diasable set both variables to "" 'mindaterange = DateValue(Month(Date) & "/" & Year(Date) - 1) 'maxdaterange = DateValue(Month(Date) & "/" & Year(Date) + 1) '--> end default configuration %> <% If userollover = True Then %> <% End If %> <% If uselinkunderline = False Then %> <% End If %> <% mMonth = Month(Date) yYear = Year(Date) SearchEnd = Request.Form("searchend") For sCount = 1 To Len(SearchEnd) tChr = Mid(SearchEnd, sCount, 1) If tChr = "." Or tChr = "," Or tChr = "\" Or tChr = " " Then tChr = "/" If tChr = ":" Or tChr = ";" Or tChr = "_" Or tChr = "+" Then tChr = "/" If tChr = "/" Or tChr = "-" Then SlashCount = SlashCount + 1 tStr = tStr & tChr Next SearchEnd = tStr If Len(SearchEnd) = 0 Then SearchEnd = Request.Querystring("e") If Len(SearchEnd) > 0 Then If IsDate(SearchEnd) Then SearchEnd = DateValue(SearchEnd) Else SearchEnd = "" End If End If Comd = Request.QueryString("cmd") If Comd = "search" Then SearchDate = Request.Form("searchdate") If SearchDate <> "" Then SlashCount = 0 tStr = "" For sCount = 1 To Len(SearchDate) tChr = Mid(SearchDate, sCount, 1) If tChr = "." Or tChr = "," Or tChr = "\" Or tChr = " " Then tChr = "/" If tChr = ":" Or tChr = ";" Or tChr = "_" Or tChr = "+" Then tChr = "/" If tChr = "/" Or tChr = "-" Then SlashCount = SlashCount + 1 tStr = tStr & tChr Next SearchDate = tStr If IsDate(SearchDate) = True Then mMonth = Month(DateValue(SearchDate)) yYear = Year(DateValue(SearchDate)) If SlashCount = 2 Then dDay = Day(DateValue(SearchDate)) Response.Redirect(returnto & "?m=" & mMonth & "&d=" & dDay & "&y=" & yYear & "&cmd=day&e=" & Server.URLencode(SearchEnd)) End If End If Else mMonth = Request.QueryString("m") yYear = Request.QueryString("y") End If End If If Comd <> "" And Comd <> "search" Then mMonth = Request.QueryString("m") yYear = Request.QueryString("y") If Comd = "prev" Then If mMonth = 1 Then mMonth = 12 yYear = Year(DateValue("1/1/" & yYear) - 1) Else mMonth = mMonth - 1 End If End If If Comd = "next" Then If mMonth = 12 Then mMonth = 1 yYear = Year(DateValue("12/31/" & yYear) + 1) Else mMonth = mMonth + 1 End If End If End If tDateStr = DateValue(CStr(mMonth) & "/1/" & CStr(yYear)) iMonth = Month(tDateStr) iYear = Year(tDateStr) iFirstWeekDay = WeekDay(tDateStr) iDayCount = 1 iStartCount = 0 If iMonth > 0 And iMonth < 12 Then NextMonthDate = DateValue(CStr(iMonth + 1) & "/1/" & CStr(iYear)) LastDayofMonth = Day(DateValue(NextMonthDate) - 1) ElseIf iMonth = 12 Then LastDayOfMonth = 31 End If '--> shows current date underlined '--> use this or the sub below, not both 'Sub NextDay ' iStartCount = iStartCount + 1 ' If iStartCount >= iFirstWeekDay And iDayCount <= LastDayOfMonth Then ' todMonth = Month(Date) ' todDay = Day(Date) ' If todMonth = iMonth And iDayCount = todDay Then ' Response.Write("" & iDayCount & "") ' Else ' Response.Write(iDayCount) ' End If ' iDayCount = iDayCount + 1 ' End If 'End Sub '--> shows current date selected underlined '--> use this or the sub above, not both. Sub NextDay iStartCount = iStartCount + 1 If iStartCount >= iFirstWeekDay And iDayCount <= LastDayOfMonth Then mm = Request.QueryString("m") dd = Request.QueryString("d") yy = Request.QueryString("y") If mm <> "" And dd <> "" And yy <> "" Then If CInt(iDayCount) = CInt(dd) Then Response.Write("" & iDayCount & "") Else Response.Write(iDayCount) End If Else Response.Write(iDayCount) End If iDayCount = iDayCount + 1 Else ' could put next/prev months's day number here instead of empty space Response.Write(" ") End If End Sub Sub ThisDay If (iStartCount + 1) >= iFirstWeekDay And iDayCount <= LastDayOfMonth Then Response.Write(iDayCount) End If End Sub '--> check for min/max date ranges If mindaterange <> "" Then If DateValue(iMonth & "/" & iYear) < DateValue(mindaterange) Then Response.Redirect("default.asp?m=" & Month(mindaterange) & "&y=" & Year(mindaterange) & "&cmd=search") End If End If If maxdaterange <> "" Then If DateValue(iMonth & "/" & iYear) > DateValue(maxdaterange) Then Response.Redirect("default.asp?m=" & Month(maxdaterange) & "&y=" & Year(maxdaterange) & "&cmd=search") End If End If %>
<<MONTH>> <%= MonthName(iMonth) & " " & iYear %> <<YEAR>>
<% For rIndex = 1 To 5 %> <% Next %> <% If iDayCount <= LastDayOfMonth Then %> <% End If %>
Sun Mon Tue Wed Thr Fri Sat
<% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %>
<% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %> <% NextDay %>
<% cmd = Request.QueryString("cmd") mm = Request.QueryString("m") dd = Request.QueryString("d") yy = Request.QueryString("y") If cmd = "day" Then DateSelected = DateValue(mm & "/" & dd & "/" & yy) CmdSelected = "day" ElseIf cmd = "search" Then DateSelected = iMonth & "/" & iyear CmdSelected = "month" Else If cmd = "prev" Then mm = mm - 1 If mm < 1 Then mm = 12: yy = yy - 1 End If If cmd = "next" Then mm = mm + 1 If mm > 12 Then mm = 1: yy = yy + 1 End If If yy = -1 Then mm = iMonth: yy = iYear End If DateSelected = mm & "/" & yy CmdSelected = "month" End If Function ReturnWeekDay(DateStr) rwdStr = "" DayVal = WeekDay(DateStr, 1) If DayVal = 1 Then rwdStr = "Sunday" If DayVal = 2 Then rwdStr = "Monday" If DayVal = 3 Then rwdStr = "Tuesday" If DayVal = 4 Then rwdStr = "Wednesday" If DayVal = 5 Then rwdStr = "Thursday" If DayVal = 6 Then rwdStr = "Friday" If DayVal = 7 Then rwdStr = "Saturday" ReturnWeekDay = rwdStr End Function DaySelected = "" If CmdSelected = "day" Then DaySelected = ReturnWeekDay(DateSelected) End If %>
DATE:
<% 'EventCat = Request.Querystring("cat") 'If EventCat <> "" Then Session("EventCat") = EventCat 'EventCat = Session("EventCat") EventCat = "Events": Session("EventCat") = "Events" Function NotFound(CatStr, CatArray) nfFlag = True If CatArray(0) > 0 Then For nfIndex = 1 To CatArray(0) If LCase(CatStr) = LCase(CatArray(nfIndex)) Then nfFlag = False nfIndex = CatArray(0) End If Next End If NotFound = nfFlag End Function If IsNull(Session("UserID")) = True Or Len(Session("UserID")) = 0 Or Session("UserID")= "" Or Session("UserID") = 0 Or Session("AccessLvl") < 3 Then SQLstr = "SELECT Category, Enabled FROM EventsCalendar WHERE Enabled = 1 AND Approved = 1 ORDER BY Category ASC" Else SQLstr = "SELECT Category, Enabled FROM EventsCalendar ORDER BY Category ASC" End If OpenMDB Db, SQLstr RecordCount = Db.RecordCount ReDim Categories(0): Categories(0) = 0 If Db.RecordCount > 0 Then ReDim Categories(Db.RecordCount) Categories(0) = 0 While Db.EOF = False If NotFound(Db("Category"), Categories) Then Categories(0) = Categories(0) + 1 Categories(Categories(0)) = Db("Category") End If Db.MoveNext Wend End If Set Db = Nothing %>
<% dRange = DateValue(DateSelected): dRange2 = SearchEnd If IsNull(dRange2) = False And Len(dRange2) > 0 Then dRange2 = DateValue(SearchEnd) If DateSelected <> "" And SearchEnd <> "" Then EventStr = "Events For " & FormatDateTime(dRange, 1) & " - " & FormatDateTime(dRange2, 1) ElseIf CmdSelected = "month" Then EventStr = "Events For " & MonthName(Month(dRange)) & " " & Year(dRange) ElseIf CmdSelected = "day" Then EventStr = "Events For " & FormatDateTime(dRange, 1) End If %> <% CellCol = cfg_TableCellCol1 %> <% CellCol2 = cfg_TableCellCol2 %> <% DbCount = 0 %> <% If DateSelected <> "" And SearchEnd <> "" Then %> <% If IsNull(Session("UserID")) = True Or Len(Session("UserID")) = 0 Or Session("UserID")= "" Or Session("UserID") = 0 Or Session("AccessLvl") < 3 Then SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' AND Enabled = 1 AND Approved = 1 ORDER BY StartDate ASC" Else SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' ORDER BY StartDate ASC" End If OpenMDB Db, SQLstr RecordCount = 0 'temp If Db.RecordCount > 0 Then While Db.Eof = False sRange = Db("StartDate"): eRange = Db("EndDate") dRange = DateValue(DateSelected): dRange2 = DateValue(SearchEnd) If IsNull(eRange) Or Len(eRange) = 0 Then eRange = sRange If InDateRange(sRange, dRange, dRange2) Or InDateRange(eRange, dRange, dRange2) Then DbCount = DbCount + 1: RecordCount = RecordCount + 1 %> <% If CellCol = cfg_TableCellCol1 Then CellCol = cfg_TableCellCol2 Else CellCol = cfg_TableCellCol1 End If FullDesc = Db("FullDescription") CutFlag = False If Len(FullDesc) >= 300 Then CutFlag = True FullDesc = Left(FullDesc, 300) & "..." End If Emails = Db("ContactEmail") If Emails <> "" Then Emails = Left(Emails, Len(Emails) - 1): Emails = Right(Emails, Len(Emails) - 1) End If Phones = Db("ContactPhone") If Phones <> "" Then Phones = Left(Phones, Len(Phones) - 1): Phones = Right(Phones, Len(Phones) - 1) End If Links = Db("Links") If Links <> "" Then Links = Left(Links, Len(Links) - 1): Links = Right(Links, Len(Links) - 1) End If UnqID = Db("UnqID"): PicName = "" If FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".gif") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".gif" ElseIf FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".jpg") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".jpg" ElseIf FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".bmp") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".bmp" End If If Db("ImageEnabled") = False Then PicName = "" %> <% 'If Session("UserID") > 0 And Session("AccessLvl") = 3 Then %> <% If CheckPermissions("admin-master or admin-events", "") = True Then %> <% End If %> <% End If Db.MoveNext Wend End If Set Db = Nothing %> <% ElseIf CmdSelected = "month" Then %> <% If IsNull(Session("UserID")) = True Or Len(Session("UserID")) = 0 Or Session("UserID")= "" Or Session("UserID") = 0 Or Session("AccessLvl") < 3 Then SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' AND Enabled = 1 AND Approved = 1 ORDER BY StartDate ASC" Else SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' ORDER BY StartDate ASC" End If OpenMDB Db, SQLstr RecordCount = 0 'temp If Db.RecordCount > 0 Then While Db.Eof = False sRange = Db("StartDate"): eRange = Db("EndDate"): dRange = DateValue(DateSelected) smm = Month(sRange): syy = Year(sRange) dmm = Month(dRange): dyy = Year(dRange) If dmm = smm And dyy = syy Or InDateRange(dRange, sRange, eRange) Then DbCount = DbCount + 1: RecordCount = RecordCount + 1 %> <% If CellCol = cfg_TableCellCol1 Then CellCol = cfg_TableCellCol2 Else CellCol = cfg_TableCellCol1 End If FullDesc = Db("FullDescription") CutFlag = False If Len(FullDesc) >= 300 Then CutFlag = True FullDesc = Left(FullDesc, 300) & "..." End If Emails = Db("ContactEmail") If Emails <> "" Then Emails = Left(Emails, Len(Emails) - 1): Emails = Right(Emails, Len(Emails) - 1) End If Phones = Db("ContactPhone") If Phones <> "" Then Phones = Left(Phones, Len(Phones) - 1): Phones = Right(Phones, Len(Phones) - 1) End If Links = Db("Links") If Links <> "" Then Links = Left(Links, Len(Links) - 1): Links = Right(Links, Len(Links) - 1) End If UnqID = Db("UnqID"): PicName = "" If FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".gif") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".gif" ElseIf FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".jpg") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".jpg" ElseIf FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".bmp") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".bmp" End If If Db("ImageEnabled") = False Then PicName = "" %> <% 'If Session("UserID") > 0 And Session("AccessLvl") = 3 Then %> <% If CheckPermissions("admin-master or admin-events", "") = True Then %> <% End If %> <% End If Db.MoveNext Wend End If Set Db = Nothing %> <% ElseIf CmdSelected = "day" Then %> <% If IsNull(Session("UserID")) = True Or Len(Session("UserID")) = 0 Or Session("UserID")= "" Or Session("UserID") = 0 Or Session("AccessLvl") < 3 Then SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' AND Enabled = 1 AND Approved = 1 ORDER BY StartDate ASC" Else SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' ORDER BY StartDate ASC" End If OpenMDB Db, SQLstr RecordCount = 0 'temp If Db.RecordCount > 0 Then While Db.Eof = False sRange = Db("StartDate"): eRange = Db("EndDate"): dRange = DateValue(DateSelected) If dRange = sRange Or InDateRange(dRange, sRange, eRange) Then DbCount = DbCount + 1: RecordCount = RecordCount + 1 %> <% If CellCol = cfg_TableCellCol1 Then CellCol = cfg_TableCellCol2 Else CellCol = cfg_TableCellCol1 End If FullDesc = Db("FullDescription") CutFlag = False If Len(FullDesc) >= 300 Then CutFlag = True FullDesc = Left(FullDesc, 300) & "..." End If Emails = Db("ContactEmail") If Emails <> "" Then Emails = Left(Emails, Len(Emails) - 1): Emails = Right(Emails, Len(Emails) - 1) End If Phones = Db("ContactPhone") If Phones <> "" Then Phones = Left(Phones, Len(Phones) - 1): Phones = Right(Phones, Len(Phones) - 1) End If Links = Db("Links") If Links <> "" Then Links = Left(Links, Len(Links) - 1): Links = Right(Links, Len(Links) - 1) End If UnqID = Db("UnqID"): PicName = "" If FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".gif") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".gif" ElseIf FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".jpg") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".jpg" ElseIf FileFound(cfg_PhysicalPath & "_uploads2001\events_" & UnqID & ".bmp") Then PicName = cfg_VirtualPath & "_uploads2001/events_" & UnqID & ".bmp" End If If Db("ImageEnabled") = False Then PicName = "" %> <% 'If Session("UserID") > 0 And Session("AccessLvl") = 3 Then %> <% If CheckPermissions("admin-master or admin-events", "") = True Then %> <% End If %> <% End If Db.MoveNext Wend End If Set Db = Nothing %> <% End If %> <% If DbCount = 0 Then %> <% 'If Session("UserID") > 0 And Session("AccessLvl") = 3 Then %> <% 'End If %> <% End If %>
<%= EventStr %>
<%= FormatDateTime(Db("StartDate"), 1) %> <% If Len(Db("EndDate")) > 0 Then %> - <%= FormatDateTime(Db("EndDate"), 1) %> <% End If %> <% If Session("UserID") > 0 And Session("AccessLvl") = 3 And Db("Approved") = False Then %> (no approval) <% End If %> <% If Db("Enabled") = False Then %> (disabled) <% End If %>
<%= UCase(Db("EventName")) %>
<% If Db("EventCity") <> "" Then %> <%= Db("EventCity") %> <% If Db("State") <> "" Then Response.Write(", " & Db("State")) %> <% End If %> <% If Db("Directions") <> "" Then %> <%= Db("Directions") %>
<% End If %> <% If Db("FullDescription") <> "" Then %> <%= FullDesc %>
<% End If %> <% If CutFlag = True And PicName = "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Full Description Available
<% End If %> <% If CutFlag = True And PicName <> "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Full Description & Picture Available
<% End If %> <% If CutFlag = False And PicName <> "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Picture Available
<% End If %> <% If Db("ContactEmail") <> "" Then %> Email Contacts:
<% eArray = Split(Emails, Chr(149)) For eIndex = 0 To UBound(eArray) eArray2 = Split(eArray(eIndex), Chr(150)) %> " border="0" alt="<%= "Click here to send a message to " & eArray2(0) %>"> <% Response.Write(eArray2(0) & "
") Next %> <% End If %> <% If Db("ContactPhone") <> "" Then %>
Phone Contacts: <% eArray = Split(Phones, Chr(149)) For eIndex = 0 To UBound(eArray) eArray2 = Split(eArray(eIndex), Chr(150)) If IsNull(eArray2(0)) = False And Len(eArray2(0)) > 0 Then Response.Write(eArray2(0)) Else Response.Write("Call") End If If IsNull(eArray2(1)) = False And Len(eArray2(1)) > 0 Then Response.Write(" - " & eArray2(1) & "
") Next %> <% End If %> <% If Db("Links") <> "" Then %> <% eArray = Split(Links, Chr(149)) %> Website: <% For eIndex = 0 To UBound(eArray) %> <%= eArray(eIndex) %>
<% Next %> <% End If %>
<% If Session("UserID") > 0 And Session("AccessLvl") = 3 And Db("Approved") = False Then %> &d=<%= Request.QueryString("d") %>&y=<%= Request.QueryString("y") %>&cmd=<%= Request.QueryString("cmd") %>&e=<%= Request.QueryString("e") %>&eid=<%= Db("UnqID") %>"> <% End If %> <% ClassSignup = Db("ClassSignup") %> <% If ClassSignup = True Then %> Click here to signup for this class.

<% End If %>
&e=<%= Server.URLencode(SearchEnd) %>">edit | &e=<%= Server.URLencode(SearchEnd) %>">delete | new | admin main | logoff
<%= FormatDateTime(Db("StartDate"), 1) %> <% If Len(Db("EndDate")) > 0 Then %> - <%= FormatDateTime(Db("EndDate"), 1) %> <% End If %> <% If Session("UserID") > 0 And Session("AccessLvl") = 3 And Db("Approved") = False Then %> (no approval) <% End If %> <% If Db("Enabled") = False Then %> (disabled) <% End If %>
<%= UCase(Db("EventName")) %>
<% If Db("EventCity") <> "" Then %> <%= Db("EventCity") %> <% If Db("State") <> "" Then Response.Write(", " & Db("State")) %> <% End If %> <% If Db("Directions") <> "" Then %> <%= Db("Directions") %>
<% End If %> <% If Db("FullDescription") <> "" Then %> <%= FullDesc %>
<% End If %> <% If CutFlag = True And PicName = "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Full Description Available
<% End If %> <% If CutFlag = True And PicName <> "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Full Description & Picture Available
<% End If %> <% If CutFlag = False And PicName <> "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Picture Available
<% End If %> <% If Db("ContactEmail") <> "" Then %> Email Contacts:
<% eArray = Split(Emails, Chr(149)) For eIndex = 0 To UBound(eArray) eArray2 = Split(eArray(eIndex), Chr(150)) %> " border="0" alt="<%= "Click here to send a message to " & eArray2(0) %>"> <% Response.Write(eArray2(0) & "
") Next %> <% End If %> <% If Db("ContactPhone") <> "" Then %>
Phone Contacts: <% eArray = Split(Phones, Chr(149)) For eIndex = 0 To UBound(eArray) eArray2 = Split(eArray(eIndex), Chr(150)) If IsNull(eArray2(0)) = False And Len(eArray2(0)) > 0 Then Response.Write(eArray2(0)) Else Response.Write("Call") End If If IsNull(eArray2(1)) = False And Len(eArray2(1)) > 0 Then Response.Write(" - " & eArray2(1) & "
") Next %> <% End If %> <% If Db("Links") <> "" Then %> <% eArray = Split(Links, Chr(149)) %> Website: <% For eIndex = 0 To UBound(eArray) %> <%= eArray(eIndex) %>
<% Next %> <% End If %>
<% If Session("UserID") > 0 And Session("AccessLvl") = 3 And Db("Approved") = False Then %> &d=<%= Request.QueryString("d") %>&y=<%= Request.QueryString("y") %>&cmd=<%= Request.QueryString("cmd") %>&e=<%= Request.QueryString("e") %>&eid=<%= Db("UnqID") %>"> <% End If %> <% ClassSignup = Db("ClassSignup") %> <% If ClassSignup = True Then %> Click here to signup for this class.

<% End If %>
&e=<%= Server.URLencode(SearchEnd) %>">edit | &e=<%= Server.URLencode(SearchEnd) %>">delete | new | admin main | logoff
<%= FormatDateTime(Db("StartDate"), 1) %> <% If Len(Db("EndDate")) > 0 Then %> - <%= FormatDateTime(Db("EndDate"), 1) %> <% End If %> <% If Session("UserID") > 0 And Session("AccessLvl") = 3 And Db("Approved") = False Then %> (no approval) <% End If %> <% If Db("Enabled") = False Then %> (disabled) <% End If %>
<%= UCase(Db("EventName")) %>
<% If Db("EventCity") <> "" Then %> <%= Db("EventCity") %> <% If Db("State") <> "" Then Response.Write(", " & Db("State")) %> <% End If %> <% If Db("Directions") <> "" Then %> <%= Db("Directions") %>
<% End If %> <% If Db("FullDescription") <> "" Then %> <%= FullDesc %>
<% End If %> <% If CutFlag = True And PicName = "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Full Description Available
<% End If %> <% If CutFlag = True And PicName <> "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Full Description & Picture Available
<% End If %> <% If CutFlag = False And PicName <> "" Then %> &e=<%= Server.URLencode(SearchEnd) %>">Picture Available
<% End If %> <% If Db("ContactEmail") <> "" Then %> Email Contacts:
<% eArray = Split(Emails, Chr(149)) For eIndex = 0 To UBound(eArray) eArray2 = Split(eArray(eIndex), Chr(150)) %> " border="0" alt="<%= "Click here to send a message to " & eArray2(0) %>"> <% Response.Write(eArray2(0) & "
") Next %> <% End If %> <% If Db("ContactPhone") <> "" Then %>
Phone Contacts: <% eArray = Split(Phones, Chr(149)) For eIndex = 0 To UBound(eArray) eArray2 = Split(eArray(eIndex), Chr(150)) If IsNull(eArray2(0)) = False And Len(eArray2(0)) > 0 Then Response.Write(eArray2(0)) Else Response.Write("Call") End If If IsNull(eArray2(1)) = False And Len(eArray2(1)) > 0 Then Response.Write(" - " & eArray2(1) & "
") Next %> <% End If %> <% If Db("Links") <> "" Then %> <% eArray = Split(Links, Chr(149)) %> Website: <% For eIndex = 0 To UBound(eArray) %> <%= eArray(eIndex) %>
<% Next %> <% End If %>
<% If Session("UserID") > 0 And Session("AccessLvl") = 3 And Db("Approved") = False Then %> &d=<%= Request.QueryString("d") %>&y=<%= Request.QueryString("y") %>&cmd=<%= Request.QueryString("cmd") %>&e=<%= Request.QueryString("e") %>&eid=<%= Db("UnqID") %>"> <% End If %> <% ClassSignup = Db("ClassSignup") %> <% If ClassSignup = True Then %> Click here to signup for this class.

<% End If %>
&e=<%= Server.URLencode(SearchEnd) %>">edit | &e=<%= Server.URLencode(SearchEnd) %>">delete | new | admin main | logoff
No Events Found.
new | admin main | logoff


[an error occurred while processing this directive]
Town of Orleans
P.O. Box 103
20558 Sunrise Avenue
LaFargeville, NY 13656

Phone 315.658.9950
Fax 315.658.2513
TDD 800.662.1220
 
 
 
   
   

DOWNLOAD
A COPY OF
THE ORLEANS
TOWNSHIP
 VISITORS GUIDE
 HERE