<%@ Language=VBScript %> <% ' initialize variables dBandOnly = request.querystring("BAND") if dBandOnly = "" then dBandOnly = "Y" elseif left(ucase(dBandOnly),1) = "Y" then dBandOnly = "Y" end if ' open database connection Set dbNewsItems = Server.CreateObject("ADODB.Connection") dbNewsItems.open "DRIVER={MySQL ODBC 3.51 Driver};PORT=3306;SEREVER=localhost;DataBase=sound53_masterdata;UID=sound53_dbuser;PWD=SOSdb2012" ' count items to display SQLStatement = "SELECT COUNT(*) as tCNT FROM performances WHERE display = 'Y' " set rsPerformances = dbNewsItems.Execute(SQLStatement) wCount = rsPerformances("tCNT") ' retrieve all items SQLStatement = "SELECT * FROM performances WHERE display = 'Y' ORDER BY view_priority desc, performance_date " set rsPerformances = dbNewsItems.Execute(SQLStatement) %> Event Calendar

Sounds of Sawnee Performance Calendar:

<% for wItem = 1 to wCount %> <% wDateDiff = DateDiff("d", rsPerformances("date_edited"), now()) %> <% rsPerformances.movenext next ' %>
Event Date Start End Calendar *
',1,0,0,1)"><% = rsPerformances("event_name") %> <% = rsPerformances("performance_date") %> <% = rsPerformances("start_time") %> <% = rsPerformances("duration") %> ">Add to my Calendar <% if wDateDiff > 14 then %>  *<% else %> <% end if %>

NOTE: An asterisk in the right column means this event has been updated in the last 2 weeks.
 
Click HERE for a Print Version of the Calendar. 
Click HERE for Concert Band ONLY Calendar.
Click HERE for SOSJazz ONLY Calendar.