Cita:
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...