DECLARE 
	  gif_image_dir VARCHAR2(80) := 'e:\m\'; 
	  photo_filename VARCHAR2(80); 
	  
BEGIN 

	:System.Message_Level := '25';

	photo_filename := gif_image_dir||LOWER(:all_students.rn)||'.gif'; 
	READ_IMAGE_FILE(photo_filename, 'GIF', 'all_students.image6');
	
	--if :all_students.rn<> gif_image_dir||LOWER(:all_students.rn)||'.gif' then 
	   IF NOT FORM_SUCCESS THEN
	   	    photo_filename :='e:\m\no-photo.gif'; 
	   	    READ_IMAGE_FILE(photo_filename, 'GIF', 'all_students.image6');
	   	 --   MESSAGE('This student does not have a photo on file.');
	   END IF;
	   :SYSTEM.MESSAGE_LEVEL := '0';
--end if;
END;