<%
Dim objConn, strCaminho
strCaminho = Server.MapPath("adm/db/dados.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";"
on error resume next
sql = "SELECT TOP 3 * FROM Noticias ORDER BY Cod_noticia DESC"
Set rs_not = objConn.execute(sql)
%>
Credi Garoto - Versão 2008
