22/05/2007, 06:00
|
| | | Fecha de Ingreso: abril-2004 Ubicación: paraná entre rios
Mensajes: 274
Antigüedad: 20 años, 6 meses Puntos: 0 | |
Re: Cotizacion dolar online en web flash 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.
__________________ pituu2 |