<%@ Language="VBScript"%> <% Option Explicit %> <% GetConfigVariables SetupDatabase dim iCalendarid, iMonth, iYear, sResult, vCalendarInfo, vDateInfo, iDateArraySize, index dim bIsAdminOrModerator, bCheckInRestrictedList, dStartDate, dEndDate, iCurrentWeekday, dCurrentDate, iMonthNum, iEndMonth, iEndYear, iMonthChoice dim sCats, iMonths, iLocal, matchnull iCalendarid = ValidateNumeric(request("Cal")) iMonth = ValidateNumeric(request("month")) iMonthChoice = ValidateNumeric(request("MonthChoice")) iYear = ValidateNumeric(request("year")) iLocal = ValidateNumeric(request("Mylocation")) sCats=(request("Cats")) iMonthNum = request("MonthNum") 'response.write sCats if (((iLocal = "0") or (iLocal = "")) and ((sCats = "0") or (sCats = ""))) _ and (iCalendarid = 187) then GetError() end if if ((iMonth) = 0) or ((iMonth) = "") then iMonth = month(now) end if if (iYear) = 0 then iYear = year(now) iEndYear = iYear vCalendarInfo = GetCalendarInfo (sCats, iCalendarid, iLocal) if iMonthChoice <> 0 then iMonth = iMonthChoice if iMonth = 12 then iEndMonth = 1 iEndYear = iYear + 1 else iMonth = iMonthChoice iEndMonth = iMonthChoice +1 end if else if (iMonthNum < 1) or (iMonthNum > 24) then iEndMonth = iMonth+3 else iEndMonth = iMonth + iMonthNum end if end if if request("startdaterange") = "" then dStartDate = dateSerial(iYear, iMonth, day(now)) else dStartDate = cDate(request("startdaterange")) iMonth = month(request("startdaterange")) end if if request("enddaterange") = "" then dEndDate = dateSerial(iEndYear, iEndMonth, 0) else dEndDate = cDate(request("enddaterange")) end if vDateInfo = ListDateEvents(iDateArraySize, sCats, iCalendarid, dStartDate, dEndDate, iLocal) %> <%=vCalendarInfo(CI_CalendarName)%> - WorkSource Seattle King County <% do until dCurrentDate > dEndDate if iCurrentWeekday = 8 then iCurrentWeekday = 1 end if for index=0 to (iDateArraySize-1) if vDateInfo(2, index) <> CurEvent then if cDate(vDateInfo(DE_Date, index)) = dCurrentDate then if (Month(dCurrentDate) = month(cDate(vDateInfo(DE_Date, index)))) and (CurMonth <> Month(dCurrentDate)) then %> <% End If CurMonth = Month(dCurrentDate) %> <% CurEvent = vDateInfo(2, index) end if ' end if end if next CurEvent = "" response.write "" dCurrentDate = DateAdd("d", 1, dCurrentDate) iCurrentWeekday = iCurrentWeekday + 1 loop ' Finish off the week iCurrentWeekday = weekday(dCurrentDate) %>

<%=vCalendarInfo(CI_CalendarName)%> <% if vCalendarInfo(CI_Location) <> "" then response.write " at " & vCalendarInfo(CI_Location) end if %>

<%=Months(iMonth)%> <%=iYear%> to <%= MonthName(Month(dEndDate))& " " & Year(dEndDate) %>

<% ' For the first day, we'll need to do some padding iCurrentWeekday = weekday(dStartDate) dCurrentDate = dStartDate dim CurMonth dim CurEvent ' Now finish off the rest of the calendar 'CurMonth = month(dCurrentDate) + 1 if iDateArraySize-1 = -1 then %>

No events were found. Please try again. 

<% else %>

Your selection:
<% if (iLocal <> "") and (iLocal <> "0") then response.write "Location = " & vCalendarInfo(CI_Location) & "
" end if if sCats <> "" then response.write "Training Category = " & vCalendarInfo(CI_CalendarName) & " " end if end if %>  

View list in calendar (location required)

<% if session("user_id") = "" OR isNull(session("accesslevel")) then %> <% End If %>
<% if session("user_id") = "" OR isNull(session("accesslevel")) then %> Workshop
<% Else %> Training <% End If %> Category
Location <% get_MyMenu 11, "location", matchnull %>
  Advanced Search
  <% response.write MonthName(Month(dCurrentDate)) & " " & Year(dCurrentDate) & "
" %>
<% if date = dCurrentDate then response.write MonthName(Month(dCurrentDate)) & " " & Day(dCurrentDate) else response.write MonthName(Month(dCurrentDate)) & " " & Day(dCurrentDate) end if %> <% response.write "" response.write "" response.write vDateInfo(DE_shortdesc, index) & ""& CRLF response.write "" CurEvent = vDateInfo(2, index) %> <% If vDateInfo(DE_EventLanguage, index) <> "" Then %>    Language: <%= vDateInfo(DE_EventLanguage, index) %> <% End If %>
 When: <% ' if vDateInfo(DE_HasDateRange, index) = 1 then ' response.write "Event occurs between: " & vDateInfo(DE_StartDateRange, index) _ ' & " and " & vDateInfo(DE_EndDateRange, index) & ". " 'end if ' if vDateInfo(DE_Recurring, index) <> "none" then ' response.write "This event happens " & vDateInfo(DE_Recurring, index) & ". " ' end if if vDateInfo(DE_alldayevent, index) = 1 then response.write "This is an all day event. " else dim sSMerid,sEMerid if vDateInfo(DE_TimeOfDayMeridian, index) = 1 then sSMerid = "PM" else sSMerid = "AM" end if if vDateInfo(DE_endtimemeridian, index) = 1 then sEMerid = "PM" else sEMerid = "AM" end if dim iMinute, iEMinute iMinute = vDateInfo(DE_TimeOfDayMinute, index) iEMinute = vDateInfo(DE_endtimeminute, index) if iMinute < 10 then iMinute = "0" & cstr(iMinute) if iEMinute < 10 then iEMinute = "0" & cstr(iEMinute) response.write "From " & vDateInfo(DE_TimeOfDayHour, index) _ & ":" & iMinute & " " & sSMerid _ & " To " & vDateInfo(DE_endtimehour, index) & ":" & iEMinute & " " & sEMerid end if 'Response.write "
" %>
<% If vDateInfo(DE_EventLocation, index) <> "" Then %>Where: <%= vDateInfo(DE_EventLocation, index) %>
<% End If %>

<% sub GetError %> Untitled Document

 

Oops. In order to view event listings you must select a location or category.

Please click you back button to make a new selection.

 

<% response.end end sub %>