<% set objEvent = Server.CreateObject("sdEvents.clsEvents") call objEvent.ConnectDB(0, cstr(gstrDSN)) call objEvent.LoadEventListBySiteID(clng(glngSiteID)) strEvents = "|" do while not objEvent.eof strEvents = strEvents & objEvent.EventTitle & "," & objEvent.EventDate & "-" & objEvent.ID & "|" objEvent.MoveNext loop set objCalendar = server.createObject("expCalendar.clsCalendar") objCalendar.dsn = gstrDSN if request("month") <> "" then lngDay = request("day") strView = "month" lngMonth = request("month") lngYear = request("year") else lngDay = day(date) lngMonth = month(date) lngYear = year(date) strView = "month" 'default view of calendar (e.g. "day", "month") end if if request("selDate") <> "" then lngMonth = month(request("selDate")) lngYear = year(request("selDate")) strView = "month" end if if request("day") = "" then lngDay = day(date) if strView = "month" then strBeginDate = cdate(lngMonth & "/01/" & lngYear) if lngMonth = 12 then strEndDate = cdate("01/01/" & (lngYear + 1)) else strEndDate = cdate((lngMonth + 1) & "/01/" & lngYear) else strBeginDate = cdate(lngMonth & "/" & lngDay & "/" & lngYear) strEndDate = dateadd("d",1,strBeginDate) 'response.write strBeginDate & " - " & strEndDate 'response.end end if if strView <> "month" then strDisplayDate = weekdayname(weekday(strBeginDate)) & ", " & monthname(lngMonth) & " " & lngDay & ", " & lngYear else strDisplayDate = monthname(lngMonth) & ", " & lngYear end if if strView = "month" then strDisplayDate = monthname(month(strBeginDate)) & " " & lngYear if lngMonth < 12 then strNextMonth = lngMonth + 1 strNextYear = lngYear else strNextMonth = "01" strNextYear = lngYear + 1 end if if lngMonth > 1 then strPrevMonth = lngMonth - 1 strPrevYear = lngYear else strPrevMonth = "12" strPrevYear = lngYear - 1 end if else strView = "day" strNextDay = day(dateadd("d",1,strBeginDate)) strNextMonth = month(dateadd("d",1,strBeginDate)) strNextYear = year(dateadd("d",1,strBeginDate)) strPrevDay = day(dateadd("d",-1,strBeginDate)) strPrevMonth = month(dateadd("d",-1,strBeginDate)) strPrevYear = year(dateadd("d",-1,strBeginDate)) end if lngCurrentMonth = month(date()) lngCurrentYear = year(date()) %> Calendar
Smoke Daddy
:: Browse by week :: This month's calendar

