<%@ Language=VBScript %> <% ' TP le 12/05/2003 : balises meta pour référencement (TAKEZO) lettre=request("lettre") str=request.form("mot") Flux_visite 6,10,2,lettre Set Recherche = Server.CreateObject("DALEXIQUE.DALEXIQUE") if lettre="" then if str="" then RedirigeSimple "DA_lexique1.asp" else resultat=Recherche.select(0, str, 1) end if else resultat=Recherche.select(0, lettre, 2) end if ' Déconcaténation des mots trouvés Separe_Mots = split(resultat, "§|", -1, 1) dim idmot(50,50) ' Récupération des mots et leur id à afficher i=0 For each chaine in Separe_Mots if chaine <> "" then info = split(chaine, "§$", -1, 1) idmot(i,0)=info(0) idmot(i,1)=info(1) i=i+1 end if Next 'construction de la chaîne regroupant les résultats de la recherche pour référencement chaine_ref="" if i>0 then for j=0 to i-1 chaine_ref = chaine_ref & " " & Lcase(idmot(j,1)) & "," next end if %> contrat assurance ( maison, véhicule, santé ) : Direct Assurance assureur en ligne <%if (Session("iOrigine")= 5 or Session("iOrigine") = 6) then%> <%elseif (Session("iOrigine")= 14) then%> <%else%> <%end if%> <%if (Session("iOrigine")= 5 or Session("iOrigine") = 6 or Session("iOrigine") = 14) then%> <%else%> <%end if%>
Lexique Lexique

Résultat de la recherche :

   <% if i>0 then for j=0 to i-1 resultat=Recherche.select(idmot(j,0), "", 3) infos = split(resultat, "§$", -1, 1) %> /structure/puce_petitefleche_auto.gif" width="7" height="7" alt="" border="0" align="bottom">  <%=idmot(j,1)%>   [<%if len(idmot(j,1) & infos(4))>69 then Response.write(replace(left(infos(4), InStrRev(left(infos(4)& " ", 69-len(idmot(j,1))), " ", -1, 1)-1), "<", " ") & "...") else Response.write(infos(4)) end if%>]
<% next else %>
Aucune réponse ne correspond à votre demande.

<% end if %>


/structure/bouton_nouvellerecherche.gif" alt="Effectuer une nouvelle recherche" border="0">  /structure/bouton_fermer.gif" alt="" border="0">