Obtener contenido de otro sitio

[vgaray]

Saludos a todos.

A quien le aparece que no tiene instalado el componente, o que al menos le aparece un mensaje de error; necesita ir al sitio de microsoft y bajar la última versión del MDAC (http://www.microsoft.com/data/download_270RTM.htm)

O baja el Component Checker (http://www.microsoft.com/data/download.htm#CCinfo) el cual te revisará la versión que tengas instalada y te reportará si tienes una mala instalación del componente que aqui queremos usar.

Gurrutello da un excelente enlace (lineas arriba).

Si no les aparece absolutamente nada, cambiemos encontes el código para 'provocar' recibir cuando menos un mensaje de error...

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

Response.write Traerte_contenido_de_aqui("http://www.algunsitio.com")
%>

Yo tengo instalado el win2000, windows scripting 5.6 (http://msdn.microsoft.com/scripting), mdac 2.7 (http://www.microsoft.com/data/download_270RTM.htm)

Respecto a que si habrá problemas con el propietario del sitio... La idea de este mensaje es mostrar que otras personas pueden obtener contenido de nuestros sitio. Que quede claro, este código no te permite obtener el código fuente; si no el resultado que obtendrías al visitar al que estas haciendo referencia.

En dado caso, talvez es necesario buscar la opción de impedir que otros 'lean' nuestro sitio.



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