# If the form has been completed, save data entered
if ($input{"go"} eq "FETCH") {
$query = "SELECT 
              \"LastName\" AS ln, 
              \"FirstName\" AS fn,
              \"Title\" AS tl,
              \"TitleOfCourtesy\" AS tc,
              \"BirthDate\" AS bd,
              \"HireDate\" AS hd,
              \"Address\" As ad, 
              \"City\" AS ct,
              \"Region\" AS rg, 
              \"PostalCode\" AS pc, 
              \"Country\" AS cy,
              \"HomePhone\" AS hp, 
              \"Extension\" AS xt, 
              \"Notes\" AS nt, 
              \"ReportsTo\" AS rt
          FROM
             \"Employees\"
          WHERE
             \"EmployeeID\"="." \'$input{empid}\'";

$ins = $db_handle->prepare($query);
$ins->execute;
while (@row = $ins->fetchrow) {
         $ln .= "<input value=$row[0]></input>\n";
         $fn .= "<input value=$row[1]></input>\n";
         $tl .= "<input value=$row[2]></input>\n";
         $tc .= "<input value=$row[3]></input>\n";
         $bd .= "<input value=$row[4]></input>\n";
         $hd .= "<input value=$row[5]></input>\n";
         $ad .= "<input value=$row[6]></input>\n";
         $ct .= "<input value=$row[7]></input>\n";
         $rg .= "<input value=$row[8]></input>\n";
         $pc .= "<input value=$row[9]></input>\n";
         $cy .= "<input value=$row[10]></input>\n";
         $hp .= "<input value=$row[11]></input>\n";
         $xt .= "<input value=$row[12]></input>\n";
         $nt .= "<input value=$row[13]></input>\n";
         $rt .= "<input value=$row[14]></input>\n";
                 }