Make sure to put Response.write Space(256) before the Response.flush.
IE has a behaviour (bug?) where it won't display any part of the page
until at least 256 bytes have been sent. Here are three functions you
can use.
' Wait page functions
Sub PrintWaitPageHe ader(strHeaderM essage)
Response.write "<html><body>"& vbCrLf
Response.write "<h2>"&strHeade rMessage&"</h2>"&Space(256) &vbCrLf
Response.Flush
End Sub
Sub PrintWaitPageSt atus(strStatusM essage)
Response.write strStatusMessag e&Space(256)&vb CrLf
Response.Flush
End Sub
Sub PrintWaitPageCo mplete(strRedir ectURL)
Response.write "<script type="&Chr(34)& "text/javascript"&Chr (34)&">"&vbCrLf
Response.write "document.locat ion.href='"&str RedirectURL&"'; "&vbCrLf
Response.write "</script>"&vbCrLf
Response.write "<p>"&Space(256 )&vbCrLf
Response.write "<p>If the page does not transfer, <a href="&_
Chr(34)&strRedi rectURL&Chr(34) &">click here.</a>"&vbCrLf
Response.write "</body></html>"
Response.Flush
End Sub
Shailesh
Roger Cantillo wrote:
Anyone know what I can do to build a transition page while ASP code runs in
the background? Looking for something to say "Please wait while
loading....."