<%=strCaption%>

<%=strDateCaption%>

<% if strPrev <> "" then %> <% end if %> ◄ Previous <% if strPrev <> "" then %> <% end if %>
<% if strParamProperty <> "" then strParamPropertyPath = strParamProperty & "/" else strParamPropertyPath = "" end if %> Press releases
<% if strNext <> "" then %> <% end if %> Next ► <% if strNext <> "" then %> <% end if %>

<% strContent = "" if strHtml <> "" then Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath(strHtml), 1) do while f.AtEndOfStream = false strContent = strContent & f.ReadLine loop f.Close Set f=Nothing Set fs=Nothing end if %> <%=strContent%>