The code is very short, but it is very classic, the unit is seconds, which means that the server resource consumption has not been tested:
<%
FunctionDelay(s)
Dimt=Now()
WhileDateDiff("s",t,Now)<s
Wend
EndFunction
%>
Reprinted from: http://jorkin.reallydo.com/article.asp?id=224