Obtener contenido de otro sitio

[basty]

Te podria pedir que me envies el codigo en txt o lo que fuera de este articulo y el de WhoIs? yaque este no lo puedo descifrar y cuesta cambiar todo el codigo con los
1">
1">
1">

mil gracias

[hugorei]

mmmmm pense que era mas interesante

[dragerk]

Yo Yengo Una Duda, Hay Alguna Manera De Conseguir Que Un Archivo; Que Cada Semana Es Actualizado, Yo Pueda Tomar Esta Url Y Descargarlo Desde Mi Sitio Sin Que Tenga Q Actualizar La Url De Mi Sitio; Pq La Url Source Se Cambia Automiatica?

[affv]

Bueno pues hasta el momento he obtenido excelentes resultados con respecto al objeto, pero todos estos contenido han sido generados con GET, aque me refiero con get a que todos los contenidos que se longran obtener son de paginas en los que las variables son obtenidas con get como por ejemplo http://search.yahoo.com/search?p=for...t&cop=mss&tab= donde la busqueda se realiza con querystring pero como podria hacer para enviar los datos de un formulario que se envia con post en este caso seria http://search.yahoo.com/search con todas las variables enviadas por post (Este solo es un ejemplo)

alguno de ustedes sabe como hacerlo o que me diga donde encuentro mas informacion sobre este componente.

Gracias

[luisvasquez]

Iniciado por vgaray

Código para obtener contenido de otro sitio diferente al tuyo (no se trae el código fuente)...

<%
Function RevisarComponente(ProgId) 'Funcion para revisar la existencia de un componente x
Dim tmpObject
On Error Resume Next
Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
RevisarComponente = True
Else
RevisarComponente = False
End If
Set tmpObject = Nothing
End Function


Function Traerte_contenido_de_aqui(strURL)
Dim objXML
Set objXML = CreateObject("Msxml2.XMLHTTP")
objXML.open "GET", strURL, false
objXML.send
Traerte_info_de_aqui = objXML.responseText
end Function


If RevisarComponente("Msxml2.XMLHTTP") Then 'revisar que tengas instalado el componente
Response.write Traerte_contenido_de_aqui("http://www.maestrosdelweb.com")
Else
Response.Write "No tienes instalado el componente para poder obtener la info de otro sitio"
End if
%>


---------------------
Tan libre como gratuito!!!

Amigos,

A mi me aparecía la pantalla en blanco, como a muchos de ustedes. La solución está en correjir un error en la función. Como pueden observar en la función "Traerte_contenido_de_aqui" tiene la instrucción "Traerte_info_de_aqui = objXML.responseText " lo que significa que a la función no se le está asignando un valor....

Es solo un typo entre el nombre de la función "Traerte_contenido_de_aqui " y la variable a la cual se le asigna el valor "Traerte_info_de_aqui"

Espero los ayude...