| <%Site_Pageheading poContentItem.Title%> |
Date: |
<%=util_NullCheckHTMLEncode (FormatDateTime (poContentItem.PublishDate, 1), "")%> |
Content ID: |
<%=poContentItem.ID%> |
Abstract: |
<% If poContentItem.AbstractIsHTML = 1 Then %>
<%=poContentItem.Abstract%> |
<%else%>
<%=Replace(util_NullCheckHTMLEncode(poContentItem.Abstract,""), chr(13), " ")%> |
<% End If %>
<% If poContentItem.TypeID = CONTENT_TYPE_INTERNAL Then %>
Documents Available: |
<%page_DocumentsAvailable poPublication, poContentItem%>
|
<% Else
If InStr (poContentItem.URL, "://") > 0 Then
' If it has :// we know it's truly an external
' resource and not one of the spiel pages
%>
Resource Address: |
This document is an external resource and can be viewed in a new browser window by following the link to <%=poContentItem.URL%>.
|
<%
Else
' It's is a file on the Treasury website that is not
' in the content database such as a Spiel page.
Dim sURLParameter
If InStr (poContentItem.URL, "?") > 0 Then
sURLParameter = "&ContentID=" & CStr (poContentItem.ID)
Else
sURLParameter = "?ContentID=" & CStr (poContentItem.ID)
End If
'Response.write "Redirecting to " & Server.HTMLEncode (poContentItem.URL & sURLParameter)
Response.Redirect poContentItem.URL & sURLParameter
End If
%>
<% End If %>
Related Items: |
<%page_RelatedItems poPublication, poContentItem%> |
<%
End Sub
'*****************************************************************************************************
sub page_DocumentsAvailable( poPublication, poContentItem )
dim oRS
dim sPreviousFileGroup
dim sFileAsURL
dim sFileName
dim fso
set oRS = poContentItem.DocumentsRecordSet()
if oRS.eof then
response.write "No Documents available."
else
Set fso = CreateObject("Scripting.FileSystemObject")
while not oRS.eof
if sPreviousFileGroup <> oRS("FileGroup") then
response.write "There are no related items available for content item " & poContentItem.ID & ".
"
Else
Set oRelatedItem = Server.CreateObject("PublicTreasury.ContentItem")
bNoPublishedRelatedItems = True
While Not oRS.EOF
If poPublication.ContentItem (CInt (oRS(0)), oRelatedItem) Then
bNoPublishedRelatedItems = False
response.Write "There are no related items available for content item " & poContentItem.ID & ".
"
End If
End If
oRS.Close
Set oRS = Nothing
End Sub
%>