pues medidor de la velocidad de internet.... ignoro.... pero en las paginas que utilizo hago un timer de esta forma, para saber cuanto tarda en visualizar la pagina
al principio de la pagina
Cita: starttime = Timer()
'Toda la página a continuacion...
Do While tt < 30000
tt = tt + 1
Loop
al final de la pagina
Cita: endtime = Timer()
Response.Write "Visualizacion en " & endtime-starttime & " segundos"
a lo mejor te puede servir....
suerte