Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Actualizar xml dinámicamente
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Arcano
Starting Member

Venezuela
8 Posts
Mensajes - 31 Oct 2008 :  13:22:31  Ver Perfil  Enviar Email
Hola a todos:
Estoy haciendo una aplicación en asp 3.0 que abre un xml y agrega registros levantados de una bd al final de éste, como un nodo.
Ésta es la estructura del xml:

<?xml version="1.0" encoding="UTF-8"?>
<urlset>
<url>
<loc>http://misitio.com/item.asp?id=1</loc>
</url>
<url>
<loc>http://misitio.com/item.asp?id=1</loc>
</url>
<url>
<loc>http://misitio.com/item.asp?id=3</loc>
</url>
</urlset>
El código que actualiza sería éste

<%
on error resume next

Set xmlObj = CreateObject("Microsoft.XMLDOM")
xmlObj.Async = False
xmlObj.Load(Server.MapPath("/lista.xml"))

Set root = xmlObj.documentElement
'Obtener el ultimo id ingresado

arrChild=split(root.lastChild.text)
numero=split(arrChild(0),"=")
idFinal=split(numero(1),year(now()))
idLastElement=idFinal(0)

Set root = nothing
Set xmlObj = nothing

GetConn conn,rs
rs.open "select id from base where id> "&idLastElement ,conn
rsid=rs.getrows()
CloseConn conn,rs

for i=0 to Ubound(rsid,2)

stringNuevo = vbCrLf & "<url>" & vbCrLf & _
"<loc>http://misitio.com/item.asp?id="& rsid(0,i)&"</loc>" & vbCrLf & _
"</url>" & vbCrLf & vbCrLf

Set xmlObj = CreateObject("Microsoft.XMLDOM")
xmlObj.Async = False
xmlObj.Load(Server.MapPath("/lista.xml"))

Set xmlObj2 = CreateObject("Microsoft.XMLDOM")
xmlObj2.Async = False
xmlObj2.LoadXML(stringNuevo)

Set root = xmlObj.documentElement
Set root2 = xmlObj2.documentElement

root.appendChild(root2)
xmlObj.Save(Server.MapPath("/lista.xml"))

Set xmlObj = nothing
Set xmlObj2 = nothing
stringNuevo=""
next
response.Write(err.description)
%>

El problema que tengo es que me da el error
Invalid procedure call or argument

ya hice un response.write a ver si me estaba generando el stringNuevo, y lo hace sin problemas.

Se me ocurrió en el stringNuevo en lugar de poner stringNuevo = vbCrLf & "<url>" & vbCrLf & _
poner stringNuevo = vbCrLf & "<url xmlns=""pepe"">" & vbCrLf & _
y anda, pero a todos los nodos nuevos que aparecen le agrega eso y no quiero que aparezca, pues sólo quiero que aparezca el "<url>"


Arcano
Starting Member

Venezuela
8 Posts
Posted - 31 Oct 2008 :  13:23:33  Ver perfil  Enviar e-mail
Ah, ante todo gracias a todos por leer mi post y a quien me ilumine, desde ya, muchas gracias de antemano.
Saludos!!

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar