Problema: Recordset a XML

[eltano]

Buenas, tengo que tirar un recordset dentro de un xml y depues leerlo con dom.
El problema es que cuando ejecuto no me traer la info !!!!
Si alguien me puede dar una mano mas que agradecido... o si alguien conoce un metodo mas facil, tambien !!! (va a verrar que falta la parte de conexion, esa ni la pongo, funciona ok)

Lo comentarie un poco para que se entienda mejor

les paso el codigo

Dim objFSO
Dim objXMLfile
Dim xmlstring
Dim XMLDOM
Dim XMLFile
Dim Recordlist


Set objFSO = server.CreateObject("Scripting.FileSystemObject")
Set objXMLfile = objFSO.CreateTextFile("c:\temp\dvv.xml")
Set XMLDOM = server.CreateObject("Microsoft.XMLDOM")

sql_str = "SELECT * FROM prueba"
rs.open sql_str, con

'GUARDO EL RESULTADOD DEL RECORDSET EN EL XML
objXMLfile.writeline "<TABLA-BITACORA>"
while not var_rs.EOF
objXMLfile.writeline "<REGISTRO><ID_BIT>"&var_rs("id_bitacora")&"</ID_BIT><FECHA>"&var_rs("Fecha")&"</FECHA><HORA>"&var_rs("Hora")&"</HORA><IP_ADDRESS>"&var_rs("IP_Address")&"</IP_ADDRESS><USUARIO>"&var_rs("usuario")&"</USUARIO><PAGINA>"&var_rs("pagina_generadora")&"</PAGINA><EVENTO>"&var_rs("evento")&"</EVENTO></REGISTRO>"
var_rs.MoveNext
Wend
objXMLfile.writeline "</TABLA-BITACORA>"
var_rs.close

Set var_rs = Nothing
objXMLfile.close
Set objXMLfile = Nothing
Cerrarconexion()

'CARGO EL RESULTADO DEL RECORDSET DESDE EL ARCHIVO XML
XMLDOM.load ("c:\temp\dvv.xml")
set Recordlist = XMLDOM.getElementsByTagName("REGISTRO")
%>
<table border="1" align="center" width="100%">
<TR align="center">
<TH>ID</TH><TH>FECHA</TH><TH>HORA</TH><TH>IP_ORIGEN</TH><TH>USUARIO</TH><TH>PAGINA_GENERADORA</TH><TH>EVENTO</TH>
</TR>
<%
for i = 0 to recordlist.length -1
%> <TR align="center">
<TD><%response.write (Recordlist.item(i).firstchild.firstchild.nodevalu e & " ")%></TD>
<TD><%response.write (Recordlist.item(i).firstchild.nextsibling.firstch ild.nodevalue & " ")%></TD>
<TD><%response.write (Recordlist.item(i).firstchild.nextsibling.nextsib ling.firstchild.nodevalue & " ")%></TD>
<TD><%response.write (Recordlist.item(i).firstchild.nextsibling.nextsib ling.nextsibling.firstchild.nodevalue & " ")%></TD>
<TD><%response.write (Recordlist.item(i).firstchild.nextsibling.nextsib ling.nextsibling.nextsibling.firstchild.nodevalue & " ")%></TD>
<TD><%response.write (Recordlist.item(i).firstchild.nextsibling.nextsib ling.nextsibling.nextsibling.nextsibling.firstchil d.nodevalue & " ")%></TD>
<TD><%response.write (Recordlist.item(i).firstchild.nextsibling.nextsib ling.nextsibling.nextsibling.nextsibling.nextsibli ng.firstchild.nodevalue & " ")%></TD>
<% next
End if
%>

GRACIAS
ELTANO

[u_goldman]

Hola eltano, sin duda hay una que otra forma mas sencilla de lograr lo que quieres hacer, dime por casualidad estaras usando SQL?

Saludos

[eltano]

sip sql 2000.
ya probe la conexion esta bien, y si hago un while basico me trae la info que quiero, el problema es cuando, para mi, escibe en el xml, no lo esta haciendo
(me doy cuenta porque al archivo xml le meto cualquier basura y cuando, despues de ejecutar el codigo, me aparece completamente vacio.)
Con lo cual hace el createfile pero no wl writeline me parece...

espero que esto ayude a quien me de una mano :D

eltano

[u_goldman]

Ok con SQL puedes devolver XML de tus consultas

SELECT campos FROM tabla FOR XML RAW

Fijate en la salida que genera, despues solo tendrias que aplicar algun tipo de transformacion.

Tambien podrias escribir el rs directamente a un XML:
http://builder.com.com/5100-6371-5035021.html

Saludos

[eltano]

MIL GRACIAS realmente !!!!!!!

llego a casa y lo pruebo!!!!

y te cuento como me fue :)

saludos eltano