home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / Sales_by_Product_Graph.asp < prev    next >
Text File  |  1996-10-28  |  442b  |  18 lines
  1. <%
  2.   Response.ContentType = "text/plain"
  3.   Set RS = Conn.Execute("{Call SalesByProduct}")
  4. %>11
  5. 6
  6. 2    Units    Sales
  7. <%
  8.   Do While Not RS.EOF
  9.     ProdName = RS("ProductName")
  10.     If Len(ProdName) > 8 Then
  11.       ProdName = Left(ProdName, 6) & ".."
  12.     End If
  13.     Response.Write ProdName & Chr(9) & _
  14.                    RS("Total Units") & Chr(9) & _
  15.                    RS("Total Sales") & Chr(13) & Chr(10)
  16.     RS.MoveNext
  17.   Loop
  18. %>