List 8-9　10秒おきに日時を表示する例 


  1： <HTML>
  2： <BODY>
  3： <%
  4：   Dim dt1
  5：   For i = 1 To 3
  6：     ' その時点の日時を取得して表示する
  7：     dt1 = Now()
  8：     Response.Write dt1 & "<BR>"
  9：     ' 10秒間待つ
 10：     While DateDiff("s", dt1, Now()) < 10
 11：     Wend
 12：   Next
 13： %>
 14： </BODY>
 15： </HTML>