Event Calendar
<% set eventList = Connect.Execute("SELECT * FROM events WHERE EventDate >= #"&date()&"# ORDER BY EventDate") do until eventList.eof tempDate = MonthName(Month(eventList("EventDate")))&" "&Year(eventList("EventDate")) if curDate <> tempDate then tempDate = MonthName(Month(eventList("EventDate")))&" "&Year(eventList("EventDate")) response.write "

"&tempDate&"
" end if x = eventList("EventDate") response.write MonthName(Month(x))&" "&Day(x)&", "&year(x)&", "&eventList("time")&" - " if eventList("more") > "" then if right(eventList("more"), 4) = ".pdf" then myTarget = " target=""_blank""" else myTarget = "" end if if eventlist("more") > "" then response.write "" response.write eventList("Title")&"
" eventList.moveNext loop %>