mira, asi podria quedar para obtenerlo con el primer metodo que explico en mi blog:
Código ASP:
Ver originalSet xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.bn.com.pe/tipo-cambio.asp", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"Compra Dolar a")
PosIni2 = InStr(PosIni1,Cadena,"<")
PosFin = InStr(PosIni2, Cadena,"/")
DolarCompra = MID(Cadena, PosIni2-2, PosFin-PosIni2)
PosIni1 = InStr(Cadena,"Venta Dolar a")
PosIni2 = InStr(PosIni1,Cadena,"<")
PosFin = InStr(PosIni2, Cadena,"/")
DolarVenta = MID(Cadena, PosIni2-2, PosFin-PosIni2)
Set xml = Nothing
if instr(DolarCompra,chr(32)) then DolarCompra=replace(DolarCompra,chr(32),"")
dolar_compra=CDbl(MID(DolarCompra,InStr(DolarCompra,">")+1,LEN(DolarCompra)))
dolar_venta=CDbl(MID(DolarVenta,InStr(DolarVenta,">")+1,LEN(DolarVenta)))
response.write dolar_compra & "<br>" & dolar_venta
Ojala te sirva amigo