E-mail
Desenvolvido por |
Visitante nº |
| <%
Dim Conexao, rsNoticias
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.open Application("StringConexaoODBC")
Set rsNoticias = Conexao.execute("SELECT NewsID, NewsTitulo, NewsChamada FROM Noticias " & _
"WHERE ColocarHome=True " & _
" ORDER BY NewsData DESC" )
%>
<% rsNoticias.close Set rsNoticias = Nothing Conexao.close Set Conexao = Nothing %> |