<%
set conexao = SERVER.CREATEOBJECT("ADODB.CONNECTION")
conexao.connectionstring = "DSN=insumos2_cosmeticos"
conexao.open
sql1 = "select top 7 * from noticias order by data desc, id desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql1,conexao,1,3
'set rs = conexao.execute(sql1)
if not rs.eof then
do while not rs.eof
%>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
conexao.close
set conexao = nothing
%>