Table problem

[Al3inguy]

hi there

i have a code to get images from a folder and but it in a table but there is a little problem

see this page

http://www.opschat.com/cgi-bin/smile.pl

you will see the table is ok but see this page

http://www.opschat.com/cgi-bin/smile.pl?page2

you will find an error in that table.



i used this code


open(sold,"images/images.cgi"
flock(sold,2);
@pmd = <sold>;
$ps = -1;
$ps2 = 0;


foreach $ps(@lpn){
chop($ps);
$ps++;

if($ps ne 1){
push(@lisv,&quot; \<\|\> <b>$om</b>&quot;
}else{
push(@lisv,&quot;<b>$ps2</b>&quot;
}
}

$now = $#pmd-$file[0];
foreach $sete (@pmd) {
$ps++;
$ps2++;

chop($sete);
@qpd = split(/\|/,$pmd[$ps]);
close(sold);


$tell[$ps] = &quot;<img src=\&quot;$imgurl/$qpd[1]\&quot; alt=\&quot;$qpd[2]\&quot; align=\&quot;absbottom\&quot;><br>$qpd[0]&quot;;

if ($ps >=$num && $ps <=$num2 ){
if($ps2 <= 6){
push(@ops,&quot;<td align=\&quot;center\&quot;>
$tell[$ps]</tr>\n&quot;
}else{
push(@ops,&quot;<td align=\&quot;center\&quot;>
$tell[$ps]</td></tr>\n&quot;
$ps2 = 0;
}
}
}




so can you please fix this problem.