dbmopen(%synusers,"synusers",0666) || die "Can't open synusers DBM file\n";
	#search database entries
	while (($key, $value) = each(%synusers)){
		if (index($key,$fields{'alumnamelogin'})!=-1){
 			($alumemail, $emailpub, $alumsnail1, $snail1pub, $alumsnail2, $snail2pub, $alumsnail3, $snail3pub, 
			$phone, $phonepub, $alumyears, $yearspub, $comment, $commentpub, $synpass, $synpass2)=split(/::/,$value);