<html> <head> </head> <body>Secs: <% Dim start, i start = Timer For i = 1 to 10000000 Next Response.Write(Timer - start & "<br>") %> </body> </html>