Cotizacion dolar online en web flash

[pituu2]

esto lo consegui aca en el foro hace ya un tiempo

asp :

<%@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 & "&"
%>

ahora este codigo en flash :

ar 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>";
}
};

contame si te funciona !

saludos.