Un ejemplo tonto...
<%
Response.CharSet = "iso-8859-1"
Response.Expires = -1
Response.Buffer = true
Response.ContentType = "text/xml"
Dim objDocXML, objNodo, objNodoHijo
Set objDocXML = server.CreateObject("Microsoft.XMLDOM")
objDocXML.async = false
objDocXML.appendChild (objDocXML.createElement("nodo_raiz"))
Set objNodo = objDocXML.documentElement.appendChild(objDocXML.cr eateElement("nombre"))
objNodo.setAttribute "id_nombre", "13"
objNodo.text = "Pepe Pepitez"
Set objNodoHijo = objNodo.appendChild(objDocXML.createElement("direc ciones"))
objNodoHijo.setAttribute "id_direccion", "1"
objNodoHijo.text = "
[email protected]"
Set objNodoHijo = objNodo.appendChild(objDocXML.createElement("direc ciones"))
objNodoHijo.setAttribute "id_direccion", "2"
objNodoHijo.text = "
[email protected]"
Set objNodo = objDocXML.documentElement.appendChild(objDocXML.cr eateElement("empresa"))
objNodo.text = "Pescados Pepa"
objNodo.setAttribute "id_empresa", "7"
Response.Write "<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>"
Response.Write objDocXML.xml
Set objNodoHijo = Nothing
Set objNodo = Nothing
Set objDocXML = Nothing
%>