#! perl -d

  use CGI;  # use the CGI as the default output object
  $query = new CGI;  # get the input from the CGI object

  $logging_drive = "d:";  # the drive that it is possible to save data to
  $website_drive = "e:";  # the drive that contains the files that need to be read

  ### Get the user's cookie and referring page ###

  $cookie = $ENV{'HTTP_COOKIE'};
  $ref = $ENV{'HTTP_REFERER'};

  ### Split the user's cookie into the items he wishes to order ###

  @item = split(/,/,$cookie);

   $cartfrm = "$website_drive/asi/order/basket\.html";
   $cartbpifrm = "$website_drive/asi/order/basket\.html";
   $aphcprice = 25.00;
   $apauprice = 25.00;
   $avhcprice = 25.00;
   $avauprice = 25.00;
   $bbpbprice = 6.99;
   $bbauprice = 15.95;
   $bedvdprice = 14.99;
   $behcprice = 45.00;
   $belbengprice = 750.00;
   $belbfrprice = 1200.00;
   $belbspnprice = 1200.00;
   $belbitprice = 1200.00;
   $behc20price = 29.95;
   $bepbprice = 7.99;
   $beauprice = 29.95;
   $wo19pbprice = 7.99;
   $wo18pbprice = 7.99;
   $wo17pbprice = 7.99;
   $wobesthcprice = 14.95;
   $wo16pbprice = 7.99;
   $wo15pbprice = 6.99;
   $wo14pbprice = 6.99;
   $wo13pbprice = 6.99;
   $wo12pbprice = 6.99;
   $wo11pbprice = 6.99;
   $wo10pbprice = 6.99;
   $wo9pbprice = 5.99;
   $wo8pbprice = 5.99;
   $wo7pbprice = 5.95;
   $wo6pbprice = 7.99;
   $wo5pbprice = 7.99;
   $wo4pbprice = 7.99;
   $wo3pbprice = 7.99;
   $wo2pbprice = 7.99;
   $wo1pbprice = 7.99;
   $fepbprice = 6.99;
   $feauprice = 9.95;
   $fbpbprice = 6.99;
   $fbauprice = 11.95;
   $odhcprice = 18.95;
   $odauprice = 24.95;
   $sixgauprice = 10.95;
   $esauprice = 9.95;
   $goauprice = 9.95;
   $hlauprice = 9.95;
   $mepbsetprice = 67.86;
   $meausetprice = 159.50;
   $me01pbprice = 6.99;
   $me01auprice = 15.95;
   $me02pbprice = 6.99;
   $me02auprice = 15.95;
   $me03pbprice = 4.95;
   $me03auprice = 15.95;
   $me04pbprice = 6.99;
   $me04auprice = 15.95;
   $me05pbprice = 6.99;
   $me05auprice = 15.95;
   $me06pbprice = 6.99;
   $me06auprice = 15.95;
   $me07pbprice = 6.99;
   $me07auprice = 15.95;
   $me08pbprice = 6.99;
   $me08auprice = 15.95;
   $me09pbprice = 6.99;
   $me09auprice = 15.95;
   $me10pbprice = 6.99;
   $me10auprice = 15.95;
   $tyhcprice = 16.95;
   $tyauprice = 16.95;
   $sshcprice = 19.95;
   $ssauprice = 19.95;
   $ahhcprice = 17.95;
   $ahauprice = 11.95;
   $lrhbibprice = 50.00;
   $beleprprice = 3850.00;
   $begrprprice = 3000.00;
   $bechprprice = 2850.00;
   $beviprprice = 2000.00;
   $bepuprprice = 3000.00;
   $beieprprice = 7500.00;
   $bemtprprice = 6250.00;
   $beusprprice = 3500.00;
   $betdiprprice = 1500.00;
   $betduprprice = 1500.00;
   $begmprprice = 800.00;
   $bertprprice = 1400.00;
   $betlprprice = 800.00;
   $beinprprice = 800.00;
   $becoprprice = 900.00;
   $becdprprice = 3000.00;
   $bewiprprice = 3000.00;
   $beboprprice = 900.00;
   $begrminiprprice = 150.00;
   $bechminiprprice = 150.00;
   $beviminiprprice = 150.00;
   $bepuminiprprice = 150.00;
   $botbe01auprice = 60.00;
   $botbe02auprice = 60.00;
   $wotfpackprice = 143.82;
   $mstprice = 49.95;
   $ksaucdprice = 25.00;
   $ksaucassprice = 20.00;

  ########## Set Order Form Values ##########

  foreach $checkcookie (@item) {
	if ($checkcookie =~ "aphc") { $aphcqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "apau") { $apauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "ksaucd") { $ksaucdqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "ksaucass") { $ksaucassqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "avhc") { $avhcqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "avau") { $avauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bbpb") { $bbpbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bbau") { $bbauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bedvd") { $bedvdqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "behc20") { $behc20qty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "mst") { $mstqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bepb") { $bepbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "beau") { $beauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "belbeng") { $belbengqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "fepb") { $fepbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "feau") { $feauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "fbpb") { $fbpbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "fbau") { $fbauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "odhc") { $odhcqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "odau") { $odauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "6gau") { $sixgauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "esau") { $esauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "goau") { $goauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "hlau") { $hlauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "mepbset") { $mepbsetqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "meauset") { $meausetqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me01pb") { $me01pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me01au") { $me01auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me02pb") { $me02pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me02au") { $me02auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me03pb") { $me03pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me03au") { $me03auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me04pb") { $me04pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me04au") { $me04auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me05pb") { $me05pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me05au") { $me05auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me06pb") { $me06pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me06au") { $me06auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me07pb") { $me07pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me07au") { $me07auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me08pb") { $me08pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me08au") { $me08auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me09pb") { $me09pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me09au") { $me09auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me10pb") { $me10pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "me10au") { $me10auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wobesthc") { $wobesthcqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo19pb") { $wo19pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo18pb") { $wo18pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo17pb") { $wo17pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo16pb") { $wo16pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo15pb") { $wo15pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo14pb") { $wo14pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo13pb") { $wo13pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo12pb") { $wo12pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo11pb") { $wo11pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo10pb") { $wo10pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo9pb") { $wo9pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo8pb") { $wo8pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo7pb") { $wo7pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo6pb") { $wo6pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo5pb") { $wo5pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo4pb") { $wo4pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo3pb") { $wo3pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo2pb") { $wo2pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wo1pb") { $wo1pbqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "wotfpack") { $wotfpackqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "tyhc") { $tyhcqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "tyau") { $tyauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "sshc") { $sshcqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "ssau") { $ssauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "ahhc") { $ahhcqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "ahau") { $ahauqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "lrhbib") { $lrhbibqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "belbfr") { $belbfrqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "belbspn") { $belbspnqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "belbit") { $belbitqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "belepr") { $beleprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "begrpr") { $begrprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bechpr") { $bechprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bevipr") { $beviprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bepupr") { $bepuprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "beiepr") { $beieprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bemtpr") { $bemtprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "beuspr") { $beusprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "betdipr") { $betdiprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "betdupr") { $betduprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "begmpr") { $begmprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bertpr") { $bertprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "betlpr") { $betlprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "beinpr") { $beinprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "becopr") { $becoprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "becdpr") { $becdprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bewipr") { $bewiprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bebopr") { $beboprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "begrminipr") { $begrminiprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bechminipr") { $bechminiprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "beviminipr") { $beviminiprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "bepuminipr") { $bepuminiprqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "botbe01au") { $botbe01auqty = substr($checkcookie,0,index($checkcookie,"-")); }
	if ($checkcookie =~ "botbe02au") { $botbe02auqty = substr($checkcookie,0,index($checkcookie,"-")); }

}




  ### Calculate Quantities & Totals ###

  ### Leatherbounds & Prints ###



  $lbcount = $belbengqty+$belbfrqty+$belbitqty+$belbspnqty+$botbe02auqty+$botbe01auqty;
  $printcount = $beleprqty+$begrprqty+$bechprqty+$beviprqty+$bepuprqty+$beieprqty+$bemtprqty+$beusprqty+$betdiprqty+$betduprqty+$begmprqty+$bertprqty+$betlprqty+$beinprqty+$becoprqty+$becdprqty+$bewiprqty+$beboprqty+$begrminiprqty+$bechminiprqty+$beviminiprqty+$bepuminiprqty;
  $specsubtotal = ($botbe02auqty*$botbe02auprice)+($botbe01auqty*$botbe01auprice);
#  $specsubtotal = (($beleprqty*$beleprprice)+($belbengqty*$belbengprice)+($belbfrqty*$belbfrprice)+($belbitqty*$belbitprice)+($belbspnqty*$belbspnprice)+($begrprqty*$begrprprice)+($bechprqty*$bechprprice)+($beviprqty*$beviprprice)+($bepuprqty*$bepuprprice)+($beieprqty*$beieprprice)+($bemtprqty*$bemtprprice)+($beusprqty*$beusprprice)+($betdiprqty*$betdiprprice)+($betduprqty*$betduprprice)+($begmprqty*$begmprprice)+($bertprqty*$bertprprice)+($betlprqty*$betlprprice)+($beinprqty*$beinprprice)+($becoprqty*$becoprprice)+($becdprqty*$becdprprice)+($bewiprpqty*$bewiprprice)+($beboprqty*$beboprprice)+($begrminiprprice*$begrminiprqty)+($bechminiprprice*$bechminiprqty)+($beviminiprprice*$beviminiprqty)+($bepuminiprprice*$bepuminiprqty));
  
#  $specsubtotal = $specsubtotal+($begrminiprqty*$begrminiprprice)+($bechminiprqty+$bechminiprprice)+($beviminiprqty*$beviminiprprice)+($bepuminiprqty+$bepuminiprprice);

  ### Bridge Books & Audios ###

  $pbcount = $ksaucdqty+$ksaucassqty+$apauqty+$avauqty+$odauqty+$bedvdqty+$bepbqty+$beauqty+$bbpbqty+$bbauqty+$fepbqty+$feauqty+$fbpbqty+$fbauqty+$sixgauqty+$esauqty+$goauqty+$hlauqty+$wo15pbqty+$wo16pbqty+$wo17pbqty+$wo18pbqty+($mepbsetqty*10)+($meausetqty*10)+$me01pbqty+$me01auqty+$me02pbqty+$me02auqty+$me03pbqty+$me03auqty+$me04pbqty+$me04auqty+$me05pbqty+$me05auqty+$me06pbqty+$me06auqty+$me07pbqty+$me07auqty+$me08pbqty+$me08auqty+$me09pbqty+$me09auqty+$me10pbqty+$me10auqty+$wo14pbqty+$wo13pbqty+$wo12pbqty+$wo11pbqty+$wo10pbqty+$wo9pbqty+$wo8pbqty+$wo7pbqty+$wo6pbqty+$wo5pbqty+$wo4pbqty+$wo3pbqty+$wo2pbqty+$wo1pbqty+$ssauqty+$ahauqty+$tyauqty;
  $hccount = $aphcqty+$avhcqty+$odhcqty+$tyhcqty+$sshcqty+$ahhcqty+$lrhbibqty+$wobesthcqty+$wotfpackqty+$behc20qty+$mstqty;
  $subtotal = (($wo15pbqty * $wo15pbprice) + ($wo16pbqty * $wo16pbprice) + ($wobesthcqty * $wobesthcprice)  + ($wo17pbqty * $wo17pbprice)  + ($wo18pbqty * $wo18pbprice)   + ($wo19pbqty * $wo19pbprice) + ($wo14pbqty * $wo14pbprice) + ($wo13pbqty * $wo13pbprice) + ($wo12pbqty * $wo12pbprice) + ($wo11pbqty * $wo11pbprice) + ($wo10pbqty * $wo10pbprice) + ($wo9pbqty * $wo9pbprice) + ($wo8pbqty * $wo8pbprice) + ($wo7pbqty * $wo7pbprice)  + ($wo6pbqty * $wo6pbprice) + ($wo5pbqty * $wo5pbprice) + ($wo4pbqty * $wo4pbprice) + ($wo3pbqty * $wo3pbprice) + ($wo2pbqty * $wo2pbprice) + ($wo1pbqty * $wo1pbprice)+ ($bepbqty * $bepbprice) + ($behc20qty * $behc20price)+ ($bedvdqty * $bedvdprice)+ ($beauqty * $beauprice) + ($bbpbqty * $bbpbprice) + ($bbauqty * $bbauprice) + ($fepbqty * $fepbprice) + ($feauqty * $feauprice) + ($fbpbqty * $fbpbprice) + ($fbauqty * $fbauprice) + ($aphcqty * $aphcprice) + ($apauqty * $apauprice) + ($avhcqty * $avhcprice) + ($avauqty * $avauprice) + ($odhcqty * $odhcprice) + ($odauqty * $odauprice) + ($tyhcqty * $tyhcprice) + ($tyauqty * $tyauprice) + ($sshcqty * $sshcprice) + ($ssauqty * $ssauprice) + ($ahhcqty * $ahhcprice) + ($ahauqty * $ahquprice) + ($lrhbibqty * $lrhbibprice) + ($mepbsetqty * $mepbsetprice) + ($meausetqty * $meausetprice) + ($me01pbqty * $me01pbprice) + ($me01auqty * $me01auprice) + ($me02pbqty * $me02pbprice) + ($me02auqty * $me02auprice) + ($me03auqty * $me03auprice) +  ($me03pbqty * $me03pbprice) + ($me04pbqty * $me04pbprice) + ($me04auqty * $me04auprice) + ($me05pbqty * $me05pbprice) + ($me05auqty * $me05auprice) + ($me06pbqty * $me06pbprice) + ($me06auqty * $me06auprice) + ($me07pbqty * $me07pbprice) + ($me07auqty * $me07auprice) + ($me08pbqty * $me08pbprice) + ($me08auqty * $me08auprice) + ($me09pbqty * $me09pbprice) + ($me09auqty * $me09auprice) + ($me10pbqty * $me10pbprice) + ($me10auqty * $me10auprice) + ($wotfpackqty * $wotfpackprice)+ ($mstqty * $mstprice));
  $subtotal = $subtotal + (($ksaucdqty * $ksaucdprice) + ($ksaucassqty * $ksaucassprice) + ($sixgauqty * $sixgauprice) + ($esauqty * $esauprice) + ($goauqty * $goauprice) + ($hlauqty * $hlauprice));


  $subtotal = sprintf"%4.2f",$subtotal;
  $iprice = $subtotal - ($subtotal * 0.2);
  $iprice = sprintf"%4.2f",$iprice;


	if ($bedvdqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bedvdqty><INPUT TYPE=HIDDEN NAME=item value=bedvd></TD><TD ALIGN=LEFT>Battlefield Earth DVD</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bedvdqty*$bedvdprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($behc20qty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$behc20qty><INPUT TYPE=HIDDEN NAME=item value=behc20></TD><TD ALIGN=LEFT>Battlefield Earth 20th Anniversary Hardcover Edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($behc20qty*$behc20price)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($mstqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$mstqty><INPUT TYPE=HIDDEN NAME=item value=mst></TD><TD ALIGN=LEFT>Master Storyteller: An Illustrated Tour...</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($mstqty*$mstprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($ksaucdqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$ksaucdqty><INPUT TYPE=HIDDEN NAME=item value=ksaucd></TD><TD ALIGN=LEFT>The Kingslayer (compact disc)</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($ksaucdqty*$ksaucdprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($ksaucassqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$ksaucassqty><INPUT TYPE=HIDDEN NAME=item value=mst></TD><TD ALIGN=LEFT>The Kingslayer (cassette)</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($ksaucassqty*$ksaucassprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($bepbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bepbqty><INPUT TYPE=HIDDEN NAME=item value=bepb></TD><TD ALIGN=LEFT>Battlefield Earth paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bepbqty*$bepbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($beauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beauqty><INPUT TYPE=HIDDEN NAME=item value=beau></TD><TD ALIGN=LEFT>Battlefield Earth audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beauqty*$beauprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo19pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo19pbqty><INPUT TYPE=HIDDEN NAME=item value=wo19pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XIX paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo19pbqty*$wo19pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo18pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo18pbqty><INPUT TYPE=HIDDEN NAME=item value=wo18pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XVIII paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo18pbqty*$wo18pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo17pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo17pbqty><INPUT TYPE=HIDDEN NAME=item value=wo17pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XVII paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo17pbqty*$wo17pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wobesthcqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wobesthcqty><INPUT TYPE=HIDDEN NAME=item value=wobesthc></TD><TD ALIGN=LEFT>The Best of Writers of The Future trade paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wobesthcqty*$wobesthcprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo16pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo16pbqty><INPUT TYPE=HIDDEN NAME=item value=wo16pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XVI paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo16pbqty*$wo16pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo15pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo15pbqty><INPUT TYPE=HIDDEN NAME=item value=wo15pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XV paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo15pbqty*$wo15pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo14pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo14pbqty><INPUT TYPE=HIDDEN NAME=item value=wo14pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XIV paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo14pbqty*$wo14pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo13pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo13pbqty><INPUT TYPE=HIDDEN NAME=item value=wo13pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XIII paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo13pbqty*$wo13pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo12pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo12pbqty><INPUT TYPE=HIDDEN NAME=item value=wo12pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XII paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo12pbqty*$wo12pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo11pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo11pbqty><INPUT TYPE=HIDDEN NAME=item value=wo11pb></TD><TD ALIGN=LEFT>Writers of The Future Volume XI paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo11pbqty*$wo11pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo10pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo10pbqty><INPUT TYPE=HIDDEN NAME=item value=wo10pb></TD><TD ALIGN=LEFT>Writers of The Future Volume X paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo10pbqty*$wo10pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo9pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo9pbqty><INPUT TYPE=HIDDEN NAME=item value=wo9pb></TD><TD ALIGN=LEFT>Writers of The Future Volume IX paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo9pbqty*$wo9pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo8pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo8pbqty><INPUT TYPE=HIDDEN NAME=item value=wo8pb></TD><TD ALIGN=LEFT>Writers of The Future Volume VIII paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo8pbqty*$wo8pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo7pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo7pbqty><INPUT TYPE=HIDDEN NAME=item value=wo7pb></TD><TD ALIGN=LEFT>Writers of The Future Volume VII paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo7pbqty*$wo7pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo6pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo6pbqty><INPUT TYPE=HIDDEN NAME=item value=wo6pb></TD><TD ALIGN=LEFT>Writers of The Future Volume VI paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo6pbqty*$wo6pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo5pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo5pbqty><INPUT TYPE=HIDDEN NAME=item value=wo5pb></TD><TD ALIGN=LEFT>Writers of The Future Volume V paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo5pbqty*$wo5pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo4pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo4pbqty><INPUT TYPE=HIDDEN NAME=item value=wo4pb></TD><TD ALIGN=LEFT>Writers of The Future Volume IV paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo4pbqty*$wo4pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo3pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo3pbqty><INPUT TYPE=HIDDEN NAME=item value=wo3pb></TD><TD ALIGN=LEFT>Writers of The Future Volume III paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo3pbqty*$wo3pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo2pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo2pbqty><INPUT TYPE=HIDDEN NAME=item value=wo2pb></TD><TD ALIGN=LEFT>Writers of The Future Volume II paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo2pbqty*$wo2pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wo1pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wo1pbqty><INPUT TYPE=HIDDEN NAME=item value=wo1pb></TD><TD ALIGN=LEFT>Writers of The Future Volume I paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wo1pbqty*$wo1pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($wotfpackqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$wotfpackqty><INPUT TYPE=HIDDEN NAME=item value=wotfpack></TD><TD ALIGN=LEFT>Writers of the Future package (includes Writers of the Future Volumes I-XVIII & Ron The Writer: The Shaping of Popular Fiction)</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($wotfpackqty*$wotfpackprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($fepbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$fepbqty><INPUT TYPE=HIDDEN NAME=item value=fepb></TD><TD ALIGN=LEFT>Fear paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($fepbqty*$fepbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($feauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$feauqty><INPUT TYPE=HIDDEN NAME=item value=feau></TD><TD ALIGN=LEFT>Fear audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($feauqty*$feauprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($fbpbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$fbpbqty><INPUT TYPE=HIDDEN NAME=item value=fbpb></TD><TD ALIGN=LEFT>Final Blackout paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($fbpbqty*$fbpbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($fbauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$fbauqty><INPUT TYPE=HIDDEN NAME=item value=fbau></TD><TD ALIGN=LEFT>Final Blackout audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($fbauqty*$fbauprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($bbpbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bbpbqty><INPUT TYPE=HIDDEN NAME=item value=bbpb></TD><TD ALIGN=LEFT>Buckskin Brigades paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bbpbqty*$bbpbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($bbauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bbauqty><INPUT TYPE=HIDDEN NAME=item value=bbau></TD><TD ALIGN=LEFT>Buckskin Brigades audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bbauqty*$bbauprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($mepbsetqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$mepbsetqty><INPUT TYPE=HIDDEN NAME=item value=mepbset></TD><TD ALIGN=LEFT>Mission Earth paperback set</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($mepbsetqty*$mepbsetprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($meausetqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$meausetqty><INPUT TYPE=HIDDEN NAME=item value=meauset></TD><TD ALIGN=LEFT>Mission Earth audio set</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($meausetqty*$meausetprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me01pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me01pbqty><INPUT TYPE=HIDDEN NAME=item value=me01pb></TD><TD ALIGN=LEFT>Mission Earth Vol 1: The Invaders Plan paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me01pbqty*$me01pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me01auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me01auqty><INPUT TYPE=HIDDEN NAME=item value=me01au></TD><TD ALIGN=LEFT>Mission Earth Vol 1: The Invaders Plan audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me01auqty*$me01auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me02pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me02pbqty><INPUT TYPE=HIDDEN NAME=item value=me02pb></TD><TD ALIGN=LEFT>Mission Earth Vol 2: Black Genesis paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me02pbqty*$me02pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me02auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me02auqty><INPUT TYPE=HIDDEN NAME=item value=me02au></TD><TD ALIGN=LEFT>Mission Earth Vol 2: Black Genesis audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me02auqty*$me02auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me03pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me03pbqty><INPUT TYPE=HIDDEN NAME=item value=me03pb></TD><TD ALIGN=LEFT>Mission Earth Vol 3: The Enemy Within paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me03pbqty*$me03pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me03auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me03auqty><INPUT TYPE=HIDDEN NAME=item value=me03au></TD><TD ALIGN=LEFT>Mission Earth Vol 3: The Enemy Within audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me03auqty*$me03auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me04pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me04pbqty><INPUT TYPE=HIDDEN NAME=item value=me04pb></TD><TD ALIGN=LEFT>Mission Earth Vol 4: An Alien Affair paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me04pbqty*$me04pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me04auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me04auqty><INPUT TYPE=HIDDEN NAME=item value=me04au></TD><TD ALIGN=LEFT>Mission Earth Vol 4: An Alien Affair audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me04auqty*$me04auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me05pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me05pbqty><INPUT TYPE=HIDDEN NAME=item value=me05pb></TD><TD ALIGN=LEFT>Mission Earth Vol 5: Fortune of Fear paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me05pbqty*$me05pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me05auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me05auqty><INPUT TYPE=HIDDEN NAME=item value=me05au></TD><TD ALIGN=LEFT>Mission Earth Vol 5: Fortune of Fear audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me05auqty*$me05auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me06pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me06pbqty><INPUT TYPE=HIDDEN NAME=item value=me06pb></TD><TD ALIGN=LEFT>Mission Earth Vol 6: Death Quest paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me06pbqty*$me06pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me06auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me06auqty><INPUT TYPE=HIDDEN NAME=item value=me06au></TD><TD ALIGN=LEFT>Mission Earth Vol 6: Death Quest audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me06auqty*$me06auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me07pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me07pbqty><INPUT TYPE=HIDDEN NAME=item value=me07pb></TD><TD ALIGN=LEFT>Mission Earth Vol 7: Voyage of Vengeance paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me07pbqty*$me07pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me07auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me07auqty><INPUT TYPE=HIDDEN NAME=item value=me07au></TD><TD ALIGN=LEFT>Mission Earth Vol 7: Voyage of Vengeance audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me07auqty*$me07auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me08pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me08pbqty><INPUT TYPE=HIDDEN NAME=item value=me08pb></TD><TD ALIGN=LEFT>Mission Earth Vol 8: Disaster paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me08pbqty*$me08pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me08auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me08auqty><INPUT TYPE=HIDDEN NAME=item value=me08au></TD><TD ALIGN=LEFT>Mission Earth Vol 8: Disaster audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me08auqty*$me08auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me09pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me09pbqty><INPUT TYPE=HIDDEN NAME=item value=me09pb></TD><TD ALIGN=LEFT>Mission Earth Vol 9: Villainy Victorious paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me09pbqty*$me09pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me09auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me09auqty><INPUT TYPE=HIDDEN NAME=item value=me09au></TD><TD ALIGN=LEFT>Mission Earth Vol 9: Villainy Victorious audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me09auqty*$me09auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me10pbqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me10pbqty><INPUT TYPE=HIDDEN NAME=item value=me10pb></TD><TD ALIGN=LEFT>Mission Earth vol 10: The Doomed Planet paperback</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me10pbqty*$me10pbprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($me10auqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$me10auqty><INPUT TYPE=HIDDEN NAME=item value=me10au></TD><TD ALIGN=LEFT>Mission Earth vol 10: The Doomed Planet audio</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($me10auqty*$me10auprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($aphcqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$aphcqty><INPUT TYPE=HIDDEN NAME=item value=aphc></TD><TD ALIGN=LEFT>Ai! Pedrito! hardcover</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($aphcqty*$aphcprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($apauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$apauqty><INPUT TYPE=HIDDEN NAME=item value=apau></TD><TD ALIGN=LEFT>Ai! Pedrito! audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($apauqty*$apauprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($avhcqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$avhcqty><INPUT TYPE=HIDDEN NAME=item value=avhc></TD><TD ALIGN=LEFT>A Very Strange Trip hardcover</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($avhcqty*$avhcprice)*0.8;
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($avauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$avauqty><INPUT TYPE=HIDDEN NAME=item value=avau></TD><TD ALIGN=LEFT>A Very Strange Trip audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($avauqty*$avauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($odhcqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$odhcqty><INPUT TYPE=HIDDEN NAME=item value=odhc></TD><TD ALIGN=LEFT>Ole Doc Methuselah hardcover</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($odhcqty*$odhcprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($odauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$odauqty><INPUT TYPE=HIDDEN NAME=item value=odau></TD><TD ALIGN=LEFT>Ole Doc Methuselah audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($odauqty*$odauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($tyhcqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$tyhcqty><INPUT TYPE=HIDDEN NAME=item value=tyhc></TD><TD ALIGN=LEFT>Typewriter in the Sky hardcover</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($tyhcqty*$tyhcprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($tyauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$tyauqty><INPUT TYPE=HIDDEN NAME=item value=tyau></TD><TD ALIGN=LEFT>Typewriter in the Sky audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($tyauqty*$tyauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($sshcqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$sshcqty><INPUT TYPE=HIDDEN NAME=item value=sshc></TD><TD ALIGN=LEFT>Slaves of Sleep & The Masters of Sleep hardcover</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($sshcqty*$sshcprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($ssauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$ssauqty><INPUT TYPE=HIDDEN NAME=item value=ssau></TD><TD ALIGN=LEFT>Slaves of Sleep & The Masters of Sleep audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($ssauqty*$ssauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($ahhcqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$ahhcqty><INPUT TYPE=HIDDEN NAME=item value=ahhc></TD><TD ALIGN=LEFT>The Automagic Horse hardcover</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($ahhcqty*$ahhcprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($ahauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$ahauqty><INPUT TYPE=HIDDEN NAME=item value=ahau></TD><TD ALIGN=LEFT>The Automagic Horse audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($ahauqty*$ahauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($lrhbibqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$lrhbibqty><INPUT TYPE=HIDDEN NAME=item value=lrhbib></TD><TD ALIGN=LEFT>L. Ron Hubbard Fiction Bibliography hardcover</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($lrhbibqty*$lrhbibprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($sixgauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$sixgauqty><INPUT TYPE=HIDDEN NAME=item value=6gau></TD><TD ALIGN=LEFT>Six-Gun Cabellero audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($sixgauqty*$sixgauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($esauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$esauqty><INPUT TYPE=HIDDEN NAME=item value=esau></TD><TD ALIGN=LEFT>Empty Saddles audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($esauqty*$esauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($goauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$goauqty><INPUT TYPE=HIDDEN NAME=item value=goau></TD><TD ALIGN=LEFT>Guns of Mark Jardine audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($goauqty*$goauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}
	if ($hlauqty > 0) {
		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$hlauqty><INPUT TYPE=HIDDEN NAME=item value=hlau></TD><TD ALIGN=LEFT>Hot Lead Payoff audio</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($hlauqty*$hlauprice)*0.8 . "</TD></TR>";
		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}

#	if ($belbengqty > 0) {
#		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$belbengqty><INPUT TYPE=HIDDEN NAME=item value=belbeng></TD><TD ALIGN=LEFT>Battlefield Earth leatherbound</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",($belbengqty*$belbengprice)*0.8 . "</TD></TR>";
#		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($belbfrqty > 0) {
#		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$belbfrqty><INPUT TYPE=HIDDEN NAME=item value=belbfr></TD><TD ALIGN=LEFT>Battlefield Earth leatherbound French Edition</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",$belbfrqty*$belbfrprice . "</TD></TR>";
#		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($belbitqty > 0) {
#		$itemtext = $itemtext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$belbitqty><INPUT TYPE=HIDDEN NAME=item value=belbit></TD><TD ALIGN=LEFT>Battlefield Earth leatherbound Italian</TD><TD ALIGN=RIGHT>\$" . sprintf"%4.2f",$belbitqty*$belbitprice . "</TD></TR>";
#		$itemtext = $itemtext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#
#
#	$subtotal=$subtotal+$specsubtotal;
#	$iprice=$iprice+$specsubtotal;
#	$totaltext = "<TR><TD></TD><TD ALIGN=LEFT>Subtotal:</TD><TD ALIGN=RIGHT>\$" . $subtotal . "</TD></TR>";	
	$totaltext = $totaltext . " <TR><TD></TD><TD ALIGN=LEFT>Subtotal:</TD><TD ALIGN=RIGHT>\$" . $iprice . "</TD></TR>";

  ### Leatherbounds & Prints ###

	if ($botbe01auqty > 0) {
		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$botbe01auqty><INPUT TYPE=HIDDEN NAME=item value=botbe01au></TD><TD ALIGN=LEFT>Battlefield Earth unabridged audio <BR><B>Books on Tape&reg;</B> edition Part 1</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($botbe01auqty*$botbe01auprice);
		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}

	if ($botbe02auqty > 0) {
		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$botbe02auqty><INPUT TYPE=HIDDEN NAME=item value=botbe02au></TD><TD ALIGN=LEFT>Battlefield Earth unabridged audio <BR><B>Books on Tape&reg;</B> edition Part 2</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($botbe02auqty*$botbe02auprice);
		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
	}


#	if ($belbengqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$belbengqty><INPUT TYPE=HIDDEN NAME=item value=belbeng></TD><TD ALIGN=LEFT>Battlefield Earth leatherbound</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($belbengqty*$belbengprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($belbfrqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$belbfrqty><INPUT TYPE=HIDDEN NAME=item value=belbfr></TD><TD ALIGN=LEFT>Battlefield Earth leatherbound French edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($belbfrqty*$belbfrprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($belbitqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$belbitqty><INPUT TYPE=HIDDEN NAME=item value=belbit></TD><TD ALIGN=LEFT>Battlefield Earth leatherbound Italian edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($belbitqty*$belbitprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($belbspnqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$belbspnqty><INPUT TYPE=HIDDEN NAME=item value=belbspn></TD><TD ALIGN=LEFT>Battlefield Earth leatherbound Spanish edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($belbspnqty*$belbspnprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($beleprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beleprqty><INPUT TYPE=HIDDEN NAME=item value=belepr></TD><TD ALIGN=LEFT>The Legend</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beleprqty*$beleprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($begrprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$begrprqty><INPUT TYPE=HIDDEN NAME=item value=begrpr></TD><TD ALIGN=LEFT>Glencannon&#146;s Run</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($begrprqty*$begrprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($bechprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bechprqty><INPUT TYPE=HIDDEN NAME=item value=bechpr></TD><TD ALIGN=LEFT>Challenge</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bechprqty*$bechprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($beviprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beviprqty><INPUT TYPE=HIDDEN NAME=item value=bevipr></TD><TD ALIGN=LEFT>Vision</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beviprqty*$beviprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($bepuprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bepuprqty><INPUT TYPE=HIDDEN NAME=item value=bepupr></TD><TD ALIGN=LEFT>Pursuit</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bepuprqty*$bepuprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($beieprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beieprqty><INPUT TYPE=HIDDEN NAME=item value=beiepr></TD><TD ALIGN=LEFT>Jonnie Goodboy Tyler, International Edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beieprqty*$beieprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($bemtprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bemtprqty><INPUT TYPE=HIDDEN NAME=item value=bemtpr></TD><TD ALIGN=LEFT>Man, The Endangered Species</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bemtprqty*$bemtprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($beusprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beusprqty><INPUT TYPE=HIDDEN NAME=item value=beuspr></TD><TD ALIGN=LEFT>Jonnie Goodboy Tyler, U.S. Edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beusprqty*$beusprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($betdiprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$betdiprqty><INPUT TYPE=HIDDEN NAME=item value=betdipr></TD><TD ALIGN=LEFT>The Drone, International Edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($betdiprqty*$betdiprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($betduprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$betduprqty><INPUT TYPE=HIDDEN NAME=item value=betdupr></TD><TD ALIGN=LEFT>The Drone, U.S. Edition</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($betduprqty*$betduprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($begmprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$begmprqty><INPUT TYPE=HIDDEN NAME=item value=begmpr></TD><TD ALIGN=LEFT>Gold Mining Disaster</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($begmprqty*$begmprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($bertprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bertprqty><INPUT TYPE=HIDDEN NAME=item value=bertpr></TD><TD ALIGN=LEFT>Robert The Fox</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bertprqty*$bertprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($betlprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$betlprqty><INPUT TYPE=HIDDEN NAME=item value=betlpr></TD><TD ALIGN=LEFT>The Learning Machine</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($betlprqty*$betlprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($beinprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beinprqty><INPUT TYPE=HIDDEN NAME=item value=beinpr></TD><TD ALIGN=LEFT>Insurrection</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beinprqty*$beinprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($becoprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$becoprqty><INPUT TYPE=HIDDEN NAME=item value=becopr></TD><TD ALIGN=LEFT>Countdown</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($becoprqty*$becoprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($becdprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$becdprqty><INPUT TYPE=HIDDEN NAME=item value=becdpr></TD><TD ALIGN=LEFT>Chrissie Dreams of Rescue</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($becdprqty*$becdprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($bewiprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bewiprqty><INPUT TYPE=HIDDEN NAME=item value=bewipr></TD><TD ALIGN=LEFT>Windsplitter</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bewiprqty*$bewiprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($beboprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beboprqty><INPUT TYPE=HIDDEN NAME=item value=bebopr></TD><TD ALIGN=LEFT>Battle of Edinburgh</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beboprqty*$beboprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($begrminiprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$begrminiprqty><INPUT TYPE=HIDDEN NAME=item value=begrminipr></TD><TD ALIGN=LEFT>Glencannon&#146;s Run miniature</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($begrminiprqty*$begrminiprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($bechminiprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bechminiprqty><INPUT TYPE=HIDDEN NAME=item value=bechminipr></TD><TD ALIGN=LEFT>Challenge miniature</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bechminiprqty*$bechminiprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($beviminiprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$beviminiprqty><INPUT TYPE=HIDDEN NAME=item value=beviminipr></TD><TD ALIGN=LEFT>Vision miniature</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($beviminiprqty*$beviminiprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#	if ($bepuminiprqty > 0) {
#		$itemcolltext = $itemcolltext . "<TR><TD ALIGN=CENTER><form method=post action=http://www.authorservicesinc.com/cgi/add.pl><input TYPE=text NAME=qty SIZE=2 MAXLENGTH=4 VALUE=$bepuminiprqty><INPUT TYPE=HIDDEN NAME=item value=bepuminipr></TD><TD ALIGN=LEFT>Pursuit miniature</TD><TD ALIGN=right>\$" . sprintf"%4.2f",($bepuminiprqty*$bepuminiprprice);
#		$itemcolltext = $itemcolltext . "</TD><TD><input type=submit name=button value=Update></TD></TR></FORM>";
#	}
#
#
	$spectotaltext = "<TR><TD></TD><TD ALIGN=LEFT>Subtotal:</TD><TD ALIGN=RIGHT>\$" . $specsubtotal . "</TD></TR>";	




  ########## Send Basket Page ##########
$cartsnd = $cartbpifrm;
  
  if (($lbcount+$printcount > 0) && ($pbcount+hccount == 0)) { 
	$itemtext=$itemcolltext; 
	$totaltext=$spectotaltext; 
	$cartsnd=$cartfrm;
	}

    
  if (($pbcount == 0) && ($hccount == 0) && ($lbcount == 0) && ($printcount == 0)) { 	print "Location: http://www.authorservicesinc.com/order/empty\.html\n\n"; exit(1); }

    if (open(CARTSND, $cartsnd) != 1) {  # open the file to send
      print "Location: http://www.authorservicesinc.com/order/error\.html\n\n";
      exit(1);
      }
    else{  # if openable then 
      print "Content-type: text/html\n\n";
      while(<CARTSND>) {  # for each line in the file:
        $inln = $_;
	if ($inln =~ "<!--0-->") {
		if (($lbcount+$printcount > 0) && ($pbcount+$hccount > 0)) {
		$inln = "<B><I>Note: This order form will process your book and/or audio selections delivered by L. Ron Hubbard's Publisher, Bridge Publications, Inc. After the first form is completed, a second order form will be generated for your Battlefield Earth \"Books on Tape\&reg\;\" selections. </I></B><P>";

#		$inln = "<B><I>Note: Your order for the Battlefield Earth unabridged audio \"Books on Tape&reg;\" edition will not appear below as it is ordered separately. After your order as below is processed, a second order form will be generated. </I></B><P>";
		}
	}
	if ($inln =~ "<!--1-->") {
		$inln = $itemtext;
        }
	if ($inln =~ "<!--2-->") {
		$inln = $totaltext;
	}
#	if ($inln =~ "<!--2-3-->") {
#		$inln = $itemcolltext;
#
#	}
#	if ($inln =~ "<!--3-->") {
#		$inln = $spectotaltext;
#	}
#	if ($inln =~ "<!--3-4-->") {
#		if ($paymethod eq "check") {
#			print "Please mail your check or money order to the Bridge Publications Mail Order department, at the address below.";
#		}
#	}
#
	if ($inln =~ "<!--4-->") {
#		print "<input type=hidden name=\"lname\" value=\"$UsrLstNm\">\n";
#		print "<input type=hidden name=\"fname\" value=\"$UsrFstNm\">\n";
#		print "<input type=hidden name=\"address\" value=\"$UsrAddr\">\n";
#		print "<input type=hidden name=\"city\" value=\"$UsrCity\">\n";
#		print "<input type=hidden name=\"state\" value=\"$UsrState\">\n";
#		print "<input type=hidden name=\"country\" value=\"$UsrCntry\">\n";
#		print "<input type=hidden name=\"prov\" value=\"$UsrProv\">\n";
#		print "<input type=hidden name=\"zip\" value=\"$UsrZip\">\n";
#		print "<input type=hidden name=\"phh\" value=\"$UsrPhnHm\">\n";
#		print "<input type=hidden name=\"phw\" value=\"$UsrPhnWk\">\n";
#		print "<input type=hidden name=\"email\" value=\"$UsrEmailN\@$UsrEmail\">\n";
		if ($lbcount+$printcount > 0) { print "<input type=hidden name=\"collector\" value=\"true\">\n"; }
		print "<input type=hidden name=\"quantity.botbe01au\" value=\"$botbe01auqty\">\n";
		print "<input type=hidden name=\"quantity.botbe02au\" value=\"$botbe02auqty\">\n";
#		print "<input type=hidden name=\"quantity.belbeng\" value=\"$belbengqty\">\n";
#		print "<input type=hidden name=\"quantity.belbfr\" value=\"$belbfrqty\">\n";
#		print "<input type=hidden name=\"quantity.belbit\" value=\"$belbitqty\">\n";
#		print "<input type=hidden name=\"quantity.belbspn\" value=\"$belbspnqty\">\n";
#		print "<input type=hidden name=\"quantity.belepr\" value=\"$beleprqty\">\n";
#		print "<input type=hidden name=\"quantity.begrpr\" value=\"$begrprqty\">\n";
#		print "<input type=hidden name=\"quantity.bechpr\" value=\"$bechprqty\">\n";
#		print "<input type=hidden name=\"quantity.bevipr\" value=\"$beviprqty\">\n";
#		print "<input type=hidden name=\"quantity.bepupr\" value=\"$bepuprqty\">\n";
#		print "<input type=hidden name=\"quantity.beiepr\" value=\"$beieprqty\">\n";
#		print "<input type=hidden name=\"quantity.bemtpr\" value=\"$bemtprqty\">\n";
#		print "<input type=hidden name=\"quantity.beuspr\" value=\"$beusprqty\">\n";
#		print "<input type=hidden name=\"quantity.betdipr\" value=\"$betdiprqty\">\n";
#		print "<input type=hidden name=\"quantity.betdupr\" value=\"$betduprqty\">\n";
#		print "<input type=hidden name=\"quantity.begmpr\" value=\"$begmprqty\">\n";
#		print "<input type=hidden name=\"quantity.bertpr\" value=\"$bertprqty\">\n";
#		print "<input type=hidden name=\"quantity.betlpr\" value=\"$betlprqty\">\n";
#		print "<input type=hidden name=\"quantity.beinpr\" value=\"$beinprqty\">\n";
#		print "<input type=hidden name=\"quantity.becopr\" value=\"$becoprqty\">\n";
#		print "<input type=hidden name=\"quantity.becdpr\" value=\"$becdprqty\">\n";
#		print "<input type=hidden name=\"quantity.bewipr\" value=\"$bewipr\">\n";
#		print "<input type=hidden name=\"quantity.bebopr\" value=\"$beboprqty\">\n";
#		print "<input type=hidden name=\"quantity.begrminipr\" value=\"$begrminiprqty\">\n";
#		print "<input type=hidden name=\"quantity.bechminipr\" value=\"$bechminiprqty\">\n";
#		print "<input type=hidden name=\"quantity.beviminipr\" value=\"$beviminiprqty\">\n";
#		print "<input type=hidden name=\"quantity.bepuminipr\" value=\"$bepuminiprqty\">\n";
		print "<input type=hidden name=\"quantity.bedvd\" value=\"$bedvdqty\">\n";
		print "<input type=hidden name=\"quantity.ksaucd\" value=\"$ksaucdqty\">\n";
		print "<input type=hidden name=\"quantity.ksaucass\" value=\"$ksaucassqty\">\n";
		print "<input type=hidden name=\"quantity.behc20\" value=\"$behc20qty\">\n";
		print "<input type=hidden name=\"quantity.mst\" value=\"$mstqty\">\n";
		print "<input type=hidden name=\"quantity.bepb\" value=\"$bepbqty\">\n";
		print "<input type=hidden name=\"quantity.beaudio\" value=\"$beauqty\">\n";
		print "<input type=hidden name=\"quantity.bbpb\" value=\"$bbpbqty\">\n";
		print "<input type=hidden name=\"quantity.bbaudio\" value=\"$bbauqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxix\" value=\"$wo19pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxviii\" value=\"$wo18pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxvii\" value=\"$wo17pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfbest\" value=\"$wobesthcqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxvi\" value=\"$wo16pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxv\" value=\"$wo15pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxiv\" value=\"$wo14pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxiii\" value=\"$wo13pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxii\" value=\"$wo12pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfxi\" value=\"$wo11pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfx\" value=\"$wo10pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfix\" value=\"$wo9pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfviii\" value=\"$wo8pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfvii\" value=\"$wo7pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfvi\" value=\"$wo6pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfv\" value=\"$wo5pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfiv\" value=\"$wo4pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfiii\" value=\"$wo3pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfii\" value=\"$wo2pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfi\" value=\"$wo1pbqty\">\n";
		print "<input type=hidden name=\"quantity.wotfpack\" value=\"$wotfpackqty\">\n";
		print "<input type=hidden name=\"quantity.fearpb\" value=\"$fepbqty\">\n";
		print "<input type=hidden name=\"quantity.fearaudio\" value=\"$feauqty\">\n";
		print "<input type=hidden name=\"quantity.finalbpb\" value=\"$fbpbqty\">\n";
		print "<input type=hidden name=\"quantity.finalbaudio\" value=\"$fbauqty\">\n";
		print "<input type=hidden name=\"quantity.pedrito\" value=\"$aphcqty\">\n";
		print "<input type=hidden name=\"quantity.pedritoaudio\" value=\"$apauqty\">\n";
		print "<input type=hidden name=\"quantity.avst\" value=\"$avhcqty\">\n";
		print "<input type=hidden name=\"quantity.avstaudio\" value=\"$avauqty\">\n";
		print "<input type=hidden name=\"quantity.ty\" value=\"$tyhcqty\">\n";
		print "<input type=hidden name=\"quantity.tyaudio\" value=\"$tyauqty\">\n";
		print "<input type=hidden name=\"quantity.ss\" value=\"$sshcqty\">\n";
		print "<input type=hidden name=\"quantity.ssaudio\" value=\"$ssauqty\">\n";
		print "<input type=hidden name=\"quantity.ah\" value=\"$ahhcqty\">\n";
		print "<input type=hidden name=\"quantity.ahaudio\" value=\"$ahauqty\">\n";
		print "<input type=hidden name=\"quantity.lrhbib\" value=\"$lrhbibqty\">\n";
		print "<input type=hidden name=\"quantity.oledoc\" value=\"$odhcqty\">\n";
		print "<input type=hidden name=\"quantity.oledocaudio\" value=\"$odauqty\">\n";
		print "<input type=hidden name=\"quantity.sixgau\" value=\"$sixgauqty\">\n";
		print "<input type=hidden name=\"quantity.esau\" value=\"$esauqty\">\n";
		print "<input type=hidden name=\"quantity.goau\" value=\"$goauqty\">\n";
		print "<input type=hidden name=\"quantity.hlau\" value=\"$hlauqty\">\n";
		print "<input type=hidden name=\"quantity.meset\" value=\"$mepbsetqty\">\n";
		print "<input type=hidden name=\"quantity.mesetaudio\" value=\"$meausetqty\">\n";
		print "<input type=hidden name=\"quantity.mevol1\" value=\"$me01pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol1audio\" value=\"$me01auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol2\" value=\"$me02pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol2audio\" value=\"$me02auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol3\" value=\"$me03pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol3audio\" value=\"$me03auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol4\" value=\"$me04pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol4audio\" value=\"$me04auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol5\" value=\"$me05pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol5audio\" value=\"$me05auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol6\" value=\"$me06pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol6audio\" value=\"$me06auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol7\" value=\"$me07pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol7audio\" value=\"$me07auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol8\" value=\"$me08pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol8audio\" value=\"$me08auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol9\" value=\"$me09pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol9audio\" value=\"$me09auqty\">\n";
		print "<input type=hidden name=\"quantity.mevol10\" value=\"$me10pbqty\">\n";
		print "<input type=hidden name=\"quantity.mevol10audio\" value=\"$me10auqty\">\n";
#		print "<input type=hidden name=\"shipping\" value=\"$shipmethod\">\n";
#		print "<input type=hidden name=\"card\" value=\"$ccnum\">\n";
#		print "<input type=hidden name=\"expire\" value=\"$ccexp\">\n";
#		print "<input type=hidden name=\"payment\" value=\"$paymethod\">\n";
		print "<input type=hidden name=\"subtotal\" value=\"$subtotal\">\n";
		print "<input type=hidden name=\"iprice\" value=\"$iprice\">\n";
		print "<input type=hidden name=\"ref\" value=\"$ref\">\n";
#		print "<input type=hidden name=\"tax\" value=\"$tax\">\n";
#		print "<input type=hidden name=\"ship\" value=\"$ship\">\n";
#		print "<input type=hidden name=\"total\" value=\"$total\">\n";
	}
#	if (($inln =~ "<!--5-->") && ($baddomain !~ 1) && ($UsrEmail ne "")) {
#		print "The email address you entered was: $UsrEmailN\@$UsrEmail\n<BR><B>Important: Make sure your email address is correct so you can be contacted about your order.</B><P>";
#	}
	print "$inln\n";
      }

      close(CARTSND);  # close the file being sent
    }