tipo de cambio (dolar) a peso mexicano

[Myakire]

Ok, orharo2003, yo se que puedes sacarlo sin problemas. Aca dejo algo para obtener el dolar a la venta y compra con tu idea por si alguien necesita una linea para empezar.

Código:

<%
  Response.Buffer = True
  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)
	 PosIni1 = PosFin
	 PosIni2 = InStr(PosIni1,Cadena,"$")
	 PosFin  = InStr(PosIni2, Cadena,"<")
   DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)
	 Response.Write "Dolar Compra: " & DolarCompra & "<br>"
	 Response.Write "Dolar Venta: " & DolarVenta & "<br>"
       Response.Write Cadena & "<br>"
  Set xml = Nothing
%>