contenido de otras paginas en la mia.

[lexus]

hola,
alguien me puede indicar o mostrar un ejemplo de como colocar en mi pagina los indicadores economicos o el clima pero sin publicidad de otras paginas, como por ejemplo el valor del dolar, la temperatura de mi ciudad, etc...?
me imagino que se hace con xml http pero no se como ..

[Muzztein]

primero tienes que encontrar alguien que de el servicio de poner su informacion en xml.

[lexus]

sip, gracias, pero como lo haria?
ya encontrado varias paginas con ese servicio qeu dices.. pero no scomo sacar exactamente una parte del codigo por ejemplo solo los indicadores economicos o solo el clima, etc...

[sjam7]

aqui hay un ejemplo de como sacar la cotizacion del dolar de la pagina de HSBC usando XML, quizas te pueda ayudar en algo

[lexus]

me la puedes enviar porfavor? gracias..

[sjam7]

Código:

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://dsrefa01.hsbc.com.mx/aptrix/I...nt/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
  
response.write "Dolar compra"&Dolarcompra
response.write "<br>Dolar venta"&Dolarventa

Response.Write "<br>100 pesos son en dolares: " & FormatNumber((100 / CDbl(MID(DolarVenta,InStr(DolarVenta,";")+1,LEN(DolarVenta)))),2) & "<br>"
dia=day(date())
mes=month(date())
ano=replace(year(date()),"20","")
response.write dia&mes&ano
%>