<%
sql2N = "SELECT * FROM noticias ORDER BY data ASC"
Set rsN = Server.CreateObject("ADODB.Recordset")
rsN.Open sql2N, D4, 3, 3
TotalRecsN = rsN.recordcount
date1N = rsN("data")
idN = rsN("ID")
name1N = rsN("titulo")
p1N= rsN("materia")
description = p1N
x = 0
%>
<%
do while not rsN.eof
id_num = 1
if (qtde_campos < id_num) and (qtde_campos > 0) then
id_num = qtde_campos
end if
do while not id_num = 0
%>
<%
id_num = id_num-1
rsN.movenext
if rsN.eof then exit do
loop
response.write"
"
loop
%>
Passe o mousesob as imagens para melhor visualização do nosso Portfólio, onde apresentamos aqueles que acreditaram e acreditam em nossa percepção do bom gosto e correto uso da técnica do Design de Web.