extraer datos de sitios web

[virla]

quisiera saber si hay forma de extraer datos de una pagina web, como ser el tipo de cambio dolar el clima y otras cosas mas, pero para que se muestren en una pagina asp.
Devo aclarar que de xml no tengo idea de nada, pero si me dan una mano con algo ya funcionando y que pueda ser adaptado a lo que yo quiera investigare y tratare de hacerlo funcional.
desde ya agradezco la ayuda que me puedan brindar

[sjam7]

precisamente en las faqs del foro de ASP (casi al final) puse como sacar la cotizacion del dollar de la pagina de un banco de Mexico, si checas el codigo quizas puedas adaptarlo a un banco de tu pais (si es otro)

[virla]

he intentado hacerlo pero no pasa nada, si bien lo he probado con ese banco de mexico y me da el resultado, pero la verdad necesitaria si alguien puede explicarme como es que funciona para darme una idea y poder asi modificarlo para un banco de argentina

[sjam7]

le intentaste alguna modificacion? cambiar la url por ejemplo? los otros datos son muy entendibles, solo es cuestion de jugar un poco con ellos y con el codigo fuente de la pagina de donde vas a sacar los datos

[virla]

lo he probado todo y la verdad nada solo me funciona como se posteo originalmente

[sjam7]

alguna direccion de algun banco donde este la cotizacion del dolar?

[virla]

http://www.dolaraldia.com/ el tema es que no tiene el signo $ para que tenga un marcador de donde sacar el dato y en todas las paginas que he visto pasa lo mismo

[sjam7]

Fue tan facil como cambiar solo la URL y en lugar de DOLAR AMERICANO dejarlo solo en DOLAR:

Para sacar el precio de Compra-Venta

Código:

<%
  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
%>

Un ejemplo de como utilizar estos datos:

Código:

<%
response.write DolarCompra & "<br>" & DolarVenta & "<br><br>"

'COMO UTILIZAR ESTA INFORMACION EN UN EJEMPLO
Dolar=CDbl(MID(DolarCompra,InStr(DolarCompra,";")+1,LEN(DolarCompra)))
Dolares=Dolar*5
response.write FormatCurrency(Dolares,2)
%>

Ya mas pues solo seria cosa de moverle un poco, saludos

[virla]

mil gracias por tu ayuda, todo funciono muy bien

[virla]

una pregunta mas porque el tema de la cotizacion del dolar funciono bien pero ahora estoy tratando de sacar el tiempo de mi ciudad y la verdad esto es mas dificil, he probado muchas formas.
Quisiera que me expliques como funciona porque por ahi me salen errores como este

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'InStr'
/tiempo.asp, line 8

el dato que pongo en la linea 8 es el siguiente
7) PosIni1 = InStr(Cadena,"El tiempo en Río Gallegos")
8) PosIni2 = InStr(PosIni1,Cadena,"Temp.")
9) PosFin = InStr(PosIni2, Cadena,"|")
sera porque no lo encuentra o porque tiene que tener otro tipo de valor?

otra cosa mas, como puedo hacer para saber que imagen se esta mostrando en ese sitio, me refiuero a la imagen si esta nublado, con sol, o lloviendo, etc. para que en mi sitio pueda mostrar la imagen correspondiente

[virla]

bueno gracias, investigando y buscando las forma de hacerlo, pude llegar al resultado que necesitaba.
muchas gracias por tu ayuda sjam7