sub build_record_page {
my (%record) = @_;
my ($val) = "";
my ($html) = qq~<TABLE border=1 bgcolor="#FFFFFF" cellspacing=0 cellpadding=4>
        <TR bgcolor="#C0C0C0">
                <TD colspan=2><CENTER><font size=-1> Record </CENTER></TD>
        </TR>~;
        foreach $obj (@db_fields) {
                if ($obj eq $db_key) {
                        next; 
                }
                $html .= qq~<TR bgcolor="#DDDDDD"><TD><FONT SIZE=-1>$db_name{$obj}</TD><TD>~;
                if ($db_type{$obj} eq "text") {  # Makes the text box
                        if ($record{$obj}) { $val = qq~ VALUE="$record{$obj}"~; }
                        else { $val = ""; }
                        $html .= qq~<INPUT TYPE="text" NAME="$obj" size="20" $val>~;
                }
                if ($db_type{$obj} eq "drop") {  # Makes the dropdown box
                        if ($record{$obj}) { $val = qq~ VALUE="$record{$obj}"~; }
                        else { $val = ""; }
                                        $html .= qq~<SELECT NAME="$obj" <option value=""></option> $val>~; # The bit that I am stuck on I need to populate a drop down box from the fields_drop hash, but that needs to depend on which whether it is the type of change, or the machines to which the change will be applied. 

                }
                elsif ($db_type{$obj} eq "textarea") { # Makes the textarea
                        if ($record{$obj}) { $val = qq~$record{$obj}~; }
                        else { $val = ""; }
                        $html .= qq~<TEXTAREA NAME="$obj" ROWS="4" COLS="40">$val</TEXTAREA>~;
                }
                $html .= qq~</TD></TR>~;
        }
        $html .= "</TABLE><P>";
print $html;
}