<% call objCalendar.LoadByMonth(clng(lngMonth), clng(lngYear)) do while not objCalendar.EndOfMonth %> <% strTitle = "" strDate = lngMonth & "/" & objCalendar.Sunday & "/" & lngYear if instr(strEvents, strDate) > 0 then blnMatch = true lngTitleStart = instrrev(strEvents, "|", instr(strEvents, strDate)) + 1 lngTitleEnd = instr(lngTitleStart + 1, strEvents, ",") lngEventStart = instr(lngTitleEnd, strEvents, "-") + 1 lngEventEnd = instr(lngEventStart, strEvents, "|") lngEventID = mid(strEvents, lngEventStart, lngEventEnd - lngEventStart) strTitle = "
" & mid(strEvents,lngTitleStart,lngTitleEnd-lngTitleStart) end if %> <% strTitle = "" strDate = lngMonth & "/" & objCalendar.Monday & "/" & lngYear if instr(strEvents, strDate) > 0 then blnMatch = true lngTitleStart = instrrev(strEvents, "|", instr(strEvents, strDate)) + 1 lngTitleEnd = instr(lngTitleStart + 1, strEvents, ",") lngEventStart = instr(lngTitleEnd, strEvents, "-") + 1 lngEventEnd = instr(lngEventStart, strEvents, "|") lngEventID = mid(strEvents, lngEventStart, lngEventEnd - lngEventStart) strTitle = "
" & mid(strEvents,lngTitleStart,lngTitleEnd-lngTitleStart) end if %> <% strTitle = "" strDate = lngMonth & "/" & objCalendar.Tuesday & "/" & lngYear if instr(strEvents, strDate) > 0 then blnMatch = true lngTitleStart = instrrev(strEvents, "|", instr(strEvents, strDate)) + 1 lngTitleEnd = instr(lngTitleStart + 1, strEvents, ",") lngEventStart = instr(lngTitleEnd, strEvents, "-") + 1 lngEventEnd = instr(lngEventStart, strEvents, "|") lngEventID = mid(strEvents, lngEventStart, lngEventEnd - lngEventStart) strTitle = "
" & mid(strEvents,lngTitleStart,lngTitleEnd-lngTitleStart) end if %> <% strTitle = "" strDate = lngMonth & "/" & objCalendar.Wednesday & "/" & lngYear if instr(strEvents, strDate) > 0 then blnMatch = true lngTitleStart = instrrev(strEvents, "|", instr(strEvents, strDate)) + 1 lngTitleEnd = instr(lngTitleStart + 1, strEvents, ",") lngEventStart = instr(lngTitleEnd, strEvents, "-") + 1 lngEventEnd = instr(lngEventStart, strEvents, "|") lngEventID = mid(strEvents, lngEventStart, lngEventEnd - lngEventStart) strTitle = "
" & mid(strEvents,lngTitleStart,lngTitleEnd-lngTitleStart) end if %> <% strTitle = "" strDate = lngMonth & "/" & objCalendar.Thursday & "/" & lngYear if instr(strEvents, strDate) > 0 then blnMatch = true lngTitleStart = instrrev(strEvents, "|", instr(strEvents, strDate)) + 1 lngTitleEnd = instr(lngTitleStart + 1, strEvents, ",") lngEventStart = instr(lngTitleEnd, strEvents, "-") + 1 lngEventEnd = instr(lngEventStart, strEvents, "|") lngEventID = mid(strEvents, lngEventStart, lngEventEnd - lngEventStart) strTitle = "
" & mid(strEvents,lngTitleStart,lngTitleEnd-lngTitleStart) end if %> <% strTitle = "" strDate = lngMonth & "/" & objCalendar.Friday & "/" & lngYear if instr(strEvents, strDate) > 0 then blnMatch = true lngTitleStart = instrrev(strEvents, "|", instr(strEvents, strDate)) + 1 lngTitleEnd = instr(lngTitleStart + 1, strEvents, ",") lngEventStart = instr(lngTitleEnd, strEvents, "-") + 1 lngEventEnd = instr(lngEventStart, strEvents, "|") lngEventID = mid(strEvents, lngEventStart, lngEventEnd - lngEventStart) strTitle = "
" & mid(strEvents,lngTitleStart,lngTitleEnd-lngTitleStart) end if %> <% strTitle = "" strDate = lngMonth & "/" & objCalendar.Saturday & "/" & lngYear if instr(strEvents, strDate) > 0 then blnMatch = true lngTitleStart = instrrev(strEvents, "|", instr(strEvents, strDate)) + 1 lngTitleEnd = instr(lngTitleStart + 1, strEvents, ",") lngEventStart = instr(lngTitleEnd, strEvents, "-") + 1 lngEventEnd = instr(lngEventStart, strEvents, "|") lngEventID = mid(strEvents, lngEventStart, lngEventEnd - lngEventStart) strTitle = "
" & mid(strEvents,lngTitleStart,lngTitleEnd-lngTitleStart) end if %> <% strTitle = "" %> <% objCalendar.NextWeek loop %>
<= <%=monthname(strPrevMonth) & " - " & strPrevYear%>     <%=monthname(lngMonth) & " " & lngYear%>   <%=monthname(strNextMonth) & " - " & strNextYear%> =>
SundayMondayTuesdayWednesdayThursdayFridaySaturday
<%if objCalendar.Sunday <> "" then%><%=objCalendar.sunday%><%=strTitle%><%end if%> <%if objCalendar.Monday <> "" then%><%=objCalendar.Monday%><%=strTitle%><%end if%> <%if objCalendar.Tuesday <> "" then%><%=objCalendar.Tuesday%><%=strTitle%><%end if%> <%if objCalendar.Wednesday <> "" then%><%=objCalendar.Wednesday%><%=strTitle%><%end if%> <%if objCalendar.Thursday <> "" then%><%=objCalendar.Thursday%><%=strTitle%><%end if%> <%if objCalendar.Friday <> "" then%><%=objCalendar.Friday%><%=strTitle%><%end if%> <%if objCalendar.Saturday <> "" then%><%=objCalendar.Saturday%><%=strTitle%><%end if%> 

close window <% set objEvent = nothing %>