1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
<%
'Construction des listes d'entités
' ****** Récupération de la liste des DI ********
' Recupération des connections
Set cnIndperf2=getConnexion(strCONNEXION,strCOMPTE)
Set rsListeDI=getRsListeDI(cnIndperf2)
' Construction du flux xml avec les données de la base
Set fluxXmlDI = Server.CreateObject(MSXML)
fluxXmlDI.async = false
fluxXmlDI.loadXML("<racine></racine>")
while not rsListeDI.EOF
Set row = fluxXmlDI.createNode("element","row","")
row.setAttribute "acs", rsListeDI.fields("acs").Value
row.setAttribute "entite", rsListeDI.fields("entite").Value
fluxXmlDI.documentElement.appendChild(Row)
rsListeDI.movenext
wend
call supprRs(rsListeDI)
call supprCn(cnIndperf2)
Set xslDI = Server.CreateObject(MSXML)
xslDI.async = false
xslDI.load("ListeEntites2.xsl")
Set xmlDI = Server.CreateObject(MSXML)
xmlDI.async = false
xmlDI.loadXML(fluxXmlDI.xml)
xmlDI.transformNode(xslDI)
%> |
Partager