Leer codigo html de una pagina fuera del sitio

[JuanRAPerez]

lee compelto el post

http://www.forosdelweb.com/f15/tipo-...xicano-271010/

el buen Myakire posteo

<%
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)
Response.Write "Dolar Compra: " & DolarCompra & "<br>"
Response.Write "Dolar Venta: " & DolarVenta & "<br>"
Response.Write Cadena & "<br>"
Set xml = Nothing
%>

pero como te digo lee compelto el post para que tengas claro un par de cosas

suerte