<% rub=request("rub") on error resume next 'connection set objconn = createObject("ADODB.connection") 'Objconn.Open "DSN=listexp" 'Objconn.open "Provider=SQLOLEDB;Data Source=Zeus;Initial Catalog=fnaimexpert;User Id=experts;Password=experts" objconn.open "DSNfnaimexpert","","" 'Objconn.open "Provider=SQLOLEDB;Data Source=192.168.0.64;Initial Catalog=fnaimexpert;User Id=invit;Password=invit" 'instanciation des recordsets" set RsCP=createobject("ADODB.recordset") set RsDEPT=createobject("ADODB.recordset") 'récupération valeurs CP=request("CP") DEPT=request("DEPT") rub=request("rub") 'extraction département' DEPART2=left(DEPT,2) 'Donner la priorité à la recherche par département if CP<>"ALL" and DEPT<>"ALL" then CP="ALL" end if 'Requetes SQL SQL1="select distinct ville, cp from listexperts order by ville" SQL2="select * from dept order by dep_id" 'ouverture des recordsets RsCP.Open SQL1,Objconn,3,3 RsDEPT.Open SQL2,Objconn,3,3 %> Trouvez votre expert immobilier FNAIM

Ancienne Version (2003) - Cliquez pour la nouvelle version




Trouvez votre expert
Liste des spécialités (hors diagnostic technique)
1. Immobilier Résidentiel et Habitation
2. Immobilier d'Entreprise
3. Immobilier Commercial
  4. Immobilier Agricole et Forestier
5. Immobilier à caractère exceptionnel
6. Fonds de Commerce
7. Copropriétés

Liste alphabétique complète des Experts Immobiliers (Nom, Ville, Téléphone, E-mail, Site, Carte de visite)
Attention! fichier d'environ 300 K (650 Experts) - Pour toute mise à jour ou toute modification, merci de faire parvenir les éléments à euro7-sa@wanadoo.fr
La Chambre Nationale des Experts Immobiliers - FNAIM n'est pas responsable des contenus des sites que le visiteur pourrait trouver via les liens hypertextes proposés dans son application.

<% '------------------------------------------------ ASP 'affichage 'y-a-il une recherche à faire ???? if CP<>"" and DEPT<>"" then set RsRECH=createobject("ADODB.recordset") if CP="ALL" and DEPT="ALL" then %>


>Vous n'avez fait aucune sélection.
La liste complète des experts étant trop longue, merci de procéder
à une nouvelle recherche avec une sélection préalable
<% '--------------------------------ASP--------------------------------------- else 'randomisation du recordset. ' on crée un nombre aléatoire entre 1 et le nombre d'enregistrement randomize alea =int((5*rnd) + 1) select case alea case 1 ORDRE="ville" case 2 ORDRE="nom" case 3 ORDRE="prenom" case 4 ORDRE="CP" case 5 ORDRE="tel" end select ' on règle l'exception Corse if DEPART2="2A" or DEPART2="2B" then DEPART2="20" 'on switche sur la requete SQL selon la liste employée if CP<>"ALL" then SQLrech="select * from listexperts where Cp like '" & CP & "' and statut='V'" else SQLrech="select * from listexperts where Cp like '" & DEPART2 & "%' and statut='V' order by " & ORDRE end if RsRECH.open SQLrech,Objconn,3,3 end if %>
<% if RsRECH.EOF then '------------------------------------------- si pas de résultat, on affiche un commentaire %>

Aucun expert ne figure dans votre sélection
Nous vous invitons faire une recherche
dans les départements voisins

<%else%>

Vous pouvez vous adresser à :

<%end if%>
<%'---------- si on a trouvé quelque chose, on affiche les résultats: un tableau par réponse trouvée, avec une boucle do while do while not RsRECH.EOF %>
  <%if RsRECH("qualite")<>"" then %> <%else%> <% end if%> <%if RsRECH("Mobile")<>"" then %> <% end if%> <%if RsRECH("EMail")<>"" then%> <% end if%> <%if RsRECH("Sitweb")<>"" then %> <% end if%>
<% LANGUE=rsRECH("langue") if rsRECH("langue")<>"" then LANGUE="Langues : " & rsRECH("langue") %> <%else %> <%end if %> <% SPECIALITE="Spécialités : " TESTNULL=SPECIALITE if rsRECH("CRITERE1")="Vrai" then SPECIALITE=SPECIALITE & "1 " if rsRECH("CRITERE2")="Vrai" then SPECIALITE=SPECIALITE & "2 " if rsRECH("CRITERE3")="Vrai" then SPECIALITE=SPECIALITE & "3 " if rsRECH("CRITERE4")="Vrai" then SPECIALITE=SPECIALITE & "4 " if rsRECH("CRITERE5")="Vrai" then SPECIALITE=SPECIALITE & "5 " if rsRECH("CRITERE6")="Vrai" then SPECIALITE=SPECIALITE & "6 " if rsRECH("CRITERE7")="Vrai" then SPECIALITE=SPECIALITE & "7 " if rsRECH("cvexpert")<> "" then ahreff = " " ahreff_fin ="" else ahreff = "" ahreff_fin ="" end if if SPECIALITE<>TESTNULL then%> <%else%> <%end if%>
<%=trim(RsRECH("Identite"))%>  <%=trim(RsRECH("Prenom"))%>  <%=trim(RsRECH("Nom"))%>    <%=LANGUE%> <%=SPECIALITE%> <%=ahreff%> <%=ahreff_fin%><%=ahreff%><%=ahreff_fin%>
<%=trim(RsRECH("qualite"))%> <%=trim(RsRECH("Adresse"))%> Tél.  <%=RsRECH("Tel")%>
  <%=trim(RsRECH("CP"))%>  <%=trim(RsRECH("Ville"))%> <%if RsRECH("Fax")<>"" then%> Fax.  <%=RsRECH("Fax")%> <%else%>   <%end if%>
 Mobile  <%=RsRECH("Mobile")%>  
 E-mail :  "><%=RsRECH("EMail")%>  
 SiteWeb :  " target="_blank"><%=RsRECH("Sitweb")%>  


<%rsRECH.movenext loop %> <%end if%>














       
    La Chambre : 650 experts FNAIM | Une expertise : qu'est ce que c'est ? | Une expertise : pourquoi? quand? | Un expert : précisions | Pour trouver son expert | Actualités | La Chambre : contacts | Diagnostic technique | La FNAIM | Espace Chambre - l'Intranet