; padding:30px 0px 0px; border-top: <%=Session("border")%>;">
; padding:0px 0px 20px; border-bottom: <%=Session("border")%>;">
<% 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 %>