*
*  PROCEDURE TO Display all records to the screen
*

call html_header
call cgi_begin
call tpl_begin with "test_tpl.tpl"

 USE mail_lst
 if !file("mail_lst.dnx")
	index on lname to mail_lst
 endif

 GO TOP
  call tpl_head		&& Start template processing
  DO WHILE .NOT. EOF()

   call tpl_record	&& Show a record
   SKIP
  ENDDO

  call tpl_tail		&& Finish up the template