Una manita con esto...

[SpiceMan]

Código:

require "admin/data/settings.pl" or &dienice(19);

open (MEMDATSSI,"$data_path/members.db") or &dienice(15);
if ($use_flock) { flock(MEMDATSSI, 1) or &dienice(100); }
@datassi = <MEMDATSSI>;
close (MEMDATSSI);


$numban2 = $numban = rand [1..$ssi_ban_num];
while (($numban2 == $numban) && ($ssi_ban_num > 1)) { $numban2 = rand [1..$ssi_ban_num] }

foreach $line(@datassi) {
	@bze = split(/\|/,$line);
	if ($bze[1]) {
		if ($bze[1] == $numban) {
			$html .= "<a href=\"$cgi_url/out.cgi?ID=$bze[1]\"
target=\"_blank\"><img src=\"$bze[5]\" width=$banner_width
height=$banner_height border=0></a>\n";
		}
                if ($ssi_ban_num > 1) {
        
                     if ($bze[1] == $numban2) {
			$html .= "<a href=\"$cgi_url/out.cgi?ID=$bze[1]\"
target=\"_blank\"><img src=\"$bze[5]\" width=$banner_width
height=$banner_height border=0></a> \n";
		  }
               }
	}
}
print "Content-type: text/html\n\n";
print "$html";
exit;