% set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT idFoto, evento, data, descricao FROM Fotos ORDER BY data DESC" set RS = Conn.execute (query) %>
|
<%
if RS.EOF then
Response.write(" Não há Foto disponível. ") else while (not RS.EOF) %>
<% end if wEnd end if %> |
|||||||||||||||