En las faqs esta, solamente que no se llama exactamente "indicadores de chile"
Este codigo lo que hace es sacar de una pagina de HSBC, de Mexico, el precio del dolar a la compra y venta, convertido en pesos, adaptalo solamente a una pagina de un banco de Chile y listo
PosIni1 es, en el texto resultante el inicio de donde se tomara el texto
PosFin...el fin
Código:
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://dsrefa01.hsbc.com.mx/aptrix/InternetPub.nsf/Content/TasasSplash", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"DOLAR AMERICANO")
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)
PosIni1 = PosFin
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)
Set xml = Nothing
if right(dolarcompra,1)="." then DolarCompra= DolarCompra&"00"
if right(DolarVenta,1)="." then DolarVenta= DolarVenta&"00"
'if response.buffer=true then response.flush
%>