Response.flush non va

[maxxl]

Ciao...
ho questo file che mi crea automaticamente una gallery copiando vari file....
Vorrei che mi visualizzasse un messaggio durante le vari fasi di elaborazione...
Ho messo alcuni response.flush ma mi visualizza le frasi solo quando tutta la pagina è stata elaborata.... come mai???

%
response.buffer = true
tgta="\in corso\archivio"
tgt="\in corso\archivio\clienti"
quanti=Request.Form("foto")
archivio=Request.Form("archivio")
dir=Request.Form("file")
chi=Request.Form("chisei")
fld=tgt&"\"&archivio
img=fld&"\immagini"
prg=fld&"\prg"

Set fs=Server.CreateObject("Scripting.FileSystemObject")
if chi="pc" then
dove=fs.GetParentFolderName(dir)
end if
if chi="mac" then
dove="\in corso\FOTOGRAFIA\BASSE_ARCHIVIO"
end if
response.write "
"
response.write "
"
response.write "Sto creando archivio: "&archivio
response.write "
"
response.write "
"
response.write "Directory: "&fld
response.write "
"
response.write "
"
response.write "
"
response.flush 


If fs.FolderExists(fld)=true then
Response.Redirect("crea_archivio.asp?id=2")
End If

fs.CreateFolder(fld)
fs.CreateFolder(img) 
fs.CreateFolder(prg)

response.write "
"
response.write "Directory create"
response.write "
"
response.flush 

fs.CopyFolder dove,img

set f=fs.CreateTextFile(prg&"\dati.js",true)
set folder=fs.GetFolder(img)
set files = folder.files
x=0

f.write("// JavaScript Document")
f.write(vbcrlf)
f.write("archivio="&chr(34)&archivio&chr(34)&";")
f.write(vbcrlf)
f.write("var immagine=new Array();")
f.write(vbcrlf)

for each file in files
	strPath = Right(file.name,3)
	if strPath="jpg" or strPath="JPG" then
	f.write("immagine["&x&"]="&chr(34)&file.name&chr(34)&";")
	f.write(vbcrlf)
	x=x+1
	end if
	

next

f.close
set f=nothing
response.write "
"
response.write "
"
response.write "File copiati"
response.write "
"
response.flush 

fs.CopyFile tgta&"\prg\start.html",fld&"\"
fs.CopyFile tgta&"\prg\autorun.inf",fld&"\"
fs.CopyFile tgta&"\prg\MARCHIOOK.jpg",prg&"\"
fs.CopyFile tgta&"\prg\vuoto.jpg",prg&"\"
fs.CopyFile tgta&"\prg\stile.css",prg&"\"
set fs=nothing

response.write "<div class='testo' align='center'>"
response.write "
"
response.write "
"
response.write "
"
response.write "
"
response.write "ARCHIVIO CREATO"
response.write "
"
response.write">>Torna indietro"
response.write "</div>"
%>

Garzie

Maxxl

[maxxl]

aiuto

[maxxl]