|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
