
17/01/2008, 08:02
|
 | Colaborador | | Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses Puntos: 27 | |
Re: Leer codigo html de una pagina fuera del sitio lee compelto el post http://www.forosdelweb.com/f15/tipo-...xicano-271010/
el buen Myakire posteo Cita: <%
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
__________________ JuanRa Pérez
San Salvador, El Salvador |