we are using SSI Web and I need to display certain list members in a constructed list using unverified perl. The code is pasted below. My problem: I need to insert two models from the same list. I put in this code to display two:

INSERT (1, "CarModels", $random_numberA);

INSERT (2, "CarModels", $random_numberA);

However only one model is shown. If I add +1 after the second entry of $random_numberA it works. However this is against my logic I defined in the while term.

I appreciate your comments.

Thanks,

Josh

begin unverified perl

my $rangeA = 29;

my $minimumA = 1;

my $random_numberA = int(rand($rangeA)) + $minimumA;

my $own = VALUE("Q1");

while ($random_numberA==1 or $random_numberA==2 or $random_numberA==3 or $random_numberA==5 or $random_numberA==6 or $random_numberA==7 or $random_numberA==8 or $random_numberA==9 or $random_numberA==10 or $random_numberA==12 or $random_numberA==13 or $random_numberA==14 or $random_numberA==15 or $random_numberA==17 or $random_numberA==18 or $random_numberA==19 or $random_numberA==20 or $random_numberA==21 or $random_numberA==23 or $random_numberA==24 or $random_numberA==25 or $random_numberA==26 or $random_numberA==27 or $random_numberA==28)

{

$random_numberA = int(rand($rangeA)) + $minimumA;

}

if ($own==22 or $own==29 or $own==4 or $own==11 or $own==16)

{

INSERT (1, "CarModels", $own);

INSERT (2, "CarModels", $random_numberA);

}

else

{

INSERT (1, "CarModels", $random_numberA);

INSERT (2, "CarModels", $random_numberA);

}

ADD ("CarModels", 11);

end unverified