This is from "adsdb" html.pl

these are the lines of interest. (and then some)

20-26, 35, 303, 304, 474, 527, 528 & 706

sub html_record_form_tap {
# --------------------------------------------------------
# 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) = @_;
	$rec{$db_key} =~ s/<?.B>//g;
	($db_auto_generate and print &build_html_record_form_tap(%rec) and return);
	
	if ($in{'company'}) { 
	$rec{'Company'} = $in{'company'}; # 
	$rec{'company'} =~ s/zzzzz/&/g; # this converts zzzzz to & 
	} 

	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="1500" border="0" cellspacing="0" cellpadding="3">
  <tr>
    <td colspan="8" height="72" valign="center" align="center" valign="top" bgcolor="051A6E"><font color="#ffffff"<h1>$in{'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="$in{'Week'}" size="3" type="text"></td>
    <td colspan="2">Sale:|; print &build_select_field ("Tap", "$in{'Tap'}"); 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", "$in{'Promotion'}"); print qq|</td>
    <td bgcolor="#bfbfaa">|; print &build_select_field ("Pdate", "$in{'Pdate'}"); 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: <a HREF="$db_script_www/cgi-bin/master/db.cgi?db=default&uid=$in{'uid'}&ID2=&Date=&Company=$in{'Company'}&keyword=&mh=10&sb=---&so=ascend&view2_records=1" target="_blank"> History</a></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input name="Company" value="$rec{'Company'}" size="40"></td>
    <td colspan="2">AD Size:&nbsp;&nbsp; |; print &build_select_field ("AD_Size", "$in{'AD_Size'}"); print qq|</td>
    <td colspan="2">Art:&nbsp; |; print &build_select_field ("Art", "$in{'Art'}"); print qq|</td>
    <td colspan="2">Proof:&nbsp; |; print &build_select_field ("Proof", "$in{'Proof'}"); print qq|</td>
  	</tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Contact:</td>
    <td colspan="2">AD Size 2:|; print &build_select_field ("AD_Size2", "$in{'AD_Size2'}"); print qq|</td>
    <td colspan="2">Art2:|; print &build_select_field ("Art2", "$in{'Art2'}"); print qq|</td>
    <td colspan="2">Proof2:|; print &build_select_field ("Proof2", "$in{'Proof2'}"); print qq|</td>
    </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Contact" VALUE="$in{'Contact'}" size="40"></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", "$in{'Banner'}"); print qq|</td>
    <td colspan="2">Art3:|; print &build_select_field ("Art3", "$in{'Art3'}"); print qq|</td>
    <td colspan="2">Proof3:|; print &build_select_field ("Proof3", "$in{'Proof3'}"); print qq|</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Address" VALUE="$in{'Address'}" size="40"></td>
    <td colspan="2">Jumbo:|; print &build_select_field ("Jumbo", "$in{'Jumbo'}");  print qq|</td>
    <td colspan="2">Art4:|; print &build_select_field ("Art4", "$in{'Art4'}"); print qq|</td>
    <td colspan="2">Proof4:|; print &build_select_field ("Proof4", "$in{'Proof4'}"); 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", "$in{'Table'}");	print qq|</td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>    
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input name="CSZ" type="text" VALUE="$in{'CSZ'}" size="40"></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="$in{'Tickets'}" size="3" type="text"></td>
    </tr>							
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><input type="text" name="Phone" VALUE="$in{'Phone'}"></td>
    <td colspan="2" bgcolor="#c2c2ad">AD Page Number</td>
    <td bgcolor="#c2c2ad"><input name="ADNumber" value="$in{'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="$in{'VIP'}" size="3" type="text"></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="$in{'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="$in{'Alt_Phone'}"></td>
    <td colspan="2" bgcolor="#c2c2ad">Banner Number</td>
    <td bgcolor="#c2c2ad"><input name="BNumber" value="$in{'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",$in{'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="$in{'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="$in{'Email'}" size="40"></td>
  	<td colspan="2" bgcolor="#c2c2ad">Do we have all art work?</td>
    <td bgcolor="#c2c2ad">|; print &build_select_field ("Graphics", "$in{'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", "$in{'Userid'}"); print qq|</td>|; print qq| |;
      	}
      	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", "$in{'Lead'}");  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">$in{'Special_Inst'}</textarea></td>
    <td></td>
    <td colspan="2">Jersey(1)&nbsp;<input name="JName1" value="$in{'JName1'}" size="20" type="text">
     		|;
    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", "$in{'Payment'}");  print qq|</td>
    <td></td>
  	<td colspan="2">Jersey(2)&nbsp;<input name="JName2" value="$in{'JName2'}" size="20" type="text">
     		|;
    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="$in{'Pickup_date'}" size="15" type="text"></td>
    <td></td>
  	<td colspan="2">Jersey(3)&nbsp;<input name="JName3" value="$in{'JName3'}" size="20" type="text">
     		|;
    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="$in{'JName4'}" size="20" type="text">
     		|;
    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="$in{'Amount'}" size="15" type="text"></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="$in{'Collected_date'}" size="15" type="text"></td> |;
      	}
      	else { 
  			print qq|<td colspan="2" bgcolor="#b2b299"></td>|; 
				} 
				print qq|		

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

sub html_record {
# --------------------------------------------------------
# How a record will be displayed. This is used primarily in 
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.

	my (%rec) = @_;		# Load any defaults to put in the VALUE field.
	$rec{$db_key} =~ s/<?.B>//g;
	($db_auto_generate and print &build_html_record(%rec) and return);
	
	my ($company) = $rec{'Company'}; # or whatever the field name is 
	$company =~ s/&/zzzzz/g; # this converts & to &amp; 

	my $font = 'Font face="Tahoma" Color=#003399';
   
	print qq|
	<center>
		<table width="1200" border="0" cellspacing="0" cellpadding="3" bgcolor="#E0E0D6">
  <tr>
    <td colspan="8" bgcolor="#FF00FF">ID:$rec{'ID2'}, &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Last Date Modifed:&nbsp; $rec{Date}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sales Rep: $rec{'Userid'}&nbsp; &nbsp;
</td> 
  </tr>
  <tr>
    <td bgcolor="#bfbfaa">Promotion:</td>
    <td bgcolor="#bfbfaa">    |;
    if (( $rec{'Address'} && $rec{'CSZ'} ) ) { 
  $addr = &urlencode($rec{'Address'}); 
  $city = &urlencode("$rec{'CSZ'}"); 
  print qq| 
    <a href="http://maps.yahoo.com/py/maps.py?addr=$addr&csz=$city" target="_blank">Map It</a> 
  |; 
}
	print qq|</td>
    <td>Week</td>
    <td>$rec{'Week'}</td>
    <td>Sale:</td>
    <td>$rec{'Tap'}</td>
  	<td>|; 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">$rec{'Promotion'}</td>
    <td bgcolor="#bfbfaa">$rec{'Pdate'}</td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Company:</td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Company'} </td>
    <td colspan="2">AD Size:&nbsp; &nbsp; $rec{'AD_Size'}</td>
    <td colspan="2">Art:&nbsp; &nbsp; $rec{'Art'}</td>
    <td colspan="2">Proof:&nbsp; &nbsp; $rec{'Proof'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Contact:</td>
    <td colspan="2">AD Size 2:&nbsp; &nbsp; $rec{'AD_Size2'}</td>
    <td colspan="2">Art2:&nbsp; &nbsp; $rec{'Art2'}</td>
    <td colspan="2">Proof2:&nbsp; &nbsp; $rec{'Proof2'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Contact'} </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:&nbsp; &nbsp; $rec{'Banner'}</td>
    <td colspan="2">Art3:&nbsp; &nbsp; $rec{'Art3'}</td>
    <td colspan="2">Proof3:&nbsp; &nbsp; $rec{'Proof3'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Address'}</td>
    <td colspan="2">Jumbo:&nbsp; &nbsp; $rec{'Jumbo'}</td>
    <td colspan="2">Art4:&nbsp; &nbsp; $rec{'Art4'}</td>
    <td colspan="2">Proof4:&nbsp; &nbsp; $rec{'Proof4'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><p>City: </p></td>
    <td colspan="2">Table:&nbsp; &nbsp; $rec{'Table'}</td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'CSZ'}</td>
    <td></td>
    <td></td>
    <td></td>
 	<td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Phone: </td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>							
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Phone'} </td>
    <td bgcolor="#c2c2ad">AD Page Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/$rec{'ADNumber'}.pdf" target="_blank">$rec{'ADNumber'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&proof_email_form=1"><img src="/../images/Adp1.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2">Tickets</td>
    <td bgcolor="#d1d1c2">$rec{'Tickets'}</td>
    <td bgcolor="#d1d1c2"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Alt Phone</td>
    <td bgcolor="#c2c2ad">AD2 Page Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/$rec{'ADNumber2'}.pdf" target="_blank">$rec{'ADNumber2'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&proof2_email_form=1"><img src="/../images/Adp2.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2">VIP Tickets</td>
    <td bgcolor="#d1d1c2">$rec{'VIP'}</td>
    <td bgcolor="#d1d1c2"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Alt_Phone'}</td>
    <td bgcolor="#c2c2ad">Banner Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/Banner/$rec{'BNumber'}.pdf" target="_blank">$rec{'BNumber'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&banner_email_form=1"><img src="/../images/Bannerp.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2">Memorabilia:</td>
  	<td colspan="2" bgcolor="#d1d1c2">$rec{'Memorabilia'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Email:</td>
    <td bgcolor="#c2c2ad">Jumbo Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/Jumbo/$rec{'JNumber'}.jpg" target="_blank">$rec{'JNumber'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&jumbo_email_form=1"><img src="/../images/JumboP.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2"></td>
  	<td colspan="2" bgcolor="#d1d1c2"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Email'}</td>
  	<td bgcolor="#c2c2ad">Do we have all art work?</td>
    <td bgcolor="#c2c2ad">$rec{'Graphics'}</td>
    <td></td>
    <td></td>
    <td></td>
    <td>Status</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Red Flag: &nbsp; $rec{'Red_Flag'}</td>
	<td colspan="2">Lead: &nbsp;$rec{'Lead'}</td>
    <td></td>
    <td>Jersey(1)</td>
    <td>$rec{'JName1'}</td>
    <td>$rec{'JDel1'}</td>
  </tr>
  <tr>
     <td colspan="2" bgcolor="#b2b299">Payment Method &nbsp;$rec{'Payment'}</td>
    <td></td>
  	<td rowspan="2"><center><a href="$db_script_www/cgi-bin/toby/db.cgi?db=default&uid=$in{'uid'}&add_form=1&ID2=$rec{'ID2'}&Userid=$rec{'Userid'}&Date=$rec{'Date'}&Company=$company&Contact=$rec{'Contact'}&Address=$rec{'Address'}&CSZ=$rec{'CSZ'}&Phone=$rec{'Phone'}&Amount=$rec{'Amount'}&Email=$rec{'Email'}&sb=1" target="_blank"><img src="/../images/donate.jpg" style="width:50px;"></a></center></td>
     <td></td>
    <td>Jersey(2)</td>
    <td>$rec{'JName2'}</td>
    <td>$rec{'JDel2'}</td>
     </tr>
   <tr>
    <td colspan="2" bgcolor="#b2b299">Pickup Date &nbsp;$rec{'Pickup_date'}</td>
     <td></td>
     <td></td>
     <td>Jersey(3)</td>
     <td>$rec{'JName3'}</td>
     <td>$rec{'JDel3'}</td>
     </tr>
  <tr>
    <td colspan="2" bgcolor="#b2b299">Amount &nbsp;$rec{'Amount'}</td>
     <td></td>
     <td></td>
     <td></td>
     <td>Jersey(4)</td>
     <td>$rec{'JName4'}</td>
     <td>$rec{'JDel4'}</td>
     </tr>
  <tr>
    <td colspan="2" bgcolor="#b2b299">Collected Date &nbsp;$rec{'Collected_date'}</td>
     <td></td>
     <td></td>
     <td></td>
     <td></td>
     <td></td>
     <td></td>
  </tr>
  </table>
<table width="1200" bgcolor="69B310" border="0" cellspacing="2" cellpadding="3">
  <tr>
    <td>Special Inst: $rec{'Special_Inst'}</td>
  </tr>
  </table>
</center>
	|;
}

sub html_record_tap {
# --------------------------------------------------------
# How a record will be displayed. This is used primarily in 
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.

	
	my (%rec) = @_;		# Load any defaults to put in the VALUE field.
	$rec{$db_key} =~ s/<?.B>//g;
	($db_auto_generate and print &build_html_record(%rec) and return);
	
	my ($company) = $rec{'Company'}; # or whatever the field name is 
	$company =~ s/&/zzzzz/g; # this converts & to &amp; 

	my $font = 'Font face="Tahoma" Color=#003399';
   
	print qq|
	<center>
		<table width="1200" border="0" cellspacing="0" cellpadding="3" bgcolor="#E0E0D6">
  <tr>
    <td colspan="8" bgcolor="#FF00FF">ID:$rec{'ID2'}, &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Last Date Modifed:&nbsp; $rec{Date}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sales Rep: $rec{'Userid'}</td> 
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Promotion:</td>
    <td>Week</td>
    <td>$rec{'Week'}</td>
    <td>Sale:</td>
    <td>$rec{'Tap'}</td>
  	<td>|; 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">$rec{'Promotion'}</td>
    <td bgcolor="#bfbfaa">$rec{'Pdate'}</td>
    <td></td>
    <td></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">$rec{'Company'}</td>
    <td colspan="2">AD Size:&nbsp; &nbsp; $rec{'AD_Size'}</td>
    <td colspan="2">Art:&nbsp; &nbsp; $rec{'Art'}</td>
    <td colspan="2">Proof:&nbsp; &nbsp; $rec{'Proof'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Contact:</td>
    <td colspan="2">AD Size 2:&nbsp; &nbsp; $rec{'AD_Size2'}</td>
    <td colspan="2">Art2:&nbsp; &nbsp; $rec{'Art2'}</td>
    <td colspan="2">Proof2:&nbsp; &nbsp; $rec{'Proof2'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Contact'} </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:&nbsp; &nbsp; $rec{'Banner'}</td>
    <td colspan="2">Art3:&nbsp; &nbsp; $rec{'Art3'}</td>
    <td colspan="2">Proof3:&nbsp; &nbsp; $rec{'Proof3'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Address'}</td>
    <td colspan="2">Jumbo:&nbsp; &nbsp; $rec{'Jumbo'}</td>
    <td colspan="2">Art4:&nbsp; &nbsp; $rec{'Art4'}</td>
    <td colspan="2">Proof4:&nbsp; &nbsp; $rec{'Proof4'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa"><p>City: </p></td>
    <td colspan="2">Table:&nbsp; &nbsp; $rec{'Table'}</td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'CSZ'}</td>
    <td></td>
    <td></td>
    <td></td>
 	<td></td>
    <td></td>
    <td></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Phone: </td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
  </tr>							
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Phone'} </td>
    <td bgcolor="#c2c2ad">AD Page Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/$rec{'ADNumber'}.pdf" target="_blank">$rec{'ADNumber'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&proof_email_form=1"><img src="/../images/Adp1.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2">Tickets</td>
    <td bgcolor="#d1d1c2">$rec{'Tickets'}</td>
    <td bgcolor="#d1d1c2"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Alt Phone</td>
    <td bgcolor="#c2c2ad">AD2 Page Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/$rec{'ADNumber2'}.pdf" target="_blank">$rec{'ADNumber2'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&proof2_email_form=1"><img src="/../images/Adp2.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2">VIP Tickets</td>
    <td bgcolor="#d1d1c2">$rec{'VIP'}</td>
    <td bgcolor="#d1d1c2"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Alt_Phone'}</td>
    <td bgcolor="#c2c2ad">Banner Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/Banner/$rec{'BNumber'}.pdf" target="_blank">$rec{'BNumber'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&banner_email_form=1"><img src="/../images/Bannerp.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2">Memorabilia:</td>
  	<td colspan="2" bgcolor="#d1d1c2">$rec{'Memorabilia'}</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Email:</td>
    <td bgcolor="#c2c2ad">Jumbo Number</td>
    <td bgcolor="#c2c2ad"><A HREF="../../proofs/$in{'Pdate'}$in{'Promotion'}/Jumbo/$rec{'JNumber'}.jpg" target="_blank">$rec{'JNumber'}</a></td>
    <td><a href="$db_script_link_url&$db_key=$rec{$db_key}&jumbo_email_form=1"><img src="/../images/JumboP.png" style="width:75px;"></a></td>
    <td bgcolor="#d1d1c2"></td>
  	<td colspan="2" bgcolor="#d1d1c2"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">$rec{'Email'}</td>
  	<td bgcolor="#c2c2ad">Do we have all art work?</td>
    <td bgcolor="#c2c2ad">$rec{'Graphics'}</td>
    <td></td>
    <td></td>
    <td></td>
    <td>Status</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#bfbfaa">Red Flag: &nbsp; $rec{'Red_Flag'}</td>
	<td colspan="2">Lead: &nbsp;$rec{'Lead'}</td>
    <td></td>
    <td>Jersey(1)</td>
    <td>$rec{'JName1'}</td>
    <td>$rec{'JDel1'}</td>
  </tr>
  <tr>
     <td colspan="2" bgcolor="#b2b299">Payment Method &nbsp;$rec{'Payment'}</td>
    <td></td>
  	<td></td>
    <td></td>
    <td>Jersey(2)</td>
    <td>$rec{'JName2'}</td>
    <td>$rec{'JDel2'}</td>
     </tr>
   <tr>
    <td colspan="2" bgcolor="#b2b299">Pickup Date &nbsp;$rec{'Pickup_date'}</td>
     <td></td>
     <td></td>
     <td></td>
     <td>Jersey(3)</td>
     <td>$rec{'JName3'}</td>
     <td>$rec{'JDel3'}</td>
     </tr>
  <tr>
    <td colspan="2" bgcolor="#b2b299">Amount &nbsp;$rec{'Amount'}</td>
     <td></td>
     <td><A HREF="$db_script_link_url&add_tap_form=1&Userid=$rec{'Userid'}&Date=$rec{'Date'}&Company=$company&Contact=$rec{'Contact'}&Address=$rec{'Address'}&CSZ=$rec{'CSZ'}&Phone=$rec{'Phone'}&Amount=$rec{'Amount'}&Email=$rec{'Email'}&AD_Size=$rec{'AD_Size'}&Art=$rec{'Art'}&AD_Size2=$rec{'AD_Size2'}&Banner=$rec{'Banner'}&Art2=$rec{'Art2'}&Jumbo=$rec{'Jumbo'}&Art3=$rec{'Art3'}&Art4=$rec{'Art4'}&Table=$rec{'Table'}&ADNumber=$rec{'ADNumber'}&ADNumber2=$rec{'ADNumber2'}&BNumber=$rec{'BNumber'}&JNumber=$rec{'JNumber'}&Graphics=$rec{'Graphics'}&Tap=Tap&sb=1"><img src="/../images/tap_button.jpg" style="width:100px;"></a></td>
     <td></td>
     <td>Jersey(4)</td>
     <td>$rec{'JName4'}</td>
     <td>$rec{'JDel4'}</td>
     </tr>
  <tr>
    <td colspan="2" bgcolor="#b2b299">Collected Date &nbsp;$rec{'Collected_date'}</td>
     <td></td>
     <td></td>
     <td></td>
     <td></td>
     <td></td>
     <td></td>
  </tr>
  </table>
<table width="1000" bgcolor="69B310" border="0" cellspacing="2" cellpadding="3">
  <tr>
    <td>Special Inst: $rec{'Special_Inst'}</td>
  </tr>
  </table>
</center>
	|;
}