<%@LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<%
'----------------------------------------
' FILE: /news/default.asp
' PROJECT: JBC
' Developed for JBC by
' Saltmine Creative, Inc.
' www.saltmine.com
'----------------------------------------
'Set the connection
dim objConn : set objConn = DAGetPersistentConnection(c_strDAJBCConnection)
dim rsArea
dim rsResults
dim rsContent
dim intAreaId : intAreaId = 0
dim strArea : strArea = "In The News"
dim arrContentId()
'Retrieve the content
'Get areaId by Area Name
Call DAExecuteQueryNoResults(objConn, rsArea, "SET NOCOUNT ON EXEC spGetAreasbyAreaName '" & DAODBCEncode(strArea) & "'")
if not rsArea.eof then
intAreaId = rsArea("AreaId")
end if
'Get Content by AreaId
if intAreaId > 0 then
Call DAExecuteQuery(objConn, rsResults,"EXEC spGetArchivedContentbyAreaId " & intAreaId, false)
end if
%>
In the News - Archive Section
In the News - Archive Section
<%'Retrieve past archived stories (>10 most recent)
if not rsResults.eof then
do while not rsResults.eof
if CBool(rsResults("IsDisplayed")) then%>
<%if rsResults("URL") <> "" then %>" target = "new"><%=rsResults("pubDate") %>-<%=rsResults("Headline") %><%else %><%=rsResults("pubDate") %>-<%=rsResults("Headline") %><%end if %>
<%=rsResults("BodyText") %>
<%end if %>
<% rsResults.moveNext()%>
<%loop %>
<%end if %>
<%set rsResults = nothing%>