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

Indices du coût de la construction Derniers chiffres connus Indice insee* (100 au 4ème trim. 1953) 1362 (1er trim. 06) 1366 (2e trim. 06) 1381 (3e trim. 06) 1406 (4e trim. 06) Indice BT 01** (100 au 01.01.74) 734,80 (Octobre 06) 734,5 (Novembre 06) 733,3 (Décembre 06) 740,50 (Janvier 07) Indice FFB** (1 au 01.01.41) 731,8 (2e trim. 06) 741,7 (3e trim. 06) 749,1 (4e trim. 06) 760,1 (1er trim. 07) * source Insee ** source Fédération Française du Bâtiment

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