home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch22 / allprods.asp next >
Encoding:
Text File  |  1998-07-13  |  628 b   |  28 lines
  1. <HTML>
  2. <% 
  3. Set DBObj = Server.CreateObject("ADODB.Connection")  
  4. DBObj.Open "NWindDB"
  5.  
  6. SQLQuery = "SELECT CategoryID, CategoryName FROM Categories"
  7. Set RSCategories = DBObj.Execute(SQLQuery) 
  8. %>
  9.  
  10. <CENTER>
  11. <H1>List Of Product Categories</H1>
  12. </CENTER>
  13.  
  14. <TABLE> 
  15. <% Do While Not RSCategories.EOF %>
  16.   <TR>
  17.   <TD> <FONT FACE="Verdana" SIZE=2> 
  18.     <% CategoryName = RSCategories("CategoryName") %>
  19.     <A HREF="/ProdCat.asp?CategoryID=<% =RSCategories("CategoryID") %>&CategoryName=<% =CategoryName  %> "> <% = CategoryName %> </A>
  20.     </FONT>
  21.   </TD>
  22.   </TR>
  23. <%
  24. RSCategories.MoveNext 
  25. Loop 
  26. %>
  27.  
  28. </HTML>