Ho un problema che non riesco a risolvere:
ho una finestra flottante con un pulsante che mi genera un file rtf....alla fine della procedura di creazione del file (sul server) ho inserito una funzione di download
ora ho due problemi:
1 come faccio a inserire un'altra funzione (la cancellazione del file) una volta downlodato?
2 come faccio a far chiudere da sola la finestra che altrimenti rimarrebbe bianca??
questa è la pagina in riassunto
....
....
codice per produrre il file rtf
....
...
'creo un nuovo documento rtf
Set f = fso.OpenTextFile(Server.MapPath(session("id_user") &"dpss.rtf"), 2, True)
'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
nomertf=session("id_user")&"dpss.rtf"
function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
response.contenttype="application/x-unknown"
response.addheader "Content-Disposition","attachment; filename=" & chr(34) & nomertf & chr(34)
response.binarywrite getBinaryFile(server.mappath(nomertf))
Il download funziona perfettamente ma poi la mia pagina che mi ha generato il file rtf resta praticamente bianca mentre io ho bisogno di cancellare il file scaricato e chiudere la finestra o passare ad un'altra (es la home) una volta che ho finito.
Aiutooo
Fiorella
Rispondi quotando
