sub write1 {
    while ( @data=$STH1->fetchrow_array() )

	{
	print "<CENTER>";
	print "<TR>";
	print "<TD BGCOLOR='red'>";
	print "<P ALIGN='CENTER'>";
	print "<FONT COLOR='white'>";