This sub routine is in the html.pl file. only the non admin fields have tabindex.
The fields that have input calls all work fine. exp: <td colspan="2">Week<input name="Week" value="$rec{'Week'}" size="3" type="text" tabindex="9"></td>
The fields that I don't understand and need help with are these:	<td colspan="2">Sale:|; print &build_select_field ("Tap", "$rec{'Tap'}","10"); print qq|</td>
The number 10 ( ,"10" ) is a place holder and sequence for the order it will fall. I understand that this is not correct and will need to change.



sub html_record_form {
# --------------------------------------------------------
# The form fields that will be displayed each time a record is
# edited (including searching). You don't want to put the 
# <FORM> and </FORM tags, merely the <INPUT> tags for each field.
# The values to be displayed are in %rec and should be incorporated
# into your form. You can use &build_select_field, &build_checkbox_field 
# and &build_radio_field to generate the respective input boxes. Text and
# Textarea inputs can be inserted as is. If you turn on form auto
# generation, the program will build the forms for you (all though they may
# not be as nice). See the README for more info.
	
	my (%rec) = @_;
	($db_auto_generate and print &build_html_record_form(%rec) and return);
	
	my $font = 'Font face="Tahoma" Color=#003399';
   print qq|

<center>
	 <input type=hidden NAME="ID2" VALUE="$rec{'ID2'}" MAXLENGTH="5">   
	 <input type=hidden NAME="Date" VALUE="$rec{'Date'}" MAXLENGTH="12">
	 <table width="1250" border="0" cellspacing="0" cellpadding="3">
  <tr>
    <td colspan="8" height="72" valign="center" align="center" valign="top" bgcolor="051A6E"><font color="#ffffff"<h1>$rec{'Company'}</h1></font></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Company Information</td><td colspan="6" align="center">Sales Information</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Promotion:</td>
    <td colspan="2">Week<input name="Week" value="$rec{'Week'}" size="3" type="text" tabindex="9"></td>
    <td colspan="2">Sale:|; print &build_select_field ("Tap", "$rec{'Tap'}","10"); print qq|</td>
  	<td colspan="2">|; print qq!
<select onChange="location=this.options[this.selectedIndex].value;">
<option value="$db_script_link_url">Spec Sheets</option>
<option value="$db_script_link_url&$db_key=$rec{$db_key}&forward_email_form=1">Business Card Page</option>
<option value="$db_script_link_url&$db_key=$rec{$db_key}&forward_email1_form=1">Quarter Page</option>
<option value="$db_script_link_url&$db_key=$rec{$db_key}&forward_email2_form=1">Half Page</option>
<option value="$db_script_link_url&$db_key=$rec{$db_key}&forward_email3_form=1">Full Page</option>
</select>
!;		print qq|									
</td>
    <td></td>
  </tr>
  <tr>
    <td bgcolor="#bfbfaa">|; print &build_select_field ("Promotion", "$rec{'Promotion'}","0"); print qq|</td>
    <td bgcolor="#bfbfaa">|; print &build_select_field ("Pdate", "$rec{'Pdate'}","1"); print qq|</td>
    <td colspan="2"><font color="red" size="2">Enter week number as 2 digits exp:02 or 03.</font></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Company: <br /></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Company" VALUE="$rec{'Company'}" size="40" tabindex="2"></td>
    <td colspan="2">AD Size:&nbsp;&nbsp; |; print &build_select_field ("AD_Size", "$rec{'AD_Size'}","11"); print qq|</td>
    <td colspan="2">Art:&nbsp; |; print &build_select_field ("Art", "$rec{'Art'}","12"); print qq|</td>
    <td colspan="2">Proof:&nbsp; |; print &build_select_field ("Proof", "$rec{'Proof'}","13"); print qq|</td>
  	</tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Contact:</td>
    <td colspan="2">AD Size 2:|; print &build_select_field ("AD_Size2", "$rec{'AD_Size2'}","14"); print qq|</td>
    <td colspan="2">Art2:|; print &build_select_field ("Art2", "$rec{'Art2'}","15"); print qq|</td>
    <td colspan="2">Proof2:|; print &build_select_field ("Proof2", "$rec{'Proof2'}","16"); print qq|</td>
    </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Contact" VALUE="$rec{'Contact'}" size="40" tabindex="3"></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Address: <br /></td>
    <td colspan="2">Banner:|; print &build_select_field ("Banner", "$rec{'Banner'}","17"); print qq|</td>
    <td colspan="2">Art3:|; print &build_select_field ("Art3", "$rec{'Art3'}","18"); print qq|</td>
    <td colspan="2">Proof3:|; print &build_select_field ("Proof3", "$rec{'Proof3'}","19"); print qq|</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Address" VALUE="$rec{'Address'}" size="40" tabindex="4"></td>
    <td colspan="2">Jumbo:|; print &build_select_field ("Jumbo", "$rec{'Jumbo'}","20");  print qq|</td>
    <td colspan="2">Art4:|; print &build_select_field ("Art4", "$rec{'Art4'}","21"); print qq|</td>
    <td colspan="2">Proof4:|; print &build_select_field ("Proof4", "$rec{'Proof4'}","22"); print qq|</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><p>City, State Zip: </p></td>
    <td colspan="2">Table:|; print &build_select_field ("Table", "$rec{'Table'}","23");	print qq|</td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>    
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input name="CSZ" type="text" VALUE="$rec{'CSZ'}" size="40" tabindex="5"></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Phone: </td>
    <td colspan="2" bgcolor="#c2c2ad"><font color="red" size="2">Art Dept will update this section.</font></td>
    <td bgcolor="#c2c2ad"><font color="red" size="2">Do not change anything in this area!!!.</font></td>
    <td></td>
    <td colspan="2" bgcolor="#d1d1c2">Tickets:&nbsp; &nbsp;  &nbsp; <input name="Tickets" value="$rec{'Tickets'}" size="3" type="text" tabindex="24"></td>
    </tr>							
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Phone" VALUE="$rec{'Phone'}" tabindex="6"></td>
    <td colspan="2" bgcolor="#c2c2ad">AD Page Number</td>
    <td bgcolor="#c2c2ad"><input name="ADNumber" value="$rec{'ADNumber'}" type="text"></td>
    <td><A HREF="../../proofs/$rec{'Pdate'}$rec{'Promotion'}/$rec{'ADNumber'}.pdf" target="_blank" $rec{'ADNumber'}><img src="/../images/Adp1.png" style="width:75px;"></a></td>
    <td colspan="2" bgcolor="#d1d1c2">VIP Tickets: <input name="VIP" value="$rec{'VIP'}" size="3" type="text" tabindex="25"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Alt Phone</td>
    <td colspan="2" bgcolor="#c2c2ad">AD2 Page Number</td>
    <td bgcolor="#c2c2ad"><input name="ADNumber2" value="$rec{'ADNumber2'}" type="text"></td>
    <td><A HREF="../../proofs/$rec{'Pdate'}$rec{'Promotion'}/$rec{'ADNumber2'}.pdf" target="_blank" $rec{'ADNumber2'}><img src="/../images/Adp2.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2">Memorabilia:</td>
	<td bgcolor="#d1d1c2"></td>  
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Alt_Phone" VALUE="$rec{'Alt_Phone'}" tabindex="7"></td>
    <td colspan="2" bgcolor="#c2c2ad">Banner Number</td>
    <td bgcolor="#c2c2ad"><input name="BNumber" value="$rec{'BNumber'}" type="text"></td>
    <td><A HREF="../../proofs/Banner/$rec{'Pdate'}$rec{'Promotion'}/$rec{'BNumber'}.pdf" target="_blank" $rec{'BNumber'}><img src="/../images/Bannerp.png" style="width:75px;"></a></td>
    <td rowspan="3" bgcolor="#d1d1c2">|; print &build_select_field2("Memorabilia",$rec{'Memorabilia'},'',6); print qq|</td>  
  	<td rowspan="3" bgcolor="#d1d1c2"><font color="white" size="2">To enter multiple options, you must hold the CTRL key while making your selections.</font></td>
  </tr>
  <tr>
    <td colspan="1" bgcolor="#bfbfaa">Email:</td>
    <td colspan="1" bgcolor="#bfbfaa"><font color="red" size="2">Format xx\@xxx.xxx</font></td>
    <td colspan="2" bgcolor="#c2c2ad">Jumbo Number</td>
    <td bgcolor="#c2c2ad"><input name="JNumber" value="$rec{'JNumber'}" type="text"></td>
    <td><A HREF="../../proofs/$rec{'Pdate'}$rec{'Promotion'}/Jumbo/$rec{'JNumber'}.jpg" target="_blank" $rec{'JNumber'}><img src="/../images/JumboP.png" style="width:75px;"></a></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input name="Email" type="text" VALUE="$rec{'Email'}" size="40" tabindex="8"></td>
  	<td colspan="2" bgcolor="#c2c2ad">Do we have all art work?</td>
    <td bgcolor="#c2c2ad">|; print &build_select_field ("Graphics", "$rec{'Graphics'}"); print qq|</td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>												
    		|;
    if ($per_admin) { 
		print qq|
	<td colspan="2" bgcolor="#bfbfaa">Sales Rep: &nbsp; |; print &build_external_select_field ("Userid", "$rec{'Userid'}"); print qq|</td>|;
      	}
      	else { 
  			print qq|<td colspan="2" bgcolor="#bfbfaa"></td>|; 
				} 
				print qq|		
	<td></td>
    <td></td>
    <td></td>
    <td></td>
    <td colspan="2"><center><a href="$db_script_www/cgi-bin/jersey/db.cgi?db=default&uid=$in{'uid'}&modify_form2=1&ID=*&Userid=%3c*&sb=1" target="_blank"><img src="/../images/jersey.png" style="width:75px;"></a></center></td>
    </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><font color="red">Red Flag: &nbsp; |; print &build_radio_field ("Red_Flag", "$rec{'Red_Flag'}"); print qq|</font></td>
    <td colspan="2">Lead &nbsp;|; print &build_select_field ("Lead", "$rec{'Lead'}","33");  print qq|</td>
    <td></td>
    <td></td>
    <td><font color="red" size="2">Ad the name of the jersey(s) you tag here.</font></td>
            		|;
    if ($per_admin) { 
		print qq|
	<td><font size="2"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Status</td> |;
      	}
      	else { 
  			print qq|<td></td>|; 
				} 
				print qq|		
	</tr>
  <tr>
    <td colspan="2" bgcolor="#b2b299"><font color="red" size="2">Date format mm/dd/yyyy</font></td>
    <td rowspan="4"colspan="3">Special Inst: <font color="red" size="2">Do not put CC information in Special Inst.</font><textarea name="Special_Inst" rows="6" cols="50" wrap="VIRTUAL" maxlength="255" tabindex="34">$rec{'Special_Inst'}</textarea></td>
    <td></td>
    <td colspan="2">Jersey(1)&nbsp;<input name="JName1" value="$rec{'JName1'}" size="20" type="text" tabindex="26">
     		|;
    if ($per_admin) { 
		print qq|
	|; print &build_select_field ("JDel1", "$rec{'JDel1'}"); print qq| </td>|;
      	}
      	print qq| 
  </tr>
  <tr>
    <td colspan="2" bgcolor="#b2b299">Payment Method &nbsp;|; print &build_select_field ("Payment", "$rec{'Payment'}","30");  print qq|</td>
    <td></td>
  	<td colspan="2">Jersey(2)&nbsp;<input name="JName2" value="$rec{'JName2'}" size="20" type="text" tabindex="27">
     		|;
    if ($per_admin) { 
		print qq|
	|; print &build_select_field ("JDel2", "$rec{'JDel2'}"); print qq| </td>|;
      	}
      	print qq| 
	<td></td>
    <td></td>
   </tr>
   <tr>
    <td colspan="2" bgcolor="#b2b299">Pickup Date &nbsp;<input name="Pickup_date" value="$rec{'Pickup_date'}" size="15" type="text" id="datepicker" tabindex="31"></td>
    <td></td>
  	<td colspan="2">Jersey(3)&nbsp;<input name="JName3" value="$rec{'JName3'}" size="20" type="text" tabindex="28">
     		|;
    if ($per_admin) { 
		print qq|
	|; print &build_select_field ("JDel3", "$rec{'JDel3'}"); print qq| </td>|;
      	}
      	print qq| 
	<td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#b2b299"><font color="red" size="2">Currency Format \$1500.00 NO COMMA'S</font></td>
    <td></td>
  	<td colspan="2">Jersey(4)&nbsp;<input name="JName4" value="$rec{'JName4'}" size="20" type="text" tabindex="29">
     		|;
    if ($per_admin) { 
		print qq|
	|; print &build_select_field ("JDel4", "$rec{'JDel4'}"); print qq| </td>|;
      	}
      	print qq| 
	<td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    |; 
    			# to close an active printing statement 
				# $rec{'Amount'} = sprintf ("%.2f", $rec{'Amount'}); 
				# 1 while $rec{'Amount'} =~ s/(\d)(\d{3})\b/$1,$2/; 
				# $rec{'Amount'} =~ s/\$//./,/; 
				# if ($rec{'Amount'}) { 
print qq| 
<td colspan="2" bgcolor="#b2b299">Amount &nbsp<input name="Amount" value="$rec{'Amount'}" size="15" type="text" tabindex="32"></td>
    |; 
# } 
print qq|
	<td></td>
    <td></td>
    <td></td>
    <td></td>		
	<td></td>
    <td></td>		
  </tr>
   <tr>
        		|;
    if ($per_admin) { 
		print qq|
	<td colspan="2" bgcolor="#b2b299">Collected Date &nbsp<input name="Collected_date" value="$rec{'Collected_date'}" size="15" type="text"></td> |;
      	}
      	else { 
  			print qq|<td colspan="2" bgcolor="#b2b299"></td>|; 
				} 
				print qq|		

    <td></td>
    <td></td>
  </table>
</center>
   |;
}




###################################################################################################################################################

This sub routine is from the db.cgi

sub build_select_field {
# --------------------------------------------------------
# Builds a SELECT field based on information found
# in the database definition. Parameters are the column to build
# and a default value (optional).

        my ($column, $value, $name) = @_;       
        my (@fields, $ouptut);
    $name || ($name = $column);

        @fields = split (/\,/, $db_select_fields{$column});
        if ($#fields == -1) {
                $output = "error building select field: no select fields specified in config for field '$column'!";
        }
        else {
                $output = qq|<SELECT NAME="$name"><OPTION>---|;
                foreach $field (@fields) {
                        $field eq $value ?
                                ($output .= "<OPTION SELECTED>$field\n") :
                                ($output .= "<OPTION>$field");
                }
                $output .= "</SELECT>";
        }
        return $output;
}