<%@ Language=VBScript %>
<% Response.Buffer = True %>
<% Server.ScriptTimeout = 1000 %>
<%
'*********************************************************************************
'******** Required Variables *****************************************************
'*********************************************************************************
If Session("ConfigLoaded") = "" or Session("ConfigLoaded") = "NO" then
SQL = "SELECT * FROM Cal_Config WHERE Cal_ConfigID = 1"
Set RS=dbc.execute(SQL)
Session("ScriptTitle") = RS("Cal_ConfigScriptTitle")
Session("DefaultColorScheme") = RS("Cal_ConfigDefaultColorScheme")
Session("ImageFolder") = RS("Cal_ConfigImageFolder")
Session("DateFormat") = RS("Cal_ConfigDateFormat")
Session("HTMLTemplate") = RS("Cal_ConfigHTMLTemplate")
Session("MainFontFace") = RS("Cal_ConfigMainFontFace")
Session("TimeFormatToUse") = RS("Cal_ConfigTimeFormatToUse")
Session("MonthBlockHeight") = RS("Cal_ConfigMonthBlockHeight")
Session("MiniCalendarWidth") = RS("Cal_ConfigMiniCalendarWidth")
Session("DefaultView") = RS("Cal_ConfigDefaultView")
Session("LCID") = RS("Cal_ConfigLCID")
Session("ConfigLoaded") = "YES"
SQLc = "SELECT * FROM Cal_ColorSchemes WHERE ColorSchemeID = " & RS("Cal_ConfigDefaultColorScheme")
Set RSc=dbc.execute(SQLc)
Session("LightColor") = RSc("LightColor")
Session("MidLightColor") = RSc("MidLightColor")
Session("LightMainColor") = RSc("LightMainColor")
Session("DarkMainColor") = RSc("DarkMainColor")
Session("LightLineColor") = RSc("LightLineColor")
Session("PrimaryHighlightColor") = RSc("PrimaryHighlightColor")
Session("SecondaryHighlightColor") = RSc("SecondaryHighlightColor")
RSc.Close
Set RSc=Nothing
RS.Close
Set RS=Nothing
End If
ScriptTitle = Session("ScriptTitle")
DefaultColorScheme = Session("DefaultColorScheme")
ImageFolder = Session("ImageFolder")
DateFormat = Session("DateFormat")
HTMLTemplate = Session("HTMLTemplate")
MainFontFace = Session("MainFontFace")
TimeFormatToUse = Session("TimeFormatToUse")
MonthBlockHeight = Session("MonthBlockHeight")
MiniCalendarWidth = Session("MiniCalendarWidth")
DefaultView = Session("DefaultView")
LCID = Session("LCID")
LightColor = Session("LightColor")
MidLightColor = Session("MidLightColor")
LightMainColor = Session("LightMainColor")
DarkMainColor = Session("DarkMainColor")
LightLineColor = Session("LightLineColor")
PrimaryHighlightColor = Session("PrimaryHighlightColor")
SecondaryHighlightColor = Session("SecondaryHighlightColor")
MiniCalendarHeight = 1
Session.LCID = LCID
MonthSundayName = WeekDayName(1)
MonthMondayName = WeekDayName(2)
MonthTuesdayName = WeekDayName(3)
MonthWednesdayName = WeekDayName(4)
MonthThursdayName = WeekDayName(5)
MonthFridayName = WeekDayName(6)
MonthSaturdayName = WeekDayName(7)
MiniSundayName = "S"
MiniMondayName = "M"
MiniTuesdayName = "T"
MiniWednesdayName = "W"
MiniThursdayName = "T"
MiniFridayName = "F"
MiniSaturdayName = "S"
'************************************************************************************
'***** Universal Date Format Function ***********************************************
'************************************************************************************
Function UniversalDate(dteDate)
If IsDate(dteDate) = True Then
dteDay = Day(dteDate)
dteMonth = Month(dteDate)
dteYear = Year(dteDate)
UniversalDate = dteYear & "-" & Right(Cstr(dteMonth + 100),2) & "-" & Right(Cstr(dteDay + 100),2)
Else
UniversalDate = Null
End If
End Function
'*********************************************************************************
'******* Check Day For Event *****************************************************
'*********************************************************************************
Function CheckForEvent(DateToUse)
If Session("CalendarFilter") > 0 then
SQL = "SELECT * FROM Cal_Events WHERE Cal_EventCalendarID = "& Session("CalendarFilter") &" AND Cal_EventDate = #" & DateToUse & "# ORDER BY Cal_EventStartTime"
Else
SQL = "SELECT * FROM Cal_Events WHERE Cal_EventDate = #" & DateToUse & "# ORDER BY Cal_EventStartTime"
End If
Set RS=dbc.execute(SQL)
Return = "NO"
Do While NOT RS.EOF
Return = "YES"
Exit Do
RS.MoveNext
Loop
RS.Close
Set RS=Nothing
CheckForEvent = Return
End Function
Sub DrawOtherMiniDay(DayNumber) '--------------------------------------- Draw Other Day
response.write "
"
response.write " "
response.write "
"
End Sub
Sub DrawMiniNormalDay(DayNumber, theDate) '----------------------------------- Draw a Normal Day
DateToUse = Year(theDate) & "-" & Month(theDate) & "-" & DayNumber
If Date() = cDate(DateToUse) then
MonthCalDayClass = "TableMiniDayCellToday"
Else
MonthCalDayClass = "TableMiniDayCell"
End If
IsThereAnEvent = CheckForEvent(DateToUse)
If IsThereAnEvent = "YES" then
MonthCalDayClass = "TableMiniDayCellWithEvent"
End If
response.write "
"
'-------- If the first day is not sunday --------------------------
If weekday(ThisMonthsFirstDay) > 1 then
For Counter = day(StartDate) to day(LastMonthsLastDay)
Call DrawOtherMiniDay(Counter)
Next
End If
'-------- Draw normal days after Saturday, start a new row --------
For Counter = 1 to day(ThisMonthsLastDay)
DateToUse = Year(theDate) & "-" & Month(theDate) & "-" & Counter
Call DrawMiniNormalDay(Counter, DateToUse)
If weekday(DateToUse) = 7 then
response.write "
"
If Counter <> day(ThisMonthsLastDay) then
response.write "
"
'----- Draw the Week button ---------------------------------------
response.write "
"
End If
End If
Next
'-------- If last day is not saturday -----------------------------
If weekday(ThisMonthsLastDay) < 7 then
For Counter = 1 to 7 - weekday(ThisMonthsLastDay)
Call DrawOtherMiniDay(Counter)
Next
End If
'-------- Draw the last row of the calendar -----------------------
response.write "
"
response.write "
"
'-------- End of Container ----------------------------------------
response.write "
_____________________
Mill Creek Baptist
Church
5417 Morgan Mill Rd.
Monroe, NC 28110
(704) 283-8889
Welcome to Mill Creek
Baptist Church
Our Congregation:
Mill Creek's church family is made up of folks from
al walks of life -- farmers, educators, bankers,
homemakers, office workers, construction workers,
retirees and may more. We are neighbors,
community volunteers, your children's teachers, the
people you see everyday, involved in the Unionville
community. There's a good chance the you
already know some of us! the most unifying
trait among all our diversity is a desire to follow
where God leads, and to love each other as family.
Our average Sunday School attendance is currently
115; our average worship attendance is 155.
Luke 14:23
"And the lord said unto the servant, Go
out into the highways and hedges, and
compel them to come in, that my house
may be filled."
read more
Welcome to our website and thank you for taking the
time to find out more about us. We hope that this
website will assist you in learning more about Mill
Creek--who we are and the many opportunities
we offer in worship, ministry, and service.
Mill Creek calls
Rev. George Gouge to serve as our interim pastor.
Welcome!
Mill
Creek is a Southern Baptist church, a member of the
Union Baptist Association, the North Carolina State
Baptist Convention and the national Southern Baptist
Convention. It has been and continues to be
the site of some of life's most intimate moments -
marriage, dedication of children, and final services
for loved ones.
Our greatest joy, though, lies in life's greatest
event - the confession of faith in the Lord
Jesus Christ. It is our sincere desire that
all people hear and accept the Good News.
We work toward that goal through service, missions,
and missions support, Bible study and prayer.
Our doors are open to all, and all are welcome.
If you are not a professing, practicing Christian,
we hope you will take this opportunity today to
become one -- life will never be sweeter! You are
invited to join us at any time.
You are ALWAYS WELCOME
at Mill Creek
!
