#Read in the template HTML file with the form
.
    $form_file = $fields{formpage};

    open (FILE, "$form_file");
    @form = <FILE>;

    $select_flag=0;

    foreach (@form) {
	foreach $key (keys %fields) {
	    if ($_ =~ /name=\"$key\"/i) {
		if (($key ne "table")&&($key ne "formpage")&&($key ne "dbname")&&($_ !~ /meta/i)) {
		    if ($_ =~ m/check|radio/i) {
			$valueplace = index($_, "value=");
			$value = substr($_,$valueplace+7);
			($value,$junk) = split(/\"/,$value);
			if ($fields{$key} eq $value) {
			    $_ =~ s/input/input checked/i;
			   print; print "\n"; $form_flag=1; last;
			}
			next;
		    } elsif ($_ =~ /textarea/i) {
  #these are the regex giving me trouble if the data has wierd characters

			$_ =~ s/><\/textarea/>$fields{$key}<\/textarea/i;
		    } elsif ($_ =~ m/select/i) {
		    } else {
			$_ =~ s/input/input value=\"$fields{$key}\"/i;
		    }
		    print; print "\n";
		    $form_flag = 1;

		}
            } elsif ($_ =~ /select/) {
                $select_flag=1;
            } elsif (($select_flag)&&($_ =~ m/option value=/i)) {

                $_ =~ s/option value=\"$fields{$key}\"/option value=\"$fields{$key}\" selected/;;
	    }

     	}
	if (!$form_flag) {
	    print; print "\n"; next;
	} else {$form_flag=0; next;}
    }

}