Capturar notícias de um site em xmlhttp?

[Paulo Cézar Júnior 0]

Pessoal, podem me ajudar na montagem dessa página...

 

Eu quero capturar as notícias da folha e colocar no meu site...

Pegar as notícias como nessa página:

http://www1.folha.uol.com.br/folha/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", falseXMLHttp.send()cotacao = XMLHttp.ResponseTextcotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixoresponse.Write(cotacoes)dim valores()dim cont, cont_valoresfor cont = 1 to len(cotacoes) step 1if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10)) thencont_valores = cont_valores + 1Redim Preserve valores(cont_valores)valores(cont_valores) = Cstr(str)str = ""elsestr = str + mid(cotacoes,cont,1)end if next' Fim Coloca valores em uma Array' Coloca os valores nas variaveisDOLAR_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%>

[Rafaelso 0]

Com se trata de um arquivo remoto, você tem que usar o objeto ServerXMLHTTP

segue um exemplo de como funciona a leitura de xmls de outros sites.

 

Set srvXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")Set objXML = Server.CreateObject("Microsoft.XMLDOM")urlXML = "http://www.investshop.com.br/mer/include/Dolar.csv"srvXmlHttp.open "GET", urlXML, falsesrvXmlHttp.send()Load = objXML.load(srvXmlHttp.responseXML)

Você tem que ver a versão que está instalada no seu servidor do MSXML2.ServerXMLHTTP no meu caso é a versão 3.0 , se eu não me engano existe ateh a versão 6, ai ve tem que colocar a versão dele na ora de chamar o objeto beleza....

 

Espero que isso tenha ajudado