| Signup for our E-Newsletter! |
 |
 |
|
|
||
|
<%
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 %>
|