Notícias
<% Dim rsNoticias, conexaodb, strSQL session LCID = 1040 set rsNoticias = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM noticias ORDER BY codigo DESC" call abreConexao set rsNoticias = conexaodb.Execute(strSQL) %> <% DO WHILE NOT rsNoticias.EOF %>
<% =rsNoticias("dtcadastro") %>
» <% if rsNoticias("link") <> "" then %> " target="_blank" class="azul"> <% =rsNoticias("titulo") %> <% else %> " class="azul"> <% =rsNoticias("titulo") %> <% end if %>
<% rsNoticias.MoveNext LOOP %>
© 2007 Instituto Castanheira de Ação Cidadã