<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<title>progess bar for long running database submission</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="author" content="Roderick Divilbiss">
<meta name="copyright" content="© 2005, 2006 Roderick Divilbiss">
</head>
<body id="oBody">
Please Wait While Your Data Is Submitted.<br>
<img border="0" src="progressBar.gif" width="349" height="21">
</body>
</html>
<%
' force the progress bar to be written before
' running the time consuming database submission.
response.flush
Dim processedOK
processedOK = false
'**************************************
'* Process you form data here
'**************************************
' simulated with long loop.
Dim idx, i
for idx = 1 to 10000000
i = i + idx
next
'* pretend success
processedOK = true
'***************************************
if processedOK then
server.transfer("progess_bar_finished.asp")
else
server.transfer("progess_bar_error.asp")
end if
%>
© Coyright 2000-2008, Roderick (Rod) W. Divilbiss. Some rights reserved.
Except where otherwise noted, this site, all content, and all source code and markup is licensed under a Creative Commons License
Creative Commons License.
No part of this web site including all application code and examples may be used for commercial purposes without prior written permission from the author,
Roderick W. Divilbiss of Overland Park, Kansas, United States of America.
