Como criar um XML via código ASP

<%
  Dim xmldoc
  Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")

  ' Checa se o documento tem algum conteudo
  If (xmldoc.childNodes.length = 0) Then
    ' Criando o documento XML
    Set root = xmldoc.createNode("element", "Hi-Tech", "")
    xmldoc.appendChild (root)

    Set onode = xmldoc.createNode("element", "Employee", "")
    onode.Text = "Gurpreet Singh"

    xmldoc.documentElement.appendChild (onode)
    Set inode = xmldoc.createNode("element", "Address", "")

    onode.appendChild (inode)

    Set child = xmldoc.createNode("element", "Address1", "")
    child.Text = "Nepean Ont"

    inode.appendChild (child)

    Set child = xmldoc.createNode("element", "Address2", "")
    child.Text = "Canada"
    inode.appendChild (child)
  End If

' salva o arquivo xml
  xmldoc.save (Server.Mappath("savedI2.xml"))
%>

Esta matéria foi postada originalmente no ASP4Developers por Thiago Machado Souza (site), que na época era "Programador Desbravador, buscando quebrar todas as fronteiras além do horizonte da arte de programar !
www.thiagomachado.com.br". Hoje, vai saber...