tengo un servicio de upload de archivos. Tengo un código para abrir un el archivo cargado pero se abre en la ventana del explorador y no independiente en su formato, lo raro, es que ese código lo he utilizado antes y no me presenta problemas, pero en una sola página específica me da ese error.
Les adjunto el código y la línea donde lo llamo para que puedan ver el error que no he visto yo....
gracias.
Código HTML:
<%
Dim strAcccion
Dim NombreArchivo
Dim ArchivoLocal
NombreArchivo = Request.QueryString("archivo")
ArchivoLocal = "C:\Documentacion\Upload\AUDITORIAS" & "\" & NombreArchivo
strAcccion=Request("strAcccion")
if strAcccion="" then
strAcccion="inicio"
end if
'Response.Write "ArchivoLocal:"&ArchivoLocal&"<br>"
'Response.End
'-----------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------
Select Case strAccion
Case "inicio" :
Call DownloadFile()
Case else:
call DownloadFile()
End Select
'-----------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------
Function DownloadFile()
Dim vntStream
Dim oPDF
Set oPDF = Server.CreateObject("NegCommon.BinRead")
vntStream = oPDF.readBinFile(ArchivoLocal)
Response.Clear
Response.AddHeader "content-disposition","attachment;filename="& NombreArchivo
Response.ContentType = "application/octet-stream"
Response.BinaryWrite(vntStream)
Set oPDF=Nothing
End Function
%>
Código HTML:
<%dim paginaAbrir,paginaEliminar dim nombre dim nombreauditoria dim archivo dim formatoFecha nombreauditoria=objRec1.fields("Nombre") idauditoria =objRec1.fields("IdAuditoria") fecha= objRec1.fields("Fecha") formatoFecha= FechaFormatoP(fecha) nombre= formatoFecha&nombreauditoria 'Response.Write "nombreauditoria:"&nombreauditoria&"<br>" 'Response.Write "idauditoria:"&idauditoria&"<br>" 'Response.Write "fecha:"&fecha&"<br>" 'Response.Write "formatoFecha:"&formatoFecha&"<br>" 'Response.Write "nombre:"&nombre&"<br>" 'Response.End paginaAbrir="CompruebaAudi.asp?archivo="&nombre Response.Write "paginaAbrir:"&paginaAbrir&"<br>" 'Response.End paginaEliminar="Auditorias.asp?strAccion=eliminar"&"&idauditoria="&idauditoria 'Response.Write "paginaEliminar:"&paginaEliminar&"<br>" 'Response.End %> <TD class=reqdatos3 width=50><P align=center><a href="<%=paginaAbrir%>">Abrir</A></P></TD> <TD class=reqdatos3 width=50><P align=center><a href="<%=paginaEliminar%>">Eliminar</A></P></TD> </TR>