<% 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 %>

" width="236" height="157" onMouseOver="aumenta(this)" onMouseOut="diminui(this)">
<%=rsN("titulo")%>
<%=rsN("materia")%>




 

 

 

 

 

 

 

 

 

 

 

Passe o mouse sob 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.