SELECT tblEvents.*, tblusers.FirstName, tblusers.LastName, tblusers.Email, tblCountries.CountryName,tblStates.StateInitial,tblCategories.CategoryName,tblCategories.Categorycolor, tblEventFormat.EventFormatName, tblSponsors.SponsorName FROM tblEvents, tblusers, tblCountries, tblStates,tblCategories, tblEventFormat, tblSponsors Where (StartDate between #TestDay# And #TestDay1# or #TestDay# between StartDate And EndDate) And #DateFormat(TestDay, 'ddd')# = 1 And tblEvents.CountryID = tblCountries.CountryID And tblEvents.StateID = tblStates.StateID And tblusers.ID = tblEvents.UserID And tblEvents.EventType = tblCategories.CategoryID and tblEvents.EventFormat = tblEventFormat.EventFormatID and tblEvents.Sponsor = tblSponsors.SponsorID and tblEvents.DisplayToPublic = 'Yes' , tblEvents.StartDate, tblEvents.Title
<< #Loc_MonthA[Month(DateAdd('d', -1, CDay))]# #DAy(DateAdd('d', -1, CDay))# << #Loc_Week# #Week(CDay)# #Loc_DayC[DayOfWeek(CDay)]#, #Loc_MonthA[Month(CDay)]# #Day(CDay)#, #Year(CDay)# #Loc_MonthA[Month(CDay)]# >>   #Loc_MonthA[Month(DateAdd('d', 1, CDay))]# #Day(DateAdd('d', 1, CDay))# >>
#Events.sTitle#
#Loc_Title#: #TITLE# (Event ###ID#) -- CANCELLED #TITLE# (Event ###ID#) -- CANCELLED
Time: #TimeFormat(StartDate,'h:mm')# #Evaluate('Loc_' & TimeFormat(StartDate,'tt'))# - #TimeFormat(EndDate,'h:mm')# #Evaluate('Loc_' & TimeFormat(EndDate,'tt'))#
#Loc_CatLabel#: #Events.CategoryName#
#Loc_EventFormat#: #EventFormatName#
#Loc_Sponsor#: #SponsorName#
#Loc_Details#: #ParagraphFormat(Details)#

#Loc_NoEventsFound#