<%Next%>

2003 - 04	Planification générale, ISL International School of Lausanne	TEKHNE René Braune

1994 - 95	Station d'épuration de Praz-Faucon à Cugy. Ouvrage en béton armé.	Commune de Cugy

<% Function affaire(categorie, page) dim aff() dim ligne dim ligneSplit Set FSO = _ Server.CreateObject("Scripting.FileSystemObject") dir = Server.MapPath("data/") Fnm = dir & "\affaires.txt" if FSO.FileExists(Fnm) then set inF = FSO.OpenTextFile(Fnm,1,false) end if While not inF.atEndOfStream ligne = inF.readLine ligneSplit = Split(ligne,vbtab) if len (ligne)>2 then if ligneSplit(3)= categorie then for j=0 to UBound(ligneSplit) Redim preserve aff(5,i+1) aff(j,i) = ligneSplit(j) next i=i+1 end if end if Wend inF.close affaire = aff end function %>