Ver Mensaje Individual
  #4 (permalink)  
Antiguo 26/07/2005, 15:25
orharo2003
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 21 años
Puntos: 4
Exacto master .

Asi es, en asp podemos utilzar peticiones, te pongo un ejemplo :
El siguiente script da los valores del tipo de cambio del dolar para México.

Server.CreateObject("Microsoft.XMLHTTP")

' /* TIPO DE CAMBIO HSBC */
xml.Open "get", "http://dsrefa01.hsbc.com.mx/aptrix/InternetPub.nsf/Content/TasasSplash", False
xml.Send

Cadena=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)

hsbc_dolar_compra=formatnumber(replace(DolarCompra," ",""),2) hsbc_dolar_venta=formatnumber(replace(DolarVenta," ",""),2)

' /* TIPO DE CAMBIO BANCOMER */

xml.Open "get", "http://www.bancomer.com.mx/ahome/home_index_main.asp", False xml.Send Cadena = xml.responseText
CadenaInicial = ""
CadenaFinal = ""
PosIni = InStr(Cadena,CadenaInicial)
PosFin = InStr(PosIni, Cadena,CadenaFinal)
Cadena = MID(Cadena, PosIni, PosFin-PosIni) Vec = SPLIT(Cadena,"")


bancomer_dolar_compra=formatnumber(mid(Vec(3),1,5),2) bancomer_dolar_venta=formatnumber(mid(Vec(4),1,5),2)


Espero te sirva como ejemplo.