Esto toma el precio del dolar de la pagina de HSBC en pesos mexicanos
Código:
<%
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)
Set xml = Nothing%>
y para llamar el precio del dolar es:
<%=FormatCurrency(CDbl(MID(DolarCompra,InStr(Dolar Compra,";")+1,LEN(DolarCompra))),2) %>