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

L'association PRIMO vous recommande les sites suivants... Vertigo-France, le portail du Languedoc Roussillon http://www.Vertigo-France.com Site officiel de la ville de Montpellier http://www.ville-montpellier.fr Office de tourisme de Montpellier http://www.ot-montpellier.fr Enjoy Montpellier - Evénements à Montpellier http://www.corum-montpellier.fr/Web/Accueil Webcity - Sorties à Montpellier http://montpellier.webcity.fr Tourisme dans l'Hérault http://www.herault-tourisme.com Site officiel du quotidien Midi Libre http://www.midilibre.com Les vins d'appellation Coteaux du Languedoc http://www.coteaux-du-languedoc.com vins d'appellation Pic Saint Loup http://www.pic-saint-loup.com Site de la région du Pic Saint Loup (Nord Montpellier) http://www.loupic.com

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