Novato en XML
03 de Enero del 2006

Buenas Tardes, desde un principio a penas estoy entendiendo el manejo de XML, y todo bien... Pero aqui tengo un problema, que realmente le he dado mucha vuelta y nada de nada, no consigo la solucion:

Necesito hacer una consulta en SQL y mostrar los resultados en un documento XML??? (Puede ser a traves de ASP?)

Si pueden o saben como hacerlo avisamenme que estoy bastante rendedado con esto!

Ante todo muchas gracias!

ed
03 de Enero del 2006

'Creo el nodo principal
Set objRoot = objDom.createElement("webtv")
objDom.appendChild objRoot

For counter = 1 To Request.Form("archthis").Count

'Request.Form("archthis")(counter)
set objrs=objconn.execute("select * from noti_notas where id='"&Request.Form("archthis")(counter)&"'")

Set objField = objDom.createElement("noticia")

Set objattID = objDom.createAttribute("seccion")
objattID.Text = trim(objrs("seccion"))
objField.setAttributeNode objattID

Set objattID = objDom.createAttribute("titulo")
objattID.Text = trim(objrs("titulo"))
objField.setAttributeNode objattID

Set objattTabOrder = objDom.createAttribute("breve")
objattTabOrder.Text = trim(objrs("webtv"))
objField.setAttributeNode objattTabOrder

objRoot.appendChild objField


Next

Set objPI = objDom.createProcessingInstruction("xml", "version='1.0'")
objDom.insertBefore objPI, objDom.childNodes(0)
objDom.Save "c:webtv.xml"
'objDom.save server.mappath("../../upload/webtv/webtv.xml")

Set objDom = Nothing
Set objRoot = Nothing
Set objField = Nothing
Set objFieldValue = Nothing
Set objattID = Nothing
Set objattTabOrder = Nothing
Set objPI = Nothing
miMens="okidoki"

end if

%>

ed
03 de Enero del 2006

con eso lees datos de una BD y los escribis en un XML despues donde dice .....save.... elegis la ubicacion