<%Next%>

2004 - 05	Rénovation des façades, Boulevard de Grancy 19 et 19a

2003	Rénovation des façades, Immeuble Liseron 11, Lausanne	Philipp Morris

2002 - 03	Rénovation partielle du bâtiment Gétaz Romang, Bussigny Nord	Eximm

2001	Rénovation des façades en béton armé, bâtiment av. de la Gare à Lausanne	Suva à Lausanne

1999 - 00	Rénovation des façades en béton armé, bâtiment Kudelski à Cheseaux	Nagravision SA

1999 - 00	Rénovation des façades de la fondation L. Boissonet	Fondation L. Boissonet

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