san google responde
http://www.soloasp.com.ar/vereje.asp?eje=13
<%
'Comenzamos el cronómetro.
starttime = Timer()
'Toda la página a continuacion...
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 & " milliseconds)."
%>