03/09/2005, 11:31
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Lima
Mensajes: 1.302
Antigüedad: 23 años, 3 meses Puntos: 3 | |
| <%
Function GetHTML(strPage)
On Error Resume Next
Set objXMLHttp = Server.CreateObject ("Microsoft.XMLHTTP")
objXMLHttp.Open "GET", strPage ,False,"",""
objXMLHttp.Send
If Err.number = 0 Then
If objXMLHttp.Status = 200 Then
GetHTML = objXMLHttp.ResponseText
Else
GetHTML = "Url incorrecta"
End If
Else
GetHTML = Err.description
End If
Set objXMLHttp = Nothing
End Function
Response.Write GetHTML("http://www.yahoo.com")
%>
__________________ Yo si sé lo que es trabajar duro, porque lo he visto. |