Saber cotizacion del Dolar-Peso MX con ASP

Existiran algunas veces en las que necesites saber el precio actual del dolar en pesos, para esto puedes usar informacion de algunos bancos, en este caso utilizo la de HSBC, una vez obtenida la info pues podras hacer con ella cuentas o lo que quieras con ella.

El sistema funciona con el siguiente codigo:

 Response.Buffer = True
 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 

El resultado quedara en las variables DolarCompra y DolarVenta

Espero te sirva de algo

Ver post completo...