<%
dim oEvents as New ITCMS.cmsEvent
dim oEvent as ITCMS.cmsEvent
dim bFoundEvents as boolean = False
dim blnRegLinkDisplayed as boolean = false
try
for each oEvent in oEvents.FetchUpcomingXEvents("ChristaCar", 3)
bFoundEvents = True
Dim myDate As Date = DateTime.Parse(oEvent.EventDate)
Dim formattedDate As String = myDate.ToString("MMM dd, yyyy")
%>
<%=formattedDate%>
<% if oEvent.EventTime <> "" then %>
Time: <%=oEvent.EventTime%>
<% end if %>
<%=oEvent.EventName%>
<%=oEvent.EventDescription%>
<% if oEvent.EventURLSocialNetworking <> "" then %>
More
<% end if %>
<%
next
if not bFoundEvents then
%>
Please check back soon for new upcoming events.
<%
end if
catch ex as Exception
'display an error message, the CMS is not accessible.
response.write("
An error was encountered while attempting to display the events.
Please try back soon.
")
end try
%>