<% Response.CacheControl="no-cache" Response.AddHeader "Pragma","no-cache" Response.Expires=0 Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = db Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "" sql = sql & " Select ID, titulo, data, imgpq, dataeng " sql = sql & " FROM galeria " sql = sql & " ORDER BY DateValue(dia&'/'&mes&'/'&ano) DESC " Rs.Open sql, Conexao, 3, 3 %> Via Funchal
 
 



PHOTOS  
<%While NOT Rs.EOF%>
<%=Rs(1)%> - <%=Rs(4)%>
<% Rs.MoveNext() Wend %>