first_page the funky knowledge base
personal notes from way, _way_ back and maybe today

VBScript and ASP Code: Demonstrating the Buffer Property of the Response Object

<%@ LANGUAGE="VBScript" %> <% Option Explicit %> <% Response.Buffer = True

Public Sub basDelaySec(Seconds) 

    Dim dtmDate 

    dtmDate = DateAdd(&quot;s&quot;, Seconds, Now) 
     
    Do 
    Loop Until Now &gt; dtmDate 

End Sub

%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML> <HEAD> <META NAME="Generator" CONTENT="Bryan Wilhite"> <META NAME="Reply-to" CONTENT="bwilhite@investorforce.com"> <META NAME="Keywords" CONTENT="Development"> <META NAME="Description" CONTENT="Development"> <LINK REL=stylesheet TYPE="text/css" HREF="./root.css"> <TITLE>Investor Force, Inc.</TITLE> </HEAD>

<BODY>

&lt;P&gt;Waiting 2 seconds...&lt;/P&gt;

<% Response.Flush Call basDelaySec(2) %> <P>Waiting 5 seconds...</P> <% Response.Flush Call basDelaySec(5) %> <P>Waiting 10 seconds...</P> <% Response.Flush Call basDelaySec(10) %> <P>Done!</P>

</BODY> </HTML>

mod date: 2000-04-16T00:31:27.000Z