07/03/2003, 18:43
|
 | | | Fecha de Ingreso: octubre-2001
Mensajes: 698
Antigüedad: 23 años, 6 meses Puntos: 2 | |
| este es el codigo que escribio vgaray.
pruebalo, extrae el codigo html de la url que le pongas. esta muy bien.
una cosa, he intentado guardar el contenido un fichero de texto pero me da un error muy extraño, si lo consigues, avisame.
<%
strUrl = "http://www.google.com/"
Dim objXML
'On error resume next
'Set objXML = Servger.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
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
%> |