erreur dans mon code ecriture dans un fichier

Version imprimable

Bonjour,
j'ai ce code asp qui sers à ecrire dans plusieurs fichiers

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
<%
dim ville
dim langue
dim i
i = 0
villeS="Tunis, hammamet, Kairouan, Sfax, Tabarka, Tozeur"
ville= Split(villeS, ",", -1, 1) 
langueS = "fr, en"
langue = Split(langueS, ",", -1, 1) 
file = Replace(file,"\","")
tableau=split(file,":|:") 
For Each langue In l
	For Each ville In v
		e = ""
		if (l = "en") then
			e = "_en"
		end if
 		Set FSO = _
   	Server.CreateObject("Scripting.FileSystemObject") 
 		dir = Server.MapPath("$meteodata/")
 		Fnm = dir & "\"& v & e & ".asp"
 		set inF = FSO.OpenTextFile(Fnm,2,false)
 		inF.write tableau(i)
 		inF.close 
 		i = i + 1
 	Next 
Next 
%>

l'erreur est la suivante

Citation:

Microsoft VBScript runtime error '800a01c3'

Object not a collection

/google-data.asp, line 12

11/10/2010, 17h22
lutecefalco

Code:

For Each langue In l

C'est quoi l?
11/10/2010, 17h28
baderahmed

c'est une variable qui va prendre à chaque boucle une case du tableau langue

je suis la logique du php peut etre que c'est faux ! je suis debutant dans le asp

Citation:

Envoyé par lutecefalco

Code:

For Each langue In l

C'est quoi l?
11/10/2010, 17h38
baderahmed

l'erreur était dans le for each j'ai mis la variable au lieu du tableau
mais j'ai une autre erreur

Citation:

Microsoft VBScript runtime error '800a0035'

File not found

/google-data.asp, line 26
11/10/2010, 17h55
lutecefalco

Citation:

File not found

Difficile de faire plus clair comme message d'erreur