CONVERTION DE JEUX D'ENREGISTREMENTS ADO AU FORMAT XML

Commentaire de bubblepwal le 03/07/2003 20:48:02

Lu tt le monde,

Là j'ai un doute ... si ça c'est pas du xml ...!

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='id' rs:number='1'>
<s:datatype dt:type='int' dt:maxLength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/>
</s:AttributeType>
<s:AttributeType name='actu' rs:number='2' rs:nullable='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='50'/>
</s:AttributeType>
<s:AttributeType name='titre' rs:number='3' rs:nullable='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='50'/>
</s:AttributeType>
<s:AttributeType name='url' rs:number='4' rs:nullable='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='50'/>
</s:AttributeType>
<s:AttributeType name='target' rs:number='5' rs:nullable='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='50'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row id='1' actu='Pwet pwet pwal' titre='titre 1' url='pwet/' target='_self'/>
<z:row id='2' actu='Pwet pwet pwal 2' titre='titre 2' url='pwal/' target='_self'/>
<z:row id='3' actu='Pwet pwet pwal 3' titre='titre 3' url='prout/' target='_self'/>
</rs:data>
</xml>

mais juste une couille :( quand j'essai de le récupérer dans dans objet DOM ça me dit que le fichier existe déjà ... mmm.
comment je pourrais le faire rentrer (dans l'objet DOM), un cast ??
... need help plz

<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "actu"
SQL = "SELECT * FROM actualite order by Id"
Set rs = OBJdbConnection.Execute(SQL)

Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
Set XSLDoc = Server.CreateObject("Microsoft.XMLDOM")

XMLDoc.load(Server.MapPath("actual.xml"))
XMLDoc.async = false

rs.Save Server.MapPath(XMLDoc), 1  
'marche po :(

  rs.Save Server.MapPath("actual.xml"), 1
  XMLDoc.load(Server.MapPath("actual.xml"))
  'ça sa marche par contre mais ça créer physiquement le fichier alors si il existe déjà ça couine ...

XSLDoc.async = false
XSLDoc.load(Server.MapPath("actu.xsl"))
                                          
response.write(XMLDoc.documentElement.transformNode(XSLDoc.documentElement))

rs.close
set rs = nothing
%>