
E-mail
|
|
|
| <%
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
%>
|
|