if ($D::table == /client/i) {
			$sth_clients = $dbh->prepare_cached("select * from client");
			$sth_clients -> execute;
			while (@info = $sth_clients->fetchrow_array) { #make a hash table...yahoo!!!
				$clients{$info[0]} = $info[1];
			}
			$sth_clients ->finish;
		}
			#getlist of projects that are active
			$sth_project = $dbh->prepare_cached("select * from project where active=1");
			$sth_project -> execute;
			while (@info = $sth_project->fetchrow_array) { #make a hash table...yahoo!!!
				$projectList{$info[0]} = $info[1];
			}
			$sth_project ->finish;
	&DisconnectDB;
	
	print "<FONT face='Arial' size=2><b>ADD $table ";