*************** EEAJS\EasyEx\HelloWo\   Write\   Program\
*************** HelloWo1.ASP ***************
<%
   Response.Write (   "Hello World..."   )
%>
*************** HelloWo5.ASP ***************
<%
   Response.Write (   "Hello World....."  &  "<BR>"  &  vbCRLF   )
   Response.Write (   "Hello World....."  &  "<BR>"  &  vbCRLF   )
   Response.Write (   "Hello World....."  &  "<BR>"  &  vbCRLF   )
   Response.Write (   "Hello World....."  &  "<BR>"  &  vbCRLF   )
   Response.Write (   "Hello World....."  &  "<BR>"  &  vbCRLF   )
%>
*************** HelloWo9.ASP ***************
<%
   DIM  i

   '----- LOOP
   FOR i = 1 TO 9
      Response.Write (   "Hello World........."  &  "<BR>"  &  vbCRLF   )
   NEXT
%>
*************** Writ2x2.ASP ***************
<%
   Response.Write (   2 + 2   )
%>
*************** WritCalc.ASP ***************
<%
   DIM  R
   DIM  C , A

   R = 10

   C = 2 * 3.14159 * R
   A = 3.14159 * R * R

   Response.Write (   "Radius="         &  R  &  "<BR>"  &  vbCRLF   )
   Response.Write (   "Circumference="  &  C  &  "<BR>"  &  vbCRLF   )
   Response.Write (   "Area="           &  A  &  "<BR>"  &  vbCRLF   )
%>
*************** WritMsg.ASP ***************
<%
   DIM  MyMsg

   MyMsg =  "- Nice weather, isn't it ?"  &  vbCRLF  _
          & "- Yes ""nice"" weather."     &  vbCRLF

   Response.Write (   Replace( MyMsg ,vbCRLF,"<BR>"&vbCRLF)   )
%>
*************** Chr20_FF.ASP ***************
<%
   DIM  i

   Response.Write (   "***** CHARS: "   )

   '----- LOOP
   FOR i = 32 TO 255
      Response.Write (   Chr(i)   )
   NEXT
%>
*************** PrimeNb.ASP ***************
<%
   DIM  IsPrimeArray(1000)
   DIM  i
   DIM  j , jMax

   Response.Write (   "***** PRIME NUMBERS: "   )

   '----- LOOP 1 , On each number
   FOR i = 1 TO 1000

      '----- Could be a prime number
      IsPrimeArray(i) = TRUE

      j    = 2
      jMax = i \ 2      '--- Int div

      '----- LOOP 2 , Search a divisor
      WHILE IsPrimeArray(i) and (j <= jMax)
         '----- "j" can divide "i" ?
         IF (i mod j) = 0 THEN
            IsPrimeArray(i) = False
         END IF
         j = j + 1
      WEND

      '----- Display only prime numbers
      IF IsPrimeArray(i) = TRUE THEN
         Response.Write (   i  &  " "   )
      END IF
   NEXT

'
'   [<--                   i                      -->]
'    [<-- j -->]
'   .#.....................#.........................#
'    |         |                                     |
'    2      i div 2                                1000
'
'
%>
