|
|
|
|
|
| | |
TLdelaySec Function
This function ( well actually its a sub ) was designed by my
Co-worker Tim Lasek This is simply an easy
to use time delay.Function TLdelay(seconds)
Usage: TLdelaySec(2)
Result: 2 second delay before the rest of the code on the page is executed.
<%
Sub TLdelaySec(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>
<%
TLdelaySec(2) %>
|
|
|
|
|
|
|
|
|
|
|
|
|
