<%@ Language="VBScript" %> <% option explicit %> <% Section = "News" GetPageDetails(5) dim arrNewsList, n, nid, arrNewsItem dim arrLinkList, l nid = request("nid") openDB DBFile if nid = "" then strSQL = "SELECT TOP 1 NewsId FROM News WHERE Active=Yes ORDER BY PublishDate DESC" openRS strSQL if not objRS.eof then nid = objRS(0) closeRS end if if not nid = "" then strSQL = "SELECT NewsId, Title, Summary, Description, PublishDate FROM News WHERE NewsId=" & nid openRS strSQL if not objRS.eof then arrNewsItem = objRS.getRows() closeRS end if strSQL = "SELECT NewsId, Title, Summary, Description, PublishDate FROM News WHERE Active=Yes ORDER BY PublishDate DESC" openRS stRSQL if not objRS.eof then arrNewsList = objRS.getRows() closeRS strSQL = "SELECT LinkId, Name, Summary, WebURL, WebURLName, Active FROM Links ORDER BY Name" openRS stRSQL if not objRS.eof then arrLinkList = objRS.getRows() closeRS closeDB %> <%=PageTitle%>

<%=PageHeading%>

<%if isArray(arrNewsList) then%> <%for n = 0 to ubound(arrNewsList, 2)%> ?nid=<%=arrNewsList(0,n)%>" class="<%=Section%><%if int(nid) = int(arrNewsList(0,n)) then response.write "On"%>">> <%=formatdate(arrNewsList(4,n), "%d.%M.%y ")%> <%=arrNewsList(1,n)%>
<%=arrNewsList(2, n)%>
more information <%next%> <%end if%>

<%if isArray(arrNewsItem) then%>

<%=arrNewsItem(1,0)%>

<%=arrNewsItem(3,0)%>

<%end if%>