| 12
 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 
%> | 
Partager