Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

Download Chilkat HTML-to-XML ActiveX (also includes HTML-to-PlainText conversion)

Download Chilkat HTTP ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  Note: This example uses two Chilkat products: Chilkat HTTP
'  and Chilkat HTML-to-XML.  The "Chilkat Bundle" can be licensed
'  at a price that is less than purchasing each product individually.
'  The "Chilkat Bundle" provides licenses to all existing Chilkat components.  Also, new-version upgrades are always free.

set http = Server.CreateObject("Chilkat.Http")

'  Any string argument automatically begins the 30-day trial.
success = http.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"

End If

html = http.QuickGetStr("http://www.intel.com/")
If (html = vbNullString ) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"

End If

set htmlToXml = Server.CreateObject("Chilkat.HtmlToXml")

'  Any string argument automatically begins the 30-day trial.
success = htmlToXml.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( htmlToXml.LastErrorText) & "</pre>"

End If

'  Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset = "utf-8"

'  Set the HTML:
htmlToXml.Html = html

'  Convert to XML:

xml = htmlToXml.ToXml()

'  Save the XML to a file.
'  Make sure your charset here matches the charset
'  used for the XmlCharset property.
htmlToXml.WriteStringToFile xml,"out.xml","utf-8"

Response.Write "<pre>" & Server.HTMLEncode("Finished.") & "</pre>"
%>
</body>
</html>