<% iNewsID = request("NewsID") if not isint(iNewsID) then response.redirect("news.asp") else set dbConn = server.createobject("ADODB.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\databases\nedc.mdb" dbConn.open strConn strSQL = "SELECT AnnouncementID, DatePosted, Title, Subtitle, Description " &_ "FROM Announcements " &_ "WHERE AnnouncementID = " & iNewsID set rsNews = server.createobject("adodb.recordset") rsNews.open strSQL, dbConn, 3 if rsNews.eof then response.redirect("news.asp") else if rsNews("DatePosted") >= dateadd("yyyy",-1,date()) then response.write("

News

" &_ "

") else response.write("

News -

Archives

" &_ "

") end if end if %> <%= rsNews("Title") %>

<% if len(rsNews("Subtitle")) > 0 then response.write("

" & rsNews("Subtitle") & " - " & monthname(month(rsNews("DatePosted"))) & " " & day(rsNews("DatePosted")) & ", " & year(rsNews("DatePosted")) & "

") else response.write("

" & monthname(month(rsNews("DatePosted"))) & " " & day(rsNews("DatePosted")) & ", " & year(rsNews("DatePosted")) & "

") end if %>

<%= FormatMemo(rsNews("Description")) %>

<% rsNews.close set rsNews = nothing dbConn.close set dbConn = nothing end if Function FormatMemo(str) dim strReturn strReturn = replace(str,vbCRLF,"
") FormatMemo = strReturn End Function %>