<% call celuloseNoticias(5) sub celuloseNoticias(celuloseResultados) celuloseRSS = "http://www.celuloseonline.com.br/rss.php" set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlHttp.Open "Get", celuloseRSS, false xmlHttp.Send() celuloseXML = xmlHttp.ResponseText set xmlResponse = Server.CreateObject("MSXML2.DomDocument.4.0") xmlResponse.async = false xmlResponse.LoadXml(celuloseXML) set xmlHttp = nothing set celuloseObjeto = xmlResponse.getElementsByTagName("item") set xmlResponse = nothing celuloseLinhas = celuloseObjeto.length -1 for i = 0 To (celuloseLinhas) set celObjeto = celuloseObjeto.item(i) for each child in celObjeto.childNodes select case lcase(child.nodeName) case "title" title = child.text case "link" link = child.text case "description" description = child.text end select next celuloseCont = celuloseCont + 1 if celuloseCont < celuloseResultados + 1 then response.write "
• " & VbCrLf & ""&"" & title & "
" & VbCrLf & VbCrLfaaaaaaaaaaaaaaaaaa end if next end Sub %>

<% call numeroNoticias(5) sub numeroNoticias(quantosResultados) arquivoRSS = "http://www.abigraf.org.br/index.php/component/bca-rss-syndicator/?feed_id=1" set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlHttp.Open "Get", arquivoRSS, false xmlHttp.Send() arquivoXML = xmlHttp.ResponseText set xmlResponse = Server.CreateObject("MSXML2.DomDocument.4.0") xmlResponse.async = false xmlResponse.LoadXml(arquivoXML) set xmlHttp = nothing set objetoLista = xmlResponse.getElementsByTagName("item") set xmlResponse = nothing linhas = objetoLista.length -1 for i = 0 To (linhas) set objeto = objetoLista.item(i) for each child in objeto.childNodes select case lcase(child.nodeName) case "title" title = child.text case "link" link = child.text case "description" description = child.text end select next cont = cont + 1 if cont < quantosResultados + 1 then response.write "
• " & VbCrLf & ""&"" & title & "
" & VbCrLf & VbCrLf end if next end Sub %>

<% Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP") '============================================================================ 'Inserindo Informações '============================================================================ XMLHttp.open "GET", "http://oglobo.globo.com/economia/indicadores/", false XMLHttp.send() pega = XMLHttp.ResponseText cotacao = LCase(pega) Set cod = Nothing i = 1 i = inStr(i, cotacao, "destind") '============================================================================ '============================================================================ 'DADOS Bovespa '============================================================================ i = inStr(i, cotacao, "") 'Bovespa geral conteudo_geral_bovespa = Mid(cotacao,i,(f-i)) '============================================================================ i = 1 i = inStr(i, conteudo_geral_bovespa, "") f = inStr(i, conteudo_geral_bovespa, "") 'Bovespa classe odd conteudo_tr_bovespa = Mid(conteudo_geral_bovespa,i,(f-i)) '============================================================================ i = 1 i = inStr(i, conteudo_tr_bovespa, "") f = inStr(i, conteudo_tr_bovespa, "") 'Bovespa maximo conteudo_maximo_bovespa = Mid(conteudo_tr_bovespa,i,(f-i)) '============================================================================ '============================================================================ i = 1 i = inStr(i, conteudo_tr_bovespa, "") f = inStr(i, conteudo_tr_bovespa, "") 'Bovespa variacao conteudo_variacao_bovespa = Mid(conteudo_tr_bovespa,i,(f-i)) '============================================================================ '============================================================================ 'DADOS Dolar comercial '============================================================================ i = inStr(i, cotacao, "") 'Dolar comercial geral conteudo_geral_dc = Mid(cotacao,i,(f-i)) '============================================================================ i = 1 i = inStr(i, conteudo_geral_dc, "") f = inStr(i, conteudo_geral_dc, "") 'DOLAR Comercial classe odd conteudo_tr_dc = Mid(conteudo_geral_dc,i,(f-i)) '============================================================================ i = 1 i = inStr(i, conteudo_tr_dc, "") f = inStr(i, conteudo_tr_dc, "") 'DOLAR Comercial maximo conteudo_compra_dc = Mid(conteudo_tr_dc,i,(f-i)) '============================================================================ '============================================================================ i = 1 i = inStr(i, conteudo_tr_dc, "") f = inStr(i, conteudo_tr_dc, "") 'Bovespa variacao conteudo_venda_dc = Mid(conteudo_tr_dc,i,(f-i)) '============================================================================ 'TROCAR e substituir '============================================================================ corta = Array("", "", "", "") for cont = LBound(corta) to Ubound(corta) conteudo_maximo_bovespa = Replace(conteudo_maximo_bovespa, corta(cont), "", 1) conteudo_variacao_bovespa = Replace(conteudo_variacao_bovespa, corta(cont), "", 1) conteudo_compra_dc = Replace(conteudo_compra_dc, corta(cont), "", 1) conteudo_venda_dc = Replace(conteudo_venda_dc, corta(cont), "", 1) next %>