Grab HTML with XML

This function shows you how to use XMLHTTP object to retrieve the HTML code of any webpage on the Internet.

The Code:

<%
 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 = "Incorrect URL"
         End if
     Else
         GetHTML = Err.Description
     End If
     Set objXMLHttp = Nothing 
End Function
%>

Usage: <%=GetHTML("http://www.yahoo.com")%>

Result


The message received was unexpected or badly formatted.


html xml objXMLHttp xml objects


Back To Top
© 1998 - 2024 psacake.com
Version 7.21 | Advertise on this site