différences entre fonction et objet ?

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

Re,

heu là je comprends pas... ça marche maintenant mais je sais pas pourquoi .... ai rien changé si ce n'est le passage de

getXSLT

en

transformXML

(juste le nom) et

Private Function getXMLDoc(XML)

en

Public Function getXMLDoc(XML)

Je capte plus rien !!!!!!!! si quelqun peut m'éclairer avant que bascule dans le vide Micro$oft...

merci d'avance

re,

heu mouai donc c'est réglé ... mais j'aimerais encore savoir si on a besoin ou pas de fermer une class comme par exemple

Set XS = New clsXSLT

pour instancier

et

Set XS = nothing

pour fermer ...

si quelqun à une bonne adresse (doc) pour comprendre la philosophie objet dans ASP ... je suis preneur !!!

merci d'avance

bubblepwal.XMLDOM only