Retour sommaire
________________

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

<% CP= request("CP") DEPT=request("DEPT") specialite=request("specialite") sqlCond="" sql="select * from Identifications_Expert " if CP <> "ALL" then sqlCond = " [Code postal] like '" &CP & "'" if specialite <> "ALL" or DEPT<> "ALL" then sqlCond = sqlCond & " and " end if if DEPT<> "ALL" then sqlCond = sqlCond & " [Code postal] like '" &DEPT & "%'" if specialite<> "ALL" then sqlCond = sqlCond & " and " end if if specialite<> "ALL" then sqlCond = sqlCond & " [Spécialités -LISTE-] like '%" &specialite & "%'" if sqlCond<> "" then sql = sql & " where " & sqlCond 'ordre randomize alea =int((5*rnd) + 1) select case alea case 1 ORDRE="[Ville]" case 2 ORDRE="[nom]" case 3 ORDRE="[Prénom]" case 4 ORDRE="[Code postal]" case 5 ORDRE="[Téléphone standard]" end select if ordreSpe="" then ordresql = " order by " & ORDRE & " asc " sql = sql & ordresql 'response.write sql set rs=conn2.execute(sql) while not rs.eof%> <%rs.movenext wend end if%>

Trouvez votre expert

-----------choix par communes-------------- <% sql="select distinct(ville),[Code postal] from Identifications_Expert order by Ville" set rs=conn2.execute(sql) while not rs.eof CPostalTemp=rs(1) %> > <%=rs(0) & " ("& CPostalTemp & ")"%> <%rs.movenext wend%>

----------choix par départements----------- <% sql="select (dep_id),dep_libelle from dept order by dep_id" set rs=conn.execute(sql) while not rs.eof %> > <%=rs(0) & " " & (rs(1))%> <%rs.movenext wend%>

----------choix par spécialité----------- >01 Immobilier Résidentiel >02 Immobilier d'entreprise >03 Immobilier commercial >04 Biens Ruraux >05 A caractère exceptionnel >06 Fonds de commerce >07 Copropiétés >08 Autres >09 TBA (vous pourrez ensuite trier par département [menu au dessus])

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.

<% Civilite=rs("Civilité") Prenom=rs("Prénom") Nom=rs("Nom") id=rs(0) response.write Civilite & " " & Prenom& " " & Nom%>    Spécialités : <% 'replace (rs("Spécialités -LISTE-"), VbCrlf," ") specialite=rs("Spécialités -LISTE-") if instr(specialite,"1")>0 then response.write " 1 " if instr(specialite,"2")>0 then response.write " 2 " if instr(specialite,"3")>0 then response.write " 3 " if instr(specialite,"4")>0 then response.write " 4 " if instr(specialite,"5")>0 then response.write " 5 " if instr(specialite,"6")>0 then response.write " 6 " if instr(specialite,"7")>0 then response.write " 7 " if instr(specialite,"8")>0 then response.write " 8 " if instr(specialite,"9")>0 then response.write " 9 " %> <% PathFunction = Server.MapPath("\") & "\" prenomdecompose=split(prenom,"-") nom=replace(nom,"-","") nom=trim(nom) if Ubound(prenomdecompose)>0 then initial=left(prenomdecompose(0),1)&left(prenomdecompose(1),1) dossier=initial& Nom else dossier = left(prenom,1) & Nom end if Set fso = Server.CreateObject("Scripting.FileSystemObject") dossierEnt = PathFunction & dossier & "\" 'response.write dossierEnt If (fso.FolderExists (dossierEnt)) Then 'on error resume next %> <%else%> <%end if%> <%=rs("Raison sociale")%> <%=rs("Adresse")%> <% adresse1=rs("Adresse (suite 1)") if len(adresse1) > 3 then response.write " "& adresse1 end if%> Tél.  <%=rs("Téléphone standard")%>   <%=rs("Code postal") & " " & rs("Ville") %> Fax.  <%=rs("Fax")%>   <% mobile=rs("Téléphone mobile") if len(mobile)> 3 then response.write "Mobile : "&mobile%>     <%email=rs("E-mail 1")%>E-mail :  <%response.write email%>   <% web =rs("Web 1") if len(web) > 0 then%>Site Web :  http://<%=web%> <%end if%>