<%
'NewsId=Request.QueryString("NewsId")
'if NewsId <> "0" and NewsId <>"" then
'sql="select * from News where NewsId="&NewsId
'else
sql="select * from News"
'end if
set rsNews=server.createobject("adodb.recordset")
rsNews.open sql,objcon,1,2
if not rsNews.eof then
while Not rsNews.EOF
%>
<% if rsNews("NewsDate")<>"" then %>
<%Response.Write("" & FormatDateTime(rsNews("NewsDate"), 1))%>
<% end if %>
<%=rsNews("Heading")%>
<%
rsNews.MoveNext
Wend
end if
%>