%
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%>
|
|
|
<%
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
%>
^top
|
|
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 |