Eu quero capturar as notícias da folha e colocar no meu site...
Pegar as notícias como nessa página:
http://www1.folha.uo...a/emcimadahora/
Pra ajudar eu peguei um código que pega a cotação do dolar e exibe na página... ele está funcionando...
Eu gostaria de mostrar as 5 últimas notícias, categoria, data e título e a data.
o arquivo é em xmlhttp.
Como eu acho o link que eu tenho que chamar no site da folha? No exemplo ele chama a cotação do dolar.
Vejam código abaixo:
<% 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 %>