Upload de archivos

[pali_wichis]

Hola!

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
	%> 

y la linea donde llamo:

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>