Bonjour,
J'ai deux fois la même chose, une fois en fonction et ça marche !!!, et l'autre en objet (class) et là ça renvoie aucune erreur mais ça fait rien ...
Class clsXSLT '********************************************************************* ' Initialisation/Fermeture '*********************************************************************
'Initialise Private Sub Class_Initialize() End Sub
'Ferme Private Sub Class_Terminate() End Sub
'********************************************************************* ' Fonctions '*********************************************************************
Public function getXSLT(XML,XSL) Set objXML=getXMLDoc(XML) Set objXSL=getXMLDoc(XSL) If objXML.parseError <> 0 Then Response.Write objXML.parseError If objXSL.parseError <> 0 Then Response.Write objXSL.parseError 'ici gérer les erreurs transformXML=objXML.transformNode(objXSL) End Function
Private Function getXMLDoc(XML) Dim ojXML If IsObject(XML) Then set ojXML=XML Else Set ojXML=Server.CreateObject("Microsoft.XMLDOM") If InStr(XML,"<") > 0 Then 'C'est une chaine de caractère car < n'est pas valide dans un nom de fichier ojXML.LoadXML XML Else ojXML.load(Server.MapPath(XML)) End If End If Set getXMLDoc=ojXML End Function End Class
|
que j'appel comme ça :
<%dim XS Set XS = New clsXSLT
%> <% = XS.getXSLT("../xml/presentation_centre.xml" , "../xsl/presentation.xsl" ) %>
|
l'autre solution est de coller les fonctions dans un fichier et de les apeller normalement ...
merci d'avance ...

bubblepwal.XMLDOM only
