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
%>
|
