<% '============ Beginning of ASP code (Inclusion inside a tag) ======================= newsID=request.querystring("newsID") RsGuestList.Open "SELECT * FROM News WHERE NewsID="& NewsID NewsTitle=RsGuestList("NewsTitle") NewsDescription=RsGuestList("NewsDescription") NewsDescription=Replace(NewsDescription, vbCrLf, "
") %>

<%=NewsTitle%> - <%=MonthName(Month(RsGuestList("NewsDate")),1)&" "&Day(RsGuestList("NewsDate"))&", "&Year(RsGuestList("NewsDate"))%>

<%=NewsDescription%>

<% RsGuestList.close set OBJdbConnection = Nothing Set StrConn=Nothing '============ End of ASP code =========================================================== %>