========== HelloWo1.ASP ==========

<%
   Response.Write (   "Hello World..."   )
%>
                                       +---------------------------------------
========== HelloWo5.ASP ==========     ! ========== Chr20_FF.ASP ==========
                                       !
<%                                     ! <%
Response.Write (   "Hello World....."  !    DIM  i
             &  "<BR>"  &  vbCRLF   )  !
Response.Write (   "Hello World....."  !    Response.Write (   "***** CHARS: ")
             &  "<BR>"  &  vbCRLF   )  !
Response.Write (   "Hello World....."  !    '----- LOOP
             &  "<BR>"  &  vbCRLF   )  !    FOR i = 32 TO 255
Response.Write (   "Hello World....."  !       Response.Write (   Chr(i)   )
             &  "<BR>"  &  vbCRLF   )  !    NEXT
Response.Write (   "Hello World....."  ! %>
             &  "<BR>"  &  vbCRLF   )  !
%>                                     ! ========== PrimeNb.ASP ==========
                                       !
========== HelloWo9.ASP ==========     ! <%
                                       !    DIM  IsPrimeArray(1000)
<%                                     !    DIM  i
   DIM  i                              !    DIM  j , jMax
                                       !
   '----- LOOP                         !    Response.Write
   FOR i = 1 TO 9                      !        (   "***** PRIME NUMBERS: "   )
      Response.Write (                 !
"Hello World........."  &"<BR>"&vbCRLF)!    '----- LOOP 1 , On each number
   NEXT                                !    FOR i = 1 TO 1000
%>                                     !
                                       !       '----- Could be a prime number
========== Writ2x2.ASP ==========      !       IsPrimeArray(i) = TRUE
                                       !
<%                                     !       j    = 2
   Response.Write (   2 + 2   )        !       jMax = i \ 2      '--- Int div
%>                                     !
                                       !       '----- LOOP 2 , Search a divisor
========== WritCalc.ASP ==========     !       WHILE IsPrimeArray(i)
                                       !                     and (j <= jMax)
<%                                     !          '----- "j" can divide "i" ?
   DIM  R                              !          IF (i mod j) = 0 THEN
   DIM  C , A                          !             IsPrimeArray(i) = False
                                       !          END IF
   R = 10                              !          j = j + 1
                                       !       WEND
   C = 2 * 3.14159 * R                 !
   A = 3.14159 * R * R                 !       '----- Display only primenumbers
                                       !       IF IsPrimeArray(i) = TRUE THEN
   Response.Write (   "Radius="        !          Response.Write (   i  &  " ")
       &  R  &  "<BR>"  &  vbCRLF   )  !       END IF
   Response.Write (   "Circumference=" !    NEXT
       &  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)   )
%>
