08/03/2002, 19:02
|
| | | 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
A ver Diego y Hercules.
Por favor probemos con todas las posibles formas de llamar al componente...
<%
strUrl = "http://www.maestrosdelweb.com"
Dim objXML
On error resume next
Set objXML = Server.CreateObject ("Microsoft.XMLHTTP")
'Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.4.0")
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
%>
El lunes publicaré el código para hacer un buscador para tu web (basado en archivos no en base de datos), espero que lo revisen y lo critiquen para poder mejorarlo.
Gueno, TGIF
Mesera, ronda pa' todos !!!
|