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