<% 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://economia.uol.com.br/cotacoes/bolsas.jhtm", false XMLHttp.send() pega = XMLHttp.ResponseText cotacao = LCase(pega) Set cod = Nothing i = 1 i = inStr(i,cotacao,"ticker") j = 1 j = inStr(i,cotacao,"ticker") '============================================================================ 'Bovespa '============================================================================ i = inStr(i,cotacao,"") j = inStr(j,cotacao,"") k = inStr(j,cotacao," pontos") 'Porcentagem bovespa_porc = Mid(cotacao,i,(f-i)) 'Pontuação bovespa_pont = Mid(cotacao,j,(k-j)) '============================================================================ 'Dolar Comercial '============================================================================ i = inStr(i,cotacao,"comercial") f = inStr(i,cotacao,"%") j = inStr(j,cotacao,"") k = inStr(j,cotacao,"

") 'Porcentagem comercial_porc = Mid(cotacao,i,(f-i)) 'Valor comercial_pont = Mid(cotacao,j,(k-j)) '============================================================================ 'Dolar Paralelo '============================================================================ i = inStr(i,cotacao,"") f = inStr(i,cotacao,"") j = inStr(j,cotacao,"

") k = inStr(j,cotacao,"

") 'Porcentagem paralelo_porc = Mid(cotacao,i,(f-i)) 'Valor paralelo = Mid(cotacao,j,(k-j)) par1 = Instr(4, paralelo, "r$") '1 posição par2 = Instr(4, paralelo, "") '2 posição paralelo_pont = Mid(paralelo, par1, par2) '============================================================================ 'Euro '============================================================================ i = inStr(i,cotacao,"euro") f = inStr(i,cotacao,"%") j = inStr(j,cotacao,"

") k = inStr(j,cotacao,"

") 'Porcentagem euro_porc = Mid(cotacao,i,(f-i)) 'Valor euro = Mid(cotacao,j,(k-j)) euro1 = Instr(4, euro, "r$") '1 posição euro2 = Instr(4, euro, "") '2 posição euro_pont = Mid(euro, euro1, euro2) '============================================================================ 'Trocar e substituir '============================================================================ corta = Array("", "", "comercial", "paralelo" , "", "", "", "r$ ", "

", "r$", " ", "", "

", "euro") for cont = LBound(corta) to Ubound(corta) bovespa_porc = Replace(bovespa_porc, corta(cont), "", 1) bovespa_pont = Replace(bovespa_pont, corta(cont), "", 1) comercial_porc = Replace(comercial_porc, corta(cont), "", 1) comercial_pont = Replace(comercial_pont, corta(cont), "", 1) paralelo_porc = Replace(paralelo_porc, corta(cont), "", 1) paralelo_pont = Replace(paralelo_pont, corta(cont), "", 1) euro_porc = Replace(euro_porc, corta(cont), "", 1) euro_pont = Replace(euro_pont, corta(cont), "", 1) next '============================================================================ 'Formatar os números '============================================================================ 'Bovespa bovespa_porc = FormatNumber(bovespa_porc, 2) bovespa_pont = FormatNumber(bovespa_pont, 2) 'Dólar Comercial comercial_porc = FormatNumber(comercial_porc, 2) comercial_pont = FormatNumber(comercial_pont, 3) 'Dólar Paralelo paralelo_porc = FormatNumber(paralelo_porc, 2) paralelo_pont = FormatNumber(paralelo_pont, 2) 'Euro euro_porc = FormatNumber(euro_porc, 2) euro_pont = FormatNumber(euro_pont, 2) dim paralelo if paralelo_porc = "0,00" then paralelo_porc = 0 else paralelo_porc = paralelo_porc end if %>

• dólar comercial <% response.write comercial_porc %>% R$ <% response.write comercial_pont %>
• euro <% response.write euro_porc %>% R$ <% response.write euro_pont %>
• bovespa <% response.write bovespa_porc %>% <% response.write bovespa_pont %> pontos