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