<% Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("sistemas/parnanet.mdb") &";" %> Dia Global do Voluntariado Jovem
 
 
 
 
 
 
 
 
 
 
 

<%Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM noticias ORDER by id DESC", conexao num=0 do while not rs.eof and num<20 num=num+1 %>
» <%=rs(2)%>
<%rs.movenext loop rs.close set rs=nothing %>