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

Accueil Actualités Connaître PRIMO    Présentation    Charte PRIMO    Les agences PRIMO Locations et ventes Vous êtes vendeur Infos pratiques Montpellier et alentours Contact

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