Bonjour,
j'ai ce code asp qui sers à ecrire dans plusieurs fichiers
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Microsoft VBScript runtime error '800a01c3'

Object not a collection

/google-data.asp, line 12