sub preview {
	if ($QUERY{'name'} eq '') { &error(bad_name); }
	if ($QUERY{'subject'} eq '新規登録') {
		if ($QUERY{'hpname'} eq '') { &error(bad_hpname); }
		if ($QUERY{'HP'} eq '') { &error(bad_addr); }
		if ($QUERY{'memo'} eq '') { &error(bad_memo); }
	}
	if ($multiline eq 'no') { $QUERY{'memo'} = substr($QUERY{'memo'},0,$maxlength); }
	&html_head;
	print "<div align=center><center>\n";
	print "<form action=$script method=POST>\n";
		print "<input type=hidden name=action value=regist>\n";
		print "<input type=hidden name=subject value=\"$QUERY{'subject'}\">\n";
		print "<input type=hidden name=name value=\"$QUERY{'name'}\">\n";
		print "<input type=hidden name=item value=\"$QUERY{'item'}\">\n";
		print "<input type=hidden name=hpname value=\"$QUERY{'hpname'}\">\n";
		print "<input type=hidden name=HP value=\"$QUERY{'HP'}\">\n";
		print "<input type=hidden name=memo value=\"$QUERY{'memo'}\">\n";
		print "<table border=1>\n";
		print "<tr><td colspan=2>\n";
		print "<p><font size=4>■$QUERY{'subject'}</font></p>\n";
		print "・あなたのページへのリンクを確認して下さい。<br>\n";
		print "・正常にバナーが表\示されていなければ管理者が削除します。<br>\n";
		print "・変更訂正は、表\示されている項目のみ変更されます。<br>\n";
		print "<p></td></tr>\n";
		print "<tr><td align=right>ＩＤ：</td><td>$QUERY{'name'}</td></tr>\n";
		print "<tr><td align=right>ジャンル：</td><td>$QUERY{'item'}</td></tr>\n";
		if ($QUERY{'hpname'} ne '') { print "<tr><td align=right>タイトル：</td><td>$QUERY{'hpname'}</td></tr>\n"; }
		if ($QUERY{'HP'} ne '') { print "<tr><td align=right>ＵＲＬ：</td><td><a href=\"http://$QUERY{'HP'}\">http://$QUERY{'HP'}</a></td></tr>\n"; }
		if ($QUERY{'memo'} ne '') { print "<tr><td align=right>内容：</td><td>$QUERY{'memo'}</td></tr>\n"; }
		print "</table>\n";
		print "<input type=submit value='確認 OK 登録する'>\n";
	print "</form>\n";
	print "</center></div>\n";
	print "</body></html>\n";
	exit;
}
1;