Álbum de Fotos
<% Dim conexaodb set rsSelecao = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM albumevento " strSQL = strSQL & "ORDER BY codigo DESC" call abreConexao set rsSelecao = conexaodb.Execute(strSQL) %> Selecione por favor o álbum desejado:
<% DO WHILE NOT rsSelecao.EOF %> <% =rsSelecao("data") %>
»&codigo=<%=rsSelecao("codigo")%>');" class="azul"> <% =rsSelecao("evento") %>
<% rsSelecao.MoveNext LOOP %>
© 2007 Instituto Castanheira de Ação Cidadã