while( @data = $query->fetchrow ) {

print REPORT_FILE qq(
	<tr>
	<td width=400 align=left color=$rowcolor>$data[0]</td>
        <td width=50 align=left>$data[1]</td>
        <td width=50 align=left>$data[2]</td>
        <td width=50 align=left>$data[3]</td>
        <td width=50 align=left>$data[4]</td>
        </tr>   )   

}