sub main {
$max = @DATA; $matchdata = @MATCH;
&html_head;
print "<form action=$script method=POST>\n";
print "<div align=center>\n";
if ($QUERY{'pline'} eq '') { $pline = 0; } else { $pline = $QUERY{'pline'}; }
$end_data = @MATCH - 1;
$page_end = $pline + ($pagevew - 1);
if ($page_end >= $end_data) { $page_end = $end_data; }
$start = $pline + 1; $end = $page_end + 1;
print "<table border=0 width=640>";
print "<tr><td><img src=http://www2.incl.ne.jp/~zunkel/Xpress/_images/_titlemini.gif alt=Xpress_Square></td></tr>";
print "<tr><td align=right><hr><h1>検索結果</h1></td></tr>";
print "<tr><td>";
print "全 [$max] 記事中 [$matchdata] 件が見つかりました。<br>";
print "現在[$start]件目から[$end]件目までを表\示しています。\n";
print "</td></tr></table><br>";
	print "<table border=1 width=640><tr><td bgcolor=#eeeeff>\n";
	print "<table border=0 width=640>\n";
	if ($QUERY{'genre'}) {
		print "<tr><td colspan=4 bgcolor=#000000 align=center><font size=4 color=#FFFFFF><b>$QUERY{'genre'}</b></td></tr>\n";
	}
	print "<tr><td bgcolor=#000000 align=center width=12%><font color=#FFFFFF><b>Press</b></td>\n";
	print "<td bgcolor=#000000 align=center width=63%><font color=#FFFFFF><b>Title</b></td>\n";
	print "<td bgcolor=#000000 align=center width=15%><font color=#FFFFFF><b>Writer</b></td>\n";
	print "<td bgcolor=#000000 align=center width=5%><font color=#FFFFFF><b>Hit</b></td></tr>\n";
	foreach ($pline .. $page_end) {
		if ($QUERY{'button'} eq 'ランキング') {
			($dummy,$code,$access,$name,$item,$hpname,$HP,$memo) = split(/<>/,$MATCH[$_]);
		} else {
			($code,$access,$name,$item,$hpname,$HP,$memo) = split(/<>/,$MATCH[$_]);
		}
		$memo =~ s/\r/<br>/g;
		print "<tr><td align=center bgcolor=#000099>\n";
		if ($QUERY{'genre'} eq '') { print " <font size=-1 color=#FFFFFF>$item</font>"; }
		print "<td align=center bgcolor=#ffffff><a href=$script?action=jump&code=$code><font size=-1>$hpname</font></a></td>\n";
		print "<td bgcolor=#000099><font size=-1 color=#FFFFFF>$name</font></td>\n";
		print "<td align=right><font size=-1>$access</font></td>\n";
		print "</tr>\n";
	}
$next_line = $page_end + 1;
if ($page_end ne $end_data) {
	print "</form>\n";
	print "<tr><td colspan=4 align=right bgcolor=#000000>\n";
	print "<form action=$script method=POST>\n";
		print "<input type=hidden name=action value=\"$QUERY{'genre'}\">\n";
		print "<input type=hidden name=action value=\"$QUERY{'keyword'}\">\n";
		print "<input type=hidden name=button value=\"$QUERY{'button'}\">\n";
		print "<input type=hidden name=pline value=$next_line>\n";
		print "<input type=submit value=次のページ>\n";
print "</td></tr>\n";
}
	print "</table>\n";
print "</td></tr>\n";
	print "</table>\n";
	print "</form>\n";
&search_table;
print "</div>\n";
print "</body></html>\n";
exit;
}
1;