<%@LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <% '---------------------------------------- ' FILE: /legacy/projects/dedication.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 intContentId : intContentId = Request.QueryString("content") 'Retrieve the content 'Get Content by AreaId if intContentId > 0 then Call DAExecuteQuery(objConn, rsResults,"EXEC spGetContentbyContentId " & intContentId, false) end if %> Jessie's Legacy - Status of Ongoing Projects

Dedication Speech

<%if not rsResults.eof then do while not rsResults.eof if CBool(rsResults("IsDisplayed")) then%>
<%=rsResults("BodyText") %> <%end if %> <% rsResults.moveNext()%> <%loop %> <%end if %> <%set rsResults = nothing%>