1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
dim port(10,4),subport(12,3),panier(3,9)
for i = 1 to 10
port(i,2) = subport
next
panier(1,9) = "toto"
panier(2,9) = "toto"
for j = 1 to 10 ' test si le port existe
response.write strcomp(panier(i,9), port(j,1),1 ) 'le 2eme toto m'affiche -1 qui veut dire le la 1ere chaine est inferieur à la 2eme
if (cstr(panier(i,9)) = cstr(port(j,1))) then
session.contents("doublee") = "doub"
response.write "port en double! -> "&session.contents("doublee")&"<br>"
exit for
else
session.contents("doublee") = "fau"
response.write "<br>New port! -> "&session.contents("doublee")&"<br>"
end if
next |
Partager