<%@LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<%
'----------------------------------------
' FILE: /events/schedule/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 intAreaId : intAreaId = 0
dim strArea : strArea = "Special Events"
'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
%>
Special Events - Event/Tour Schedule
Special Events - Event/Tour Schedule
<%if not rsResults.eof then
do while not rsResults.eof
if CBool(rsResults("IsDisplayed")) then%>
<%=rsResults("pubDate") %>-<%=rsResults("Headline") %>
<%=rsResults("BodyText") %>
<%end if %>
<% rsResults.moveNext()%>
<%loop %>
<%end if %>
<%set rsResults = nothing%>