店内画像の右に表示される部分の高さが内装の高さを超えないように工夫する必要があります。方法としては、以下の�@か�Aの好きなほうを試していただければと思います

�@右に表示する項目を減らす
「inc-main.cgi」の以下の部分で、いらなそうなものを削除します。
$TR$TDB資金$TD$moneymsg$TRE
$TR$TDB時間$TD$tm$TRE
$TR$TDB人気$TD$rankmsg$TRE
$TR$TDBごみ$TD$cleanmsg$TRE
$TR$TDBコメント$TD<INPUT TYPE=TEXT NAME=cmt SIZE=20 VALUE="$DT->{comment}">
<INPUT TYPE=SUBMIT VALUE="変更">$TRE$TBE
STR

「人気」を表示させないとこうなります。
$TR$TDB資金$TD$moneymsg$TRE
$TR$TDB時間$TD$tm$TRE
$TR$TDBごみ$TD$cleanmsg$TRE
$TR$TDBコメント$TD<INPUT TYPE=TEXT NAME=cmt SIZE=20 VALUE="$DT->{comment}">
<INPUT TYPE=SUBMIT VALUE="変更">$TRE$TBE
STR

�A顔の右に一覧を表示する(横幅が長くなりますが)
<table align=center>$TR<td width=48>
STR
$disp.=GetTagImgKao($DT->{name},$DT->{icon})."<br>";
$disp.=$TD."<SPAN>RANK</SPAN> ".($id2idx{$DT->{id}}+1).GetTopCountImage($DT->{rankingcount}).DignityDefine($DT->{dignity},1)."<br>";

この部分を以下のように変えます。(colspanとlowspanの部分です)
厳密にはwidth=48を画像サイズにしておきます。

<table align=center>$TR<td width=48 rowspan=6>
STR
$disp.=GetTagImgKao($DT->{name},$DT->{icon})."<br>";
$disp.="<td colspan=2><SPAN>RANK</SPAN> ".($id2idx{$DT->{id}}+1).GetTopCountImage($DT->{rankingcount}).DignityDefine($DT->{dignity},1)."<br>";

たぶんこんな感じで解決されると思います。