download file e chiusura popup

[rinosan_76]

Ciao a tutti...
io uso questo codice per forzare il download di un file senza che esso si apra nel browser:

  Dim objStream, strFileName
  strFileName = Request.QueryString("file")'nome 'Request.QueryString("file")
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1 ' adTypeBinary
  objStream.Open
  objStream.LoadFromFile Server.MapPath(strFileName)
  ' Istruiamo il browser sul tipo di file
  Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
  Response.ContentType = "application/octet-stream"
  'Response.ContentType = "application/Active"
  Response.BinaryWrite objStream.Read
  objStream.Close
  Set objStream = Nothing

Il download viene effettuato, ma mi rimane la pagina (popup) aperta e bianca. Non riesco ne a scriverci nulla dentro ne a farla chiudere in automatico. Mi basterebbe mettere un link con "chiudi" che richiama window.close(), ma non ci riesco... come posso fare?

[CiodoF]

Gli fai poi un respose.redirect verso una nuova pagina, dove tramite js gli fai un windows.close().

<script language="javascript">window.close()</script>

[rinosan_76]

se gli metto il response.redirect non mi esegue (inspiegabilmente) neanche il codice sopra...!

[rinosan_76]

[rinosan_76]

AIUTOOOOOOOOO

[br1]

Ho l'impressione che il difetto risieda nel link che richiama questo script... postalo.

ciao

[rinosan_76]

continua a non ricevere le mail di notifica...
Cmq... il tutto è complesso da spiegare, ma ci provo.
Ho creato 2 funzioni JS per richiamare un popup:

function apriFinFocus(url, name, width, height){
		var settings="'left=150,top=10,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width="+width+",height="+height+"'";
		var MyNewWindow=window.open(url,name,settings);
		MyNewWindow.focus();
}

function apriDownload(a,b){
 apriFinFocus(a+'/popupDownload.asp?id='+b,'cap',400,180);
}

dove a è la cartella dove risiede la pagina e b è l'ID del record sul DB.
Il link che richiama la funzione è:

[img]../img/icone/icona.gif[/img]

il file richiamato è:

<%@LANGUAGE="VBSCRIPT"%> 
<% Option Explicit %>




<%
'On Error Resume Next

Dim objStream, strFileName, id,cartella
id = Request.QueryString("id")
openConnMySQL db_intranet,db_ip,db_user,db_password,0
SQL="SELECT mod_archivio_file.nome_file,mod_archivio_categ.cartella AS cartella1,mod_archivio_sottocateg.cartella AS cartella2 " &_
	"FROM (mod_archivio_file INNER JOIN mod_archivio_categ ON mod_archivio_file.cod_cat=mod_archivio_categ.cod_cat) INNER JOIN mod_archivio_sottocateg ON mod_archivio_file.cod_sottocat = mod_archivio_sottocateg.cod_sottocat " &_
	"WHERE mod_archivio_file.id=" & cInt(id)
rs.Open SQL,conn
if not rs.EOF then
  cartella="../file/"&rs("cartella1")&"/"&rs("cartella2")&"/"
  strFileName=rs("nome_file")
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1 ' adTypeBinary
  objStream.Open
  objStream.LoadFromFile Server.MapPath(cartella & strFileName)
  ' Istruiamo il browser sul tipo di file
  Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
  Response.ContentType = "application/octet-stream"
  'Response.ContentType = "application/Active"
  Response.BinaryWrite objStream.Read
  objStream.Close
  Set objStream = Nothing
else
 response.redirect "../errori/fileNonTrovato.html"
end if
 closeConn
%>

dove includo varie cose per aprire il DB e quindi tirare fuori il percorso del file.
Ciao
Rino

[rinosan_76]

si sono aggiunti degli spazi (ad es: java script) che in origine non ci sono, ma non riesco a toglierli...

[rinosan_76]

up

[rinosan_76]