Elimino file con risposta

[semolino]

Ho un codice che mi elimina un file dal server.
So che dopo l'eliminazione non è possibile mettere un redirect perchè non viene interpretato.
Non si può neanche far in modo di setarre una variablile di sessione o una cosa del genere?
In questo modo , facendo il controllo sulla variabile posso capire se è stato eliminato o no.

[optime]

Originariamente inviato da semolino
Ho un codice che mi elimina un file dal server.
So che dopo l'eliminazione non è possibile mettere un redirect perchè non viene interpretato.

???? eh? perché non si puo'?

[semolino]

In pratica dalla pagina clicco un link che mi punta ad un'altra contenente il codice che copia il faile nella cartella con i permessi, lo scarica e lo elimina.

If Request.QueryString("action") = "DownDelete" Then
	'Poi lo scarico
	Dim objStream, strFileName
	strFileName = "/public/xxx.mdb"
	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Type = 1 ' adTypeBinary
	objStream.Open
	
	objStream.LoadFromFile Server.MapPath(strFileName)
	' Istruiamo il browser sul tipo di file
	strFileNameAppo = "xxx.mdb"
	Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileNameAppo
	Response.ContentType = "application/octet-stream"
	Response.BinaryWrite objStream.Read
	objStream.Close
	Set objStream = Nothing
	
	'Ora lo elimino!
			file = Server.mapPath("/public/xxx.mdb")
			Set fso = server.createObject("Scripting.FileSystemObject")
				If fso.fileExists(file) Then
				fso.deleteFile(file)
				End If
			Set fso = Nothing

' setto la sessione per eliminato
' qui metto il redirect

End If

A questo punto il redirect non veniva interpretato ma mi rimane nella pagina da dove ho cliccato.

Ora ho provato con la session e funziona.

If Request.QueryString("action") = "DownDelete" Then
	'Poi lo scarico
	Dim objStream, strFileName
	strFileName = "/public/xxx.mdb"
	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Type = 1 ' adTypeBinary
	objStream.Open
	
	objStream.LoadFromFile Server.MapPath(strFileName)
	' Istruiamo il browser sul tipo di file
	strFileNameAppo = "xxx.mdb"
	Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileNameAppo
	Response.ContentType = "application/octet-stream"
	Response.BinaryWrite objStream.Read
	objStream.Close
	Set objStream = Nothing
	
	'Ora lo elimino!
			file = Server.mapPath("/public/xxx.mdb")
			Set fso = server.createObject("Scripting.FileSystemObject")
				If fso.fileExists(file) Then
				fso.deleteFile(file)
				End If
			Set fso = Nothing

' setto la sessione per eliminato
Session("DataBaseScaricato") = "true"

End If

Ovviamente dalla pagina da cui clicco controllo se la sessione esiste.
Che ne dici?