Can anybody help please

Hi every body,
I have "ChangePassword1.txt" which is an ASP page
Attached with this message is the "ChangePassword1.txt" page with the main "Do loop"
as:
****************
Do While (Len(Appl(j)) > 0 And j <= UBound(Appl))
'all the Code is here
Loop
**********************

Each time the loop updates a database
Right now we have four databases(CPA,HPA,PMA,IMD1). So the loop repeats four times.
It is taking around 10 minutes to process this page.
I would like to show the user with some kind of indication showing the following messages (in the asteriks below) instead of the user waiting 10 minutes with out seeing any messages from the "ChangePassword.asp" page

***************
CPA database processing...
HPA database processing...
HPA database processing...
IMD1 database processing..
***************
and in the end i would like to redirect to the calling asp page("page1.asp") where i will show all the messages from all the Databases.

Hope you will understand the code and help me solve the problem.
The code is well commented so you can understand easily.
Thanks,
Srini