|
    |
|
|
||
|
<%For i = 1 to 33%> <%'-------dÈfinition des la requÍte des produit de l'organisme RsSponsor.Open "SELECT * FROM organisme where nom like'"&lstalpha(i)&"%' order by nom", 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 organisme where nom like'"&lstalpha(i)&"%' order by nom", 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 %>
|
|
||
    |
