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