<%=xdate%>
 About the Foundation How to
Make a Gift FAQs Contact Us Annual Report
|
|
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.movenext Loop %> |
|
<%
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=marketing"
' S="SELECT * FROM news WHERE ((chfbg=true) AND (dtmdate <= Now())) ORDER BY [dtmDate] DESC"
enddate = date
startdate = DateAdd("yyyy", -1, date)
S="SELECT * FROM news WHERE ((chfbg=true) and (dtmDate BETWEEN #" & startdate & "# AND #" & enddate & "#))ORDER BY [dtmDate] DESC"
set rs =Connection.Execute(S)
%>
Foundation News <% do until rs.eof datestr = WeekDayName(WeekDay(rs("dtmDate")), True) + " " + MonthName(Month(rs("dtmDate")), True) + " " + CStr(Day(rs("dtmDate"))) + ", " + CStr(Year(rs("dtmDate"))) %> "><%=rs("subject")%> <% RS.movenext Loop %> |
|
Our Mission |
|
To support the not-for-profit healthcare objectives of Commonwealth Health Corporation. |
|
Foundation Spotlight |
|
|
800 Park Street