"
Response.Write(tmpHTML)
For DayLoop = 1 to 7
Response.Write("
" & WeekDayName(Dayloop, True, 0) & "
" & Chr(10))
Next
Response.Write("
" & Chr(10) & "
")
If FirstDay <> 1 Then
Response.Write("
" & Chr(10))
End if
DayCounter = FirstDay
CorrectMonth = True
Do While CorrectMonth = True
isEvent = FALSE
rsEvents.filter = 0
Dim iCheck
Dim chkStr
chkStr = (rsEvents.Fields.Item("eventDate").Name)
iCheck = CurrentDay
rsEvents.filter = chkStr & "=" & (iCheck)
If not(rsEvents.EOF) Then isEvent = TRUE
If CurrentDay = EventDate Then
Response.Write("
")
Else
Response.Write("
")
End if
If isEvent = TRUE Then
Response.Write("" & Day(CurrentDay)& "")
If Not rsEvents.BOF Then
rsEvents.MoveFirst
'Do Until rsEvents.EOF
'If (rsEvents.Fields.Item("EventDate").Value) = CurrentDay Then
'Response.Write("
")
'End If
'rsEvents.MoveNext
'Loop
End If
Response.Write("
" & Chr(10))
Else
Response.Write(Day(CurrentDay) & "" & Chr(10))
End If
DayCounter = DayCounter + 1
If DayCounter > 7 Then
DayCounter = 1
Response.Write("
" & Chr(10))
Response.Write(" CurrentMonth Then
Response.Write(" class=""lastweek""")
End If
Response.Write(">" & Chr(10))
End if
CurrentDay = DateAdd("d", 1, CurrentDay)
If Month(CurrentDay) <> CurrentMonth then
CorrectMonth = False
End if
Loop
IF DayCounter <> 1 Then
Response.Write("
")
Else
Response.Write("
")
End if
Response.Write("" & Chr(10) & "
" & Chr(10))
End Function
%>
Welcome to New Seasons - News & Events
New Seasons were proud to welcome BBC Radio Wales who recorded a New Seasons service to air as part of the Sunday morning show 'All Things Considered'. The show explores the experiences of the ‘Black’ church and its history in Wales.
These photos were taken on 1st November 2006 at a health screening event at the Seasoners Luncheon Club.
This was just one of a series of sessions examing health issues such as blood pressure, diabetes, oral hygiene, healthy cooking and other health subjects.
Events Calendar 
