$comment_sth->execute($id) or die "Couldn't execute comment query: ".$DBI::errstr;

my @comment_row;
while (@comment_row = $comment_sth->fetchrow_array) {
my ($speedtrap_id,$comment_id,$comment_text,$comment_date,$commenter) = @comment_row;		

if(@comment_row){
print <<EOF;
<tr> 
<td colspan="2" bgcolor="#E6ECF0">$comment_text</td>
</tr>
EOF
} else {
print <<EOF;
<tr>							
<td colspan="2" bgcolor="#E6ECF0">There are no comments from others for this speedtrap.</td>
</tr>
EOF
}