home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch38 / TOC_Example.asp < prev    next >
Encoding:
Text File  |  1997-09-21  |  473 b   |  20 lines
  1. <HTML>
  2. <HEAD><TITLE>Table of Contents</TITLE></HEAD>
  3. <BODY>
  4. <% Set Content=Server.CreateObject("MSWC.NextLink") %>
  5. <TABLE>
  6. <% For j = 1 to Content.GetListCount("URL_List.txt") %>
  7.   <TR>
  8.     <TD>
  9.      <STRONG><%=Content.GetNthDescription("URL_List.txt",j)%></STRONG>
  10.     </TD>
  11.     <TD>
  12.      <a href="<%=Content.GetNthURL("URL_List.txt",j)%>">
  13.         <%=Content.GetNthURL("URL_List.txt",j)%>
  14.      </a>
  15.     </TD>
  16.   </TR>
  17. <% Next %>
  18. </TABLE>
  19. </BODY>
  20. </HTML>