<%Next%>

2008	Parking de la Riponne - Transformation de l'entrée Sud	Parking de la Riponne SA parking

2006	Parking du centre

2003	Parking en toiture	Migros Yverdon

2001	Parking Kudelski	Kudelski

2001	Parking Bellefontaine, réfection revêtement de sol	Parking Management Service SA parking

1997 - 98	Parking des Hôpitaux, assainissement	Parking Management Service SA

1996 - 97	Parking de la Riponne à Lausanne, construction d'un 4ème sous-sol en reprise en sous-oeuvre de l'ouvrage existant.	Parking de la Riponne SA Lausanne

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