sub print_modify_page{
  ($key,@field_vals) = split(/\|/, $results[0]); 
  $fs="<FONT SIZE=2 FACE=ARIAL>";
  $fc="</FONT>";
  &mail($field_vals[0]);

  print $q->start_html(-TITLE=>'Modify Record',-BGCOLOR=>'white'),
        $q->start_form;

  print<<HTML;
   <CENTER><FONT SIZE=5 FACE=ARIAL>
    Modify Record
   </FONT></CENTER>
   <HR WIDTH=75%>
   <INPUT TYPE=HIDDEN NAME=key value="$key">
   <CENTER>
    <TABLE BORDER=1 CELLSPACING=0>
HTML


  $x=0;
   foreach $field (@fields){
    print<<HTML;
     <TR BGCOLOR="e0e0e0">
      <TD>$fs<B>\u$field:</B>$fc</TD>
      <TD><INPUT TYPE=TEXT NAME="$field" VALUE="$field_vals[$x]" SIZE=40></TD>
     </TR>
HTML
  $x++;
  } # End of foreach.