my $sth=$dbh->prepare("SELECT User,Version,Data,Identifier FROM ddts,delivery WHERE `User`=\"@user\" AND delivery.Data=ddts.Data");
				$sth->execute();
					while (my ($user,$version,$data,$identifier)=$sth->fetchrow_array ) {

							for (my $i=0; $i<=$#id; $i++){	
										if ($identifier eq $id[$i]){
										print "<tr><td><input type=\"checkbox\" name=\"rt\" CHECKED value=\"$id[$i]\"> $id[$i]</td></tr>";


													}
												}
$sth->finish;
$dbh->disconnect;											}