# while($Data->FetchRow())
# {
#	%Data = $Data->DataHash();
	
#	print "<tr>";
	
#	foreach $key( keys( %Data ))
#	{
#		print "<td bgcolor = #9999CC>$Data{$key} </td>";
#	}