Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ttwander

Cotações

Por , em ASP Clássico

Recommended Posts

ttwander    0

ttwander
Postado

Gostaria de saber se alguém conhece algum script que capture de alguma fonte (confiável) a cotação diária do dólar e que possa ser usado como include em uma página.

Compartilhar este post

Link para o post
Compartilhar em outros sites

1sys    0

1sys
Postado

de uma olhadinha nesse codigo.....

 

codigo.....

 

<html>

<head>

<title>dolar</title>

</head>

<body bgcolor="#FFFFFF">

 

<%

Set objeto = Server.CreateObject("Microsoft.XMLHTTP")

objeto.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", False

objeto.send("")

 

'objeto.Open "PROPFIND", strURL, True

 

textoHTML = objeto.ResponseText

 

dados = LCase(textoHTML)

 

inicio = 1

inicio = inStr(inicio,dados,"taxa de venda")

 

inicio = inStr(inicio,dados,"</td>")

fim = inStr(inicio,dados,"</tr>")

dados = Mid(dados,inicio,(fim-inicio))

 

dados = Replace(dados,"arial","verdana color=#000080")

dados = Replace(dados,"eecc88","ff8000")

dados = Replace(dados,"right","center")

 

set objeto = Nothing

%>

<table cellspacing="1" cellpadding="0">

<tr>

<td colspan="3" align="center">

<font face="verdana" color="#000080"><b>Dólar</b></font>

</td>

</tr>

<tr>

<td></td>

<td width="70" bgcolor="#000080" align="center">

<font face="verdana" color="#FFFFFF" size="2">Compra</font>

</td>

<td width="70" bgcolor="#000080" align="center">

<font face="verdana" color="#FFFFFF" size="2">Venda</font>

</td>

</tr>

<tr>

<td><%=dados%></tr>

</table>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito