este codigo optiene los datos de otro sitio de internet
Código para obtener contenido de otro sitio diferente al tuyo (no se trae el código fuente)...
ayuda please
<%
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
%>
Hercules
