home *** CD-ROM | disk | FTP | other *** search
/ Teach Yourself CGI Programming with Perl in a Week / CGIPROGRAMMINGPERL.iso / booksrc / 07cgil08.cgi < prev    next >
Encoding:
Text File  |  1995-12-08  |  1.6 KB  |  65 lines
  1. #! /usr/local/bin/perl
  2. push (@INC, "/usr/local/business/http/accn.com/cgi-bin");
  3. require("cgi-lib.pl");
  4. print &PrintHeader;
  5. &ReadParse(*customer_data);
  6.  
  7. print <<"EOT";
  8. <html>
  9. <head><Title>Leading Rein Horse Supplies Clippers</title></head>
  10. <body>
  11.  
  12. <FORM METHOD=POST ACTION="/leading-rein/order.cgi">
  13. <image src=images/dadpi_15.jpg align=left>
  14.  
  15. <font size=+2> These durable Rechargeable Cordless Clippers from Oster 
  16. are specially priced this week 
  17. for only \$69.95. </font><hr noshade><br>
  18. <FORM METHOD=POST ACTION="/leading-rein/order.cgi">
  19. <table border>
  20. <th> Quantity <th>Regular Price<th>Sale Price<tr>
  21. <td> <input type=text size=2 name="Oster RL-Clippers">
  22. <td> \$97.95 <td>\$69.95<tr>
  23. <tr></table>
  24. </FORM>
  25. <br clear=left>
  26. <br>
  27. <FORM METHOD=POST ACTION="/leading-rein/order.cgi">
  28.  
  29. <table border>
  30. <td>
  31. Qty
  32. <tr>
  33.  
  34. <td rowsize=2><input type=text size=2 name=stirrup_1a >
  35. <td><image src=images/dadp2_11.jpg align=left>
  36. <td> <font size=+2>Vac'n Blo Large Animal Groomer</font>
  37. <p>Heavy duty 4.0 hp model makes grooming faster and easier.
  38. Includes 12 foot hose, three piece brush and comb set.
  39. <tr>
  40. <td><td>. \$269.95  .<td><tr>
  41. </FORM>
  42. </table>
  43.  
  44. <br clear=left >
  45. <br>
  46. <image src=images/dadp2_13.jpg align=left>
  47. <br clear=left >
  48. <br>
  49. <image src=images/dadp2_15.jpg align=left>
  50. <br clear=left >
  51. <br>
  52. <image src=images/dadp2_19.jpg align=left>
  53. </FORM>
  54. <br clear=left >
  55. <hr>
  56. <A HREF="http://www.accn.com/leading-rein/index.cgi?unique_id=$customer_data{'unique_id'}"> 
  57.   <img alt="The Leading Rein " 
  58.   src="/leading-rein/images/home.gif" border=1 A>  
  59.  
  60. </body>
  61. </html>
  62.  
  63. EOT
  64.  
  65.