Prueba esto, es para que el cronómetro quede abajo de todo:
<%
'Comenzamos el cronómetro.
starttime = Timer()
%>
<html><head>...etc.<body><table>etc..-
<%
Do While tt < 30000
tt = tt + 1
Loop
'Lo que sigue va al final de la página.
'Nos fijamos cuanto tiempo lleva el cronómetro y lo guardamos el tiempo final.
endtime = Timer()
'Mostramos los resultados obtenidos.
Response.Write "La carga se completo en " & endtime-starttime & " segundos = "
Response.Write " (" & (endtime-starttime)*1000 & " milisegundos)."
%></body></html>
Saludos.