Hay varias formas de resolver eso, yo hice esto:
1) hice un documento llamado
dolar.asp EN UTF-8 con el siguiente código:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Buffer = True
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.bancoprivado.com.ar/iframe_cotizaciones_resumen.asp", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"DOLAR")
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
response.write "&DolarCompra=" & DolarCompra & "&DolarVenta=" & DolarVenta & "&"
%>
2) Hice un Flash con el siguiente código:
Código:
var lv:LoadVars = new LoadVars();
_root.createTextField("dolar_txt", _root.getNextHighestDepth(), 0, 0, 400, 300);
lv.load("dolar.asp");
dolar_txt.html = true;
dolar_txt.multiline = true;
dolar_txt.selectable = false;
dolar_txt.htmlText = "Cargando Datos...";
lv.onLoad = function(ok) {
if (ok) {
dolar_txt.htmlText = "<b>Compra</b>: "+lv.DolarCompra+"<br><b>Venta</b>: "+lv.DolarVenta;
} else {
dolar_txt.htmlText = "<b>ERROR</b>";
}
};
3) Generé el swf, lo metí en un HTML y lo probé en el servidor...
Eso me sirvió a mi, cuéntame cómo te fué...
Salu2