este es el codigo
Código:
<%
Response.ContentType = "text/xml"
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0;"
conn.open server.mappath("goncalves.mdb")
sql="select id_propi, foto from galerias"
set rs = Conn.Execute(sql)
rs.MoveFirst()
response.write("<?xml version='1.0' ?>")
response.write("<clientes>")
while (not rs.EOF)
response.write("<cliente>")
response.write("<nombre>" & rs("id_propi") & "</nombre>")
response.write("<apellido>" & rs("foto") & "</apellido>")
response.write("</cliente>")
rs.MoveNext()
wend
rs.close()
conn.close()
response.write("</clientes>")
%>
<%
Dim objDom
Dim objRaiz
Dim objHijo1
Dim objHijo2
Dim objCabecera
'instanciamos el XMLDOM
Set objDom = Server.CreateObject("Microsoft.XMLDOM")
'instanciamos el elemento raiz y lo agregamos al objeto XMLDOM
Set objRaiz = objDom.createElement("ElementoRaiz")
objDom.appendChild objRaiz
'instanciamos el elemento Hijo1 y lo agregamos al elemento raiz
Set objHijo1 = objDom.createElement("childElement1")
objRaiz.appendChild objHijo1
'instanciamos el elemento Hijo2 y lo agregamos al elemento raiz
Set objHijo2 = objDom.createElement("childElement2")
objRaiz.appendChild objHijo2
'instanciamos la cabecera
Set objCabecera = objDom.createProcessingInstruction("xml","version='1.0'")
'agregamos la cabecera antes del elemento raiz
bjDom.insertBefore objCabecera, objDom.childNodes(0)
'finalmente grabamos el XML en disco duro
objDom.Save "D:\desarrollo galerias\gallery\gallery\MiArchivoXML.xml"
%>
Como podras aprecias el objeto esta creado.
Set objDom = Server.CreateObject("Microsoft.XMLDOM")
Proda ces que estan mal ubidas las cosas?????