<%
H*' --------------------------------------------------------------------------------
H*' List of product 
H*' --------------------------------------------------------------------------------
F*Filename+IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++++++Comments++++++++++++
Fproduct1  IF A E           K disk      
D*Name++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++++
D i               s              4B 0 
C/free
   *inlr = *ON;
//' first the html header and the table to put the data into
//' --------------------------------------------------------

%><html>
<Head>
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  <link rel="stylesheet" type="text/css" href="/System/Styles/IceBreak.css"/>
</Head> 
<body style="margin:0">
 <table>

  <thead>
   <tr>
     <th>Product Key</th>
     <th>Product ID</th>
     <th>Description</th>
     <th>Manufacturer ID</th>
     <th>Price</th>
     <th>Stock Count</th>
     <th>Stock Date</th>
   </tr>
  </thead>
<%
  //' Now reload the list, e.g. Set lower limit with *loval is the first record 
  //' then repeat reading until end-of-file or counter exhausted
  //' -------------------------------------------------------------------------
	MANUID = qryStr('MANUID');
	setll MANUID PRODUCTR;
	read PRODUCTR;  
	i = 0;                                                                   
	dow (not %eof(product1) and i < 200) ; 
		i = i + 1; 

%><tr>
   <td nowrap align="right"><% = %char(PRODKEY) %></td>
   <td><% = PRODID %></td>
   <td><% = DESC %></td>
   <td><% = MANUID %></td>
   <td nowrap align="right"><% = %char(PRICE) %></td>
   <td nowrap align="right"><% = %char(STOCKCNT) %></td>
   <td nowrap align="right"><% = %char(STOCKDATE) %></td>
  </tr>
<%
		reade MANUID PRODUCTR;  
  EndDo;                                                                          
%></table>
</html>

