(Classic ASP) Download HTML from URL and Convert to XML

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' Note: This example requires the Chilkat Bundle license.

' Any string argument automatically begins the 30-day trial.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Global")
set glob = Server.CreateObject("Chilkat.Global")
success = glob.UnlockBundle("30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( glob.LastErrorText) & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = Server.CreateObject("Chilkat.Http")

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HtmlToXml")
set htmlToXml = Server.CreateObject("Chilkat.HtmlToXml")

' 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.
success = htmlToXml.WriteStringToFile(xml,"qa_output/out.xml","utf-8")

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

%>
</body>
</html>