Atualização

[gu_lt 0]

É possível atualizar um campo automaticamente com valores de um outro site?Ex:site 1 - contém a cotação do dolarsite2 - irá pegar a catação do dolar e atualizar o meu site?ObrigadoGustavo

[Salgado 4]

Creio ser possível usando XMLHTTP, dá uma pesquisada aqui no fórum mesmo ou no google sobre isso.

[gu_lt 0]

Ok mas o site qeu to querendo pegar o valor é o site da gazeta mercantil e colocar num site q eu estou fazendo.ObrigadoGustavo

[FabricioGomes 0]

entao, procure por cotacao dolar ou xmlHTTP que voce achará um exemplo disso...

 

um exemplo

 

<% Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP") XMLHttp.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm", false XMLHttp.send() pega = XMLHttp.ResponseText cotacao = LCase(pega) Set cod = Nothing i = 1 teste = cotacao i = inStr(i,cotacao,"taxa de venda") i = inStr(i,cotacao,"<tr>") i = inStr(i,cotacao,"<td") i = inStr(i,cotacao,">") f = inStr(i,cotacao,"</td>") cotacao_data = Mid(cotacao,i,(f-i)) cotacao_data = Replace(cotacao_Data,">"," ") i = inStr(f,cotacao,"<td ") i = inStr(i,cotacao,">") f = inStr(i,cotacao,"</td>") cotacao_venda = Mid(cotacao,i,(f-i)) cotacao_venda = Replace(cotacao_venda,">"," ") i = inStr(f,cotacao,"<td ") i = inStr(i,cotacao,">") f = inStr(i,cotacao,"</td>") cotacao_compra = Mid(cotacao,i,(f-i)) cotacao_compra = Replace(cotacao_compra,">"," ") response.write "Data: "&cotacao_data&"<br>" response.write "Dolar Venda: "&cotacao_venda&"<br>" response.write "Dolar Compra : "&cotacao_compra&"<br>" %>