<%For i = 1 to 33%>
<%'-------dÈfinition des la requÍte des produit de l'organisme
RsSponsor.Open "SELECT * FROM produit where titre like'"&lstalpha(i)&"%' order by titre", ConnSponsor%>
<%if not RsSponsor.eof then%>
<%if lstalpha(i) = "Ë" or lstalpha(i) = "å" or lstalpha(i) = "ƒ" or lstalpha(i) = "é" or lstalpha(i) = "æ" or lstalpha(i) = "ï" or lstalpha(i) = "ë"then%>
<%contienlettre(i) = true %>
<%end if%>
<%end if
RsSponsor.close
next
%>
<%For i = 1 to 33%>
<%'-------dÈfinition des la requÍte des produit de l'organisme
RsSponsor.Open "SELECT * FROM produit where titre like'"&lstalpha(i)&"%' order by titre", ConnSponsor%>
<%if not RsSponsor.eof then%>
<%if lstalpha(i) <> "Ë" and lstalpha(i) <> "å" and lstalpha(i) <> "ƒ" and lstalpha(i) <> "é" and lstalpha(i) <> "æ" and lstalpha(i) <> "ï" and lstalpha(i) <> "ë"then%>
<%response.write(lstalpha(i))%>
<% contienlettre(i) = true %>
<%else
if lstalpha(i) = "Ë" and contienlettre(1) = false then %>
<%response.write(lstalpha(1))%>
<%end if%>
<%if lstalpha(i) = "å" and contienlettre(1) = false then %>
<%response.write(lstalpha(1))%>
<%end if%>
<%if lstalpha(i) = "ƒ" and contienlettre(7) = false then %>
<%response.write(lstalpha(7))%>
<%end if%>
<%if lstalpha(i) = "é" and contienlettre(7) = false then %>
<%response.write(lstalpha(7))%>
<%end if%>
<%if lstalpha(i) = "æ" and contienlettre(7) = false then %>
<%response.write(lstalpha(7))%>
<%end if%>
<%if lstalpha(i) = "ë" and contienlettre(14) = false then %>
<%response.write(lstalpha(14))%>
<%end if%>
<%if lstalpha(i) = "ï" and contienlettre(21) = false then %>
<%response.write(lstalpha(21))%>
<%end if%>
<%end if %>
<%
else%>
<%if lstalpha(i) <> "Ë" and lstalpha(i) <> "å" and lstalpha(i) <> "ƒ" and lstalpha(i) <> "é" and lstalpha(i) <> "æ" and lstalpha(i) <> "ï" and lstalpha(i) <> "ë"then%>
<%if lstalpha(i) <> "A" and lstalpha(i) <> "E" and lstalpha(i) <> "I" and lstalpha(i) <> "O"then%>
<%response.write(lstalpha(i))%>
<%else%>
<%if lstalpha(i) = "A" and contienlettre(2) = false and contienlettre(3) = false then %>
<%response.write(lstalpha(i))%>
<%end if%>
<%if lstalpha(i) = "E" and contienlettre(8) = false and contienlettre(9) = false and contienlettre(10) = false then %>
<%response.write(lstalpha(i))%>
<%end if%>
<%if lstalpha(i) = "I" and contienlettre(15) = false then %>
<%response.write(lstalpha(i))%>
<%end if%>
<%if lstalpha(i) = "O" and contienlettre(22) = false then %>
<%response.write(lstalpha(i))%>
<%end if%>
<%end if%>
<%end if %>
<%end if
RsSponsor.close
next
%>
<%For i = 1 to 33%>
<%'-------dÈfinition des la requÍte des produit de l'organisme
RsSponsor.Open "SELECT * FROM produit where titre like'"&lstalpha(i)&"%' order by titre", ConnSponsor%>
<%if not RsSponsor.eof then%>
<%if lstalpha(i) <> "Ë" and lstalpha(i) <> "å" and lstalpha(i) <> "ƒ" and lstalpha(i) <> "é" and lstalpha(i) <> "æ" and lstalpha(i) <> "ï" and lstalpha(i) <> "ë"then%>
<%response.write(lstalpha(i))%>
<%else
if lstalpha(i) = "Ë" and contienlettre(1) = false then %>
<%response.write(lstalpha(1))%>
<%end if%>
<%if lstalpha(i) = "å" and contienlettre(1) = false then %>
<%response.write(lstalpha(1))%>
<%end if%>
<%if lstalpha(i) = "ƒ" and contienlettre(7) = false then %>
<%response.write(lstalpha(7))%>
<%end if%>
<%if lstalpha(i) = "é" and contienlettre(7) = false then %>
<%response.write(lstalpha(7))%>
<%end if%>
<%if lstalpha(i) = "æ" and contienlettre(7) = false then %>
<%response.write(lstalpha(7))%>
<%end if%>
<%if lstalpha(i) = "ë" and contienlettre(14) = false then %>
<%response.write(lstalpha(14))%>
<%end if%>
<%if lstalpha(i) = "ï" and contienlettre(21) = false then %>
<%response.write(lstalpha(21))%>
<%end if%>
<%end if %>
<%do while not RsSponsor.eof%>
"Ë" and lstalpha(i) <> "å" and lstalpha(i) <> "ƒ" and lstalpha(i) <> "é" and lstalpha(i) <> "æ" and lstalpha(i) <> "ï" and lstalpha(i) <> "ë"then%>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(i))%>"><%=RsSponsor("titre")%>
<%else
if lstalpha(i) = "Ë" then %>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(1))%>"><%=RsSponsor("titre")%>
>
<%end if%>
<%if lstalpha(i) = "å" then %>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(1))%>"><%=RsSponsor("titre")%>
<%end if%>
<%if lstalpha(i) = "ƒ" then %>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(7))%>"><%=RsSponsor("titre")%>
<%end if%>
<%if lstalpha(i) = "é" then %>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(7))%>"><%=RsSponsor("titre")%>
<%end if%>
<%if lstalpha(i) = "æ" then %>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(7))%>"><%=RsSponsor("titre")%>
<%end if%>
<%if lstalpha(i) = "ë" then %>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(14))%>"><%=RsSponsor("titre")%>
<%end if%>
<%if lstalpha(i) = "ï" then %>
href="resultatorga.asp?rechercher=<%=RsSponsor("no_organisme")%>#<%response.write(lstalpha(21))%>"><%=RsSponsor("titre")%>
<%end if%>
<%end if %>
<%RsSponsor.MoveNext
loop
end if
RsSponsor.close
next
%>
