<% set conntemp=server.createobject("adodb.connection") conntemp.open "primo" %>

Indice de Référence des Loyers (IRL)
Référence 100 au 4e Trimestre 1998
Période Indice Variation annuelle en %
2006 T1
111,47
///
2006 T2
111,98
///
2006 T3
112,43
///
2006 T4
112,77
///
2007 T1
113,07
+1,44
2007 T2
113,37
+1,24
2007 T3
113,68
+1,11
2007 T4
114,30
+1,36
2008 T1
115,12
+1,81
2008 T2
116,07
+2,38
2008 T3
117,03
+2,95
2008 T4
117,54
+2,83
2009 T1
117,70
+2,24
2009 T2
117,59
+1,31



Indice du Coût de la Construction (ICC)
Période ICC Glissement annuel en %
2005 T1
1 270
+3,67
2005 T2
1 276
+0,71
2005 T3
1 278
+0,47
2005 T4
1 332
+4,96
2006 T1
1 362
+7,24
2006 T2
1 366
+7,05
2006 T3
1 381
+8,06
2006 T4
1 406
+5,56
2007 T1
1 385
+1,69
2007 T2
1 435
+5,05
2007 T3
1 443
+4,49
2007 T4
1 474
+4,84
2008 T1
1 497
+8,09
2008 T2
1 562
+8,85
2008 T3
1 584
+10,46
2008 T4
1 523
+3,32
2009 T1
1 503
+0,40


<% 'fonction d exsistance d image Function ReportFileStatus(filespec, varretour) Dim fso, msg, chemin 'penser à remplacer ici les chemin Chemin1 = "d:\inetpub\wwwroot\primo\photo\" & filespec & ".jpg" Chemin2 = "d:\inetpub\wwwroot\primo\photo\" & filespec & ".gif" Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(chemin1)) Then msg = ".JPG" Else msg = "0" End If if msg = "0" then If (fso.FileExists(chemin2))Then msg = ".GIF" Else msg = "" End If end if ReportFileStatus = msg varRetour = msg End function %> <% conntemp.close %>