<%Dim sCurrentPage, sPCMID sCurrentPage="news" sCurrentPage2="News" sPCMID = "PCM_NEWS" Const CHARS_TO_KEEP = 150 %> <% On Error Resume Next Set rsNews = conDB.Execute("SELECT Headline, Author, Image, Fullstory, PublicationDate FROM News WHERE NewsID = " & Request( "NewsID" )) sPageTitle= rsNews.Fields("Headline") & " - " & rsNews.Fields("PublicationDate") & " - " & "By " & rsNews("Author") On Error Goto 0 %>

<%=rsNews("Headline")%> <%If Not IsNull(rsNews("Author")) Then%><%=rsNews("Author")%> <%End If%>

<%If Not IsNull(rsNews("Image")) Then%>" align="left" hspace="10"><%End If%><%=rsNews.Fields( "FullStory" )%>

<%If Not IsNull(rsNews("PublicationDate")) Then%><%=rsNews("PublicationDate")%> <%End If%>

<% Response.Write "

" & smShowHeadlines & "

" %>