probleme fonction type incompatible

[Alex35]

Bonjour,
voila j'ai un probleme avec une fonction asp et apres reflexion intense... je ne vois vraiment pas d'ou cela peut venir:

J'ai une fonction pour créer dynamiquement des fichiers xml :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function CreerXmlFr(NomDossier, NomMenu1, NomPage1, NomMenu2, NomPage2, NomMenu3, NomPage3, NomMenu4, NomPage4, NomMenu5, NomPage5)	
Set FSO1 = Server.CreateObject("Scripting.FileSystemObject") 
dir = Server.MapPath("/"+NomDossier) 
fnm = dir+ "/Menusfr.xml" 
File_Write fnm,chr(60)+"?xml version="+chr(34)+"1.0"+chr(34)+" encoding="+chr(34)+"UTF-8"+chr(34)+"?"+chr(62), 8
File_Write fnm,chr(60)+"Menus"+chr(62), 8
File_Write fnm,"menu MenuLib="+chr(34)+NomMenu1+chr(34)+" Lien="+chr(34)+NomPage1+chr(34)+"/"+chr(62), 8
File_Write fnm,"menu MenuLib="+chr(34)+NomMenu2+chr(34)+" Lien="+chr(34)+NomPage2+chr(34)+"/"+chr(62), 8
File_Write fnm,"menu MenuLib="+chr(34)+NomMenu3+chr(34)+" Lien="+chr(34)+NomPage3+chr(34)+"/"+chr(62), 8
File_Write fnm,"menu MenuLib="+chr(34)+NomMenu4+chr(34)+" Lien="+chr(34)+NomPage4+chr(34)+"/"+chr(62), 8
File_Write fnm,"menu MenuLib="+chr(34)+NomMenu5+chr(34)+" Lien="+chr(34)+NomPage5+chr(34)+"/"+chr(62), 8
File_Write fnm,chr(60)+"/Menus"+chr(62), 8
 
 set fso1 = nothing
 end function

je l'apel comme cela :

Code :

CreerXmlFr "Test", "home", "home.asp", "NomMenu", "NomPage.asp", "NomeMenu", "NomPage.asp", "NomMenu", "NomPage.asp", "NomMenu", "NomPage.asp"

et il me met Type incompatible: 'CreerXmlFr'

La fonction File_Write fonctionne tres bien.

D'avance merci de votre aide!

[Immobilis]

Salut,

Normalement, il y a l'objet "Microsoft.XMLDOM" pour créer des fichiers XML en ASP.

A+