14/03/2002, 11:44
|
| | | Fecha de Ingreso: octubre-2000 Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 6 meses Puntos: 0 | |
| Re: Obtener contenido de otro sitio
Saludos.
Hercules, por favor intenta con el siguiente código para ver que obtienes.
<%
strUrl = "http://" & Request.ServerVariables("HTTP_HOST")
Dim objXML
On error resume next
Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")
If Err Then
Response.write "Error: " & Err.Description
End If
On Error Goto 0
objXML.Open "GET", strURL, False, "", ""
objXML.send
If objXML.Status >= 400 And objXML.Status <= 599 Then
Response.write "Existe un error : " & objXML.Status & " - " & objXML.statusText
Else
Response.write objXML.ResponseText
End If
%>
|