Lecture d'un Fichier XML

[cgeourjon]

Bonjour,
Je souhaite lire un fichier XML en utilisant sa structure, comme le fait le "simple load xml" du PHP.
J'utilise ce code ci qui n'a pas l'air de fonctionner en me mettant une erreur "Objet inconnu" sur documentElement.

Merci d'avance.

Code :

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
Dim objFSO
Dim xmlDoc,xmlPath , xmlTableUC , xmlTableUser, xmlTableAppli
 
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists(Server.MapPath("test.xml")) Then
 
        'Connexion au fichier form.xml
        set xmlDoc = nothing
        set xmlDoc = Server.CreateObject ("MSXML2.DOMDocument")
                        Response.write(Server.MapPath("./test.xml"))
                test = xmlDoc.load(Server.MapPath("./test.xml"))
        if test then
 
                Set xmlPath = xmlDoc.documentElement
 
                if xmlDoc.documentElement.hasChildNodes() then
                        Set xmlTableUC = xmlDoc.documentElement.childnodes.item(0)
                        Set xmlTableUser = xmlDoc.documentElement.childnodes.item(1)
                        Set xmlTableAppli = xmlDoc.documentElement.childnodes.item(2)
 
                end if
 
        else
                Response.Write("Le fichier XML n'est pas valide")
                Response.End
        end if
Else
        Response.Write("Le fichier XML n'existe pas")
        Response.End
End if

[cgeourjon]

N'ayant pas eu de réponse j'ai fait une recherche textuelle par un OpenTextFile classique.