top left bar pics
Baba Dioum quote
 

Signup for our
E-Newsletter!
tag line pics
about foundation title
  <% datestamp = month(date)&"/"&day(date)&"/"&DatePart("yyyy",Date) SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = 'newsroom') AND (homepage = 'FULL') AND (status = 'ON') AND ((startdate <= '"&datestamp&"') AND (killdate > '"&datestamp&"') OR (startdate Is NULL AND killdate Is NULL)) ORDER BY rank" set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objConn,adOpenKeySet Do while not objRS.EOF title = objRS("title") body = objRS("body") %> <%=title%>

<%=body%>

<% objRS.MoveNext Loop objRS.close set objRS = nothing %> <% SQL = "SELECT * FROM "&vMainTable&" WHERE (subject = 'newsroom') AND (homepage = 'BLURB') AND (status = 'ON') AND ((startdate <= '"&datestamp&"') AND (killdate > '"&datestamp&"') OR (startdate Is NULL AND killdate Is NULL)) ORDER BY rank" set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objConn,adOpenKeySet if not objRS.EOF then Do while not objRS.EOF id = objRS("id") title = objRS("title") blurb = objRS("blurb") %> <%=title%> <% if blurb <> "" then response.write "

" & blurb end if %>
[READ MORE]

<% objRS.MoveNext Loop objRS.close set objRS = nothing end if %>