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
