Pause,pause,pause Function for asp~~~

'**************************************
' Name:asp Pause
' Description:to pause ASP operations in
' A page for certain amount of time.
For example:waiting for XML posts to the webpages to deliver a correct result.
' By:matthew Franz
'
' Inputs:amount of Time to pause
'
' Side effects:this code would change the
' Session.Timeout feature to ensure ' Y
' ou are allowing enough time for the Paus
' E.
'
' This code is copyrighted and has ' limited warranties. Please http://w
' Ww.planet-source-code.com/xq/asp/txtcode
' Id.8232/lngwid.4/qx/vb/scripts/showcode.
' htm ' for details. '**************************************

Function Pause (Amount)
' Check for Pause Amount exceeding Defaul
' t ASP timeouts, Reset the Session.timeou
' t
If Amount > Then session.timeout = Amount
Start = Timer
Do Until Start + Amount = Timer
Loop
Pause = Amount
End Function
' Page begins here
Amountpausedfor = Pause (5)
Response.Write "We paused for" & Amountpausedfor & "seconds."