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>