<% 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.

Foundation Spotlight



November 13, 2010
Click here for more information




Click here for more information

 
Home  |   About the Foundation  |   How to Make a Gift  |   FAQs  |   Contact Us