|
'**************************************
' Name: ASP Pause
' Description:To pause ASP operations in
' a page for certain amount of time.
For example: waiting for XML posts to other webpages to deliver a correct result.
' By: Matthew Franz
'
' Inputs:Amount of time to pause
'
' Side Effects:This code will change the
' Session.Timeout feature to ensure that y
' ou are allowing enough time for the paus
' e.
'
'This code is copyrighted and has ' limited warranties.Please see 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 > 300 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."
|
