sub insertRecord
{
	my ($record,$dbh,$tapeID) = @_;
	
	my %max = getMaxID($dbh);
	
	my $sth;
	
	$sth = $$dbh->prepare(addressQuery());
	
	$sth->execute($max{'addresses'},
	              $$record{'subscriber_address_one'},
	              $$record{'subscriber_address_two'},
	              $$record{'subscriber_city'},
	              $$record{'subscriber_state'},
	              $$record{'subscriber_zip'},
	              $$record{'subscriber_zip4'},
	              $$tapeID) or do{$$dbh->rollback(); return 0};
      ##Execute more queries in the same fashion
      $$dbh->commit();
      return 1;				   
}