<% Option Explicit %>
<!--#include file="config.asp"-->
<!--#include file="common.asp"-->
<%
	PageBegin
	NewsList
	PageEnd


	Sub NewsList()
		Dim rs
%>
		<p align=center class=Title>
			News<br><br class=HalfBreak>
		</p>

		<table border=0 width=80% cellpadding="2" cellspacing="0">
<%
		OpenConnection

		Set rs = DBC.Execute("SELECT * FROM News ORDER BY NID DESC")

		Do While Not rs.EOF
%>
			<tr class="Odd" valign=top>
				<td width=100 align=center>
					<b><%= rs("FromDate") %></b>
				</td>
				<td>
					<b><%= rs("Headline") %></b><br><br>
					<%= rs("Description") %>
				</td>
			</tr>
<%
			rs.MoveNext
		Loop
%>
		</table>
<% 
	End Sub
%>