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

Vous souhaitez vendre un bien immobilier ? Pour vendre en toute sécurité et confier votre bien à des professionnels, veuillez remplir ce formulaire... Il sera envoyé automatiquement à tous les adhérents Primo. Ces derniers sont à votre écoute et vous garantissent une évaluation proche du marché. N'hésitez donc pas à nous contacter...

Type de bien Localité   Nom Prénom Adresse   Code postal Ville Tél Email Veuillez patientez quelques secondes après avoir cliqué sur 'Envoyer la demande'

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