<%
Corpo = request.QueryString("Corpo")
set Conn=server.CreateObject("ADODB.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\penultimas\Banco\BancoPenultimas.mdb; User Id=admin; Password="
set rsquery = Conn.execute("select Cod_noticia,Titulo,Noticia,Data,hora from TB_Noticia order by cod_noticia desc")
If not rsquery.EOF then
DataAtual= rsquery("Data")%>
<tr><td bgcolor="#339999"><b><%=DataAtual%></b></td></tr>
<%while not rsquery.eof%>
<tr><td bgcolor="#99CC00"><a href="Default.asp?Corpo=<%=rsquery("Cod_noticia")%>"><b><%=rsquery("Titulo")%></b></a></td></tr>
<%
rsquery.movenext
wend
end if
set rsquery = nothing
set Conn = nothing
%>