(VBScript) Setting the XML DOCTYPE

Demonstrates setting an XML document's DOCTYPE. The sample code below produces the following XML output:

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
    <body>This is the HTML body</body>
</html>

Download Chilkat XML ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set root = CreateObject("Chilkat.Xml")

root.Tag = "html"

root.DocType = "<!DOCTYPE html PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""http://www.w3.org/TR/html4/loose.dtd"">"

root.NewChild2 "body","This is the HTML body"

outFile.WriteLine(root.GetXml())


outFile.Close

Mail Component · XML Parser