USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Cotação do Dólar
Postada em 2/10/2003 por ^HEAVY-METAL^            
Lendo o NewsGroup eu percebi que tem algumas pessoas que querem saber como ver a cotação do Dólar, abaixo está o código, bem simples por sinal, e, direto do Banco Central.

<html>
<head>
<title> Cotação do Dólar </title>
</head>
<%

Set cod = Server.CreateObject("Microsoft.XMLHTTP")
cod.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", false
cod.send()
pega = cod.ResponseText
cotacao = LCase(pega)
Set cod = Nothing

i = 1
i = inStr(i,cotacao,"taxa de venda")
i = inStr(i,cotacao,"<tr")
f = inStr(i,cotacao,"</tr>")
cotacao = Mid(cotacao,i,(f-i))
cotacao = Replace(cotacao,"</font>"," ",1,2)

%>
<body bgcolor="#FFFFFF">
<div align="center">
<p> </p>
<p> </p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" color="#0000CC">Cotação
Diária do Dólar</font>
</p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" color="#0000CC">Direto
do Banco Central!!!!!!</font>
</p>
<table width="41%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Data</font></div>
</td>
<td>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Valor
de Venda
</font></div>
</td>
<td>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Valor
de Compra
</font></div>
</td>
</tr>
<tr>
<td>
<%response.write cotacao%>
</td>
</tr>
</table>
<p><font face="Verdana, Arial, Helvetica, sans-serif" color="#006633">Feito
por Ricardo Tardelli Pessoa - <a href="mailto:tardelli@aspbrasil.com.br">tardelli@aspbrasil.com.br</a></font></p>
</div>


T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página