quarta-feira, 1 de outubro de 2003

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...

0 comentários: