<%Next%>

2006 - 08	Bâtiment Miroiterie - Lausanne Flon	LO HOLDING LAUSANNE-OUCHY SA

2006	Immeuble locatif à Yverdon	AVOP-AVTES

2005	Bâtiment administratif à Cheseaux	Nagravision SA

2005	Extension bâtiment AI	EPFL Ecublens

2005	Salle omnisports collège du Vieux-Moulin	Ville de Lausanne

2005	Centre de distribution Amedis à Puidoux	Mucol AG

2004 - 05	Extension usine Hybrid Chez-Le-Bart (Ne)

2003 - 04	Immeuble locatif Boveresses 34, Lausanne

2002	Crédit Agricole	Crédit Agricole Indosuez (Suisse) SA

1999 - 00	Hopital de l'enfance.	Centre pédopsychiatrique, Lausanne Hopital de l'enfance

1998	Cité-Joie, Bâtiments Borde-Crêtes

1997 - 01	Bâtiment EPFL, quartier Nord Lots 1 et 2 bâtiments

1996 -97	Centre paroissial Saint Amédée et bâtiment locatif à Lausanne Société catholique Saint-Amédée	Société coopérative Cité-Joie

1996 -97	Transformation et agrandissement du siège Place St François à Lausanne	Société de Banques Suisses

1988 - 91	Immeuble locatif, En Grattapaille, Lausanne	Rentenanstalt

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