home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / Looping_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  1.2 KB  |  76 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%  Option Explicit        %>
  3.  
  4.  
  5. <HTML>
  6.     <HEAD>
  7.         <TITLE>Looping</TITLE>
  8.     </HEAD>
  9.  
  10.     <BODY BGCOLOR="White" topmargin="10" leftmargin="10">
  11.  
  12.  
  13.         <!-- Display Header -->
  14.  
  15.         <font size="4" face="Arial, Helvetica">
  16.         <b>Looping with ASP</b></font><br>
  17.       
  18.         <hr size="1" color="#000000">
  19.  
  20.         
  21.         <%
  22.             ' Index Counter
  23.             Dim i
  24.         %>
  25.  
  26.  
  27.         <!-- Looping with a for loop -->
  28.         
  29.         <% for i = 1 to 5 %>
  30.  
  31.             <FONT SIZE=<% = i %>>
  32.  
  33.             Hello World with a For Loop!<BR>
  34.             </FONT>
  35.         
  36.         <% next %>
  37.  
  38.         <hr>
  39.  
  40.  
  41.         <!-- Looping with a while loop -->
  42.  
  43.         <% i = 1
  44.  
  45.            while (i < 6) %>
  46.     
  47.                 <FONT SIZE=<% = i %>>
  48.  
  49.                 Hello World with a While Loop!<BR>
  50.                 </FONT>
  51.     
  52.                 <% i = i+1 %>
  53.  
  54.            <% wend %>
  55.  
  56.         <hr>
  57.  
  58.  
  59.         <!-- Looping with a do..while loop -->
  60.  
  61.         <% i = 1
  62.  
  63.            do %>
  64.     
  65.                 <FONT SIZE=<% = i %>>
  66.  
  67.                 Hello World with a Do..While Loop!<BR>
  68.                 </FONT>
  69.  
  70.                 <% i = i+1 %>
  71.  
  72.            <% loop while (i < 6) %>
  73.  
  74.     </BODY>
  75. </HTML>
  76.