'Método de retraso ASP
Sub DelayTime (SecondNumber)
Dim Starttime
starttime = ahora ()
hacer todo ("s", starttime, ahora ()) <marondnumber
bucle
final
Llame a DelayTime (5)
Está bien para las pruebas, pero este código ocupa una CPU, y no se recomienda usar un acceso grande a la estación ...