Hola, recientemente HSBC ha cambiado la estructura de su pagina, por lo que el anterior script para sacar el precio del dolar dejo de funcionar, lo actualice a sacarlo de la pagina de Banamex, aqui el codigo:
Código ASP:
Ver originalSet xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.banamex.com/esp/finanzas/divisas/divisas.html", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"Ventanilla")
PosIni2 = InStr(PosIni1,Cadena,".")
PosFin = InStr(PosIni2, Cadena,"<")
DolarCompra = MID(Cadena, PosIni2-2, PosFin-PosIni2)
PosIni1 = PosFin
PosIni2 = InStr(PosIni1,Cadena,".")
PosFin = InStr(PosIni2, Cadena,"<")
DolarVenta = MID(Cadena, PosIni2-2, PosFin-PosIni2)
Set xml = Nothing
dolar_compra=CDbl(MID(DolarCompra,InStr(DolarCompra,";")+1,LEN(DolarCompra)))
dolar_venta=CDbl(MID(DolarVenta,InStr(DolarVenta,";")+1,LEN(DolarVenta)))
Espero les sirva, saludos