<%Next%>

2007 - 08	EPFL - Bâtiments TCV et MT EPFL

2008	Gare de Cornavin - Bâtiments E-PiO, A-BvE, B, BvO, bâtiment des Alpes	CFF Immobiliers

2008	Ecole du Léman - Renens	Commune de Renens

2007	Collège de Nyon - Marens	Commune de Nyon

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