%
Dim moarr
moarr = Array("January","February","March","April","May","June","July","August","September","October","November","December")
mo = Month(Now)
dy = Day(Now)
yr = Year(Now)
xdate = moarr(mo-1) + " " + CStr(dy) + ", " + CStr(yr) + " "
%>
|
|
<%=xdate%>
|
|
|
|
News Releases
|
<%
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=marketing"
S="SELECT * FROM news WHERE ((chfbg=true) AND (dtmdate <= Now())) ORDER BY [dtmDate] DESC"
set rs =Connection.Execute(S)
%>
<%
x = 0
do while x < 3
if rs.eof then
Exit Do
end if
x = x + 1
datestr = WeekDayName(WeekDay(rs("dtmDate")), True) + " " + MonthName(Month(rs("dtmDate")), True) + " " + CStr(Day(rs("dtmDate"))) + ", " + CStr(Year(rs("dtmDate")))
%>
"><%=rs("subject")%>
<%
RS.movenext
Loop
%>
> more news...
|
|
|
HISTORY
Commonwealth Health Foundation was formed in December 1999 for the purpose of fostering, supporting and initiating activities for the advancement of the healthcare objectives of Commonwealth Health Corporation. The establishment of the Foundation allows CHC to promote volunteerism and philanthropy through community participation and partnerships. By raising funds to provide programs, services and facilities in our community, the Foundation will enable CHC to be an innovative leader for community health improvement and a lasting legacy for health in our region.
|
|
Our Mission
|
|
To support the not-for-profit healthcare objectives of Commonwealth Health Corporation. |
|
|
|
Home |
About the Foundation |
How to Make a Gift |
FAQs |
Contact Us |