######################################################
#　削除記事確認
######################################################
#
#
sub delform{
print "Content-type: text/html\n\n";
&head;
print <<"html";
<h2>$titol</h2>
html
$tsus = $FORM{'tsus'};
$tm_date = $FORM{'tm_date'};
$tm_titol = $FORM{'tm_titol'};
$tm_post = $FORM{'tm_post'};
$tm_memo = $FORM{'tm_memo'};
print <<"html";
<div id="wrapper">
<div id="main">
No.<$tsus>
<input type="hidden" name="ssus" value="$tsus">
<p><input type="text" name="sm_date" value="$tm_date">年月日</p>
<p>名前<br><input type="text" size="50" name="sm_post" value="$tm_post"></p>
<p>タイトル<br><input type="text" size="50" name="sm_titol" value="$tm_titol"></p>
<p>メモ<br><textarea cols="70" rows="10" name="sm_memo" value="$tm_memo" class="i_text5">$tm_memo</textarea></p>
</div>
<form action=\"$prgname\" method=\"post\">
<input type=hidden name=mode value="delet">
<input type="hidden" name="sus" value="$tsus">
<input type="hidden" name="sm_titol" value="$tm_titol">
<input type="hidden" name="sm_post" value="$tm_post">
<input type="hidden" name="sm_memo" value="$tm_memo">
<input type="submit" value="削除" class="bttn10">
</form>
</div>
</body>
</html>
html
exit;
}
#
#
######################################################