Pegando notícias de um site de notícias

[filipefurriel 0]

Fala glr, existe possibilidade de inserir dados remetidos direto de um site, ou seja, procuro um site de notícias que disponibilize suas notícias, compartilhando seus "links direcionais", isso pq não quero cadastro de notícias e sim disponibilização de notícias, seus previews com href para o site correspondente, pesquisei bastante e não encontrei, mas vai que alg saiba por aih. Vwl.

[xanburzum 169]

use XMLHTTP, dá uma procurada no fórum que postei exemplos fazendo isso, lendo o conteúdo de um site especifico e exibindo em outro. Olha este exemplo que pega a cotação do dolar de um site e exibi na sua page.

 

<%
Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
XMLHttp.open "GET","http://www.investshop.com.br/mer/include/Dolar.csv", false
XMLHttp.send()
cotacao = XMLHttp.ResponseText
cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo
response.Write(cotacoes)
dim valores()
dim cont, cont_valores
for cont = 1 to len(cotacoes) step 1
if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10)) then
cont_valores = cont_valores + 1
Redim Preserve valores(cont_valores)
valores(cont_valores) = Cstr(str)
str = ""
else
str = str + mid(cotacoes,cont,1)
end if
next
' Fim Coloca valores em uma Array

' Coloca os valores nas variaveis
DOLAR_COMERCIAL_COMPRA = valores(3)
DOLAR_COMERCIAL_VENDA = valores(4)
DOLAR_COMERCIAL_VARIACAO = valores(5)

DOLAR_PARALELO_COMPRA = valores(7)
DOLAR_PARALELO_VENDA = valores(8)
DOLAR_PARALELO_VARIACAO = valores(9)

DOLAR_TURISMO_COMPRA = valores(11)
DOLAR_TURISMO_VENDA = valores(12)
DOLAR_TURISMO_VARIACAO = valores(13)


'PTAX_COMPRA = valores(15)
'PTAX_VENDA = valores(16)
'PTAX_VARIACAO = valores(17)
' Fim coloca os valores nas variaveis

%>