response.writefile + PDFs

[CiS]

Ok! les recuerdo que el codigo original lo consegui en el link q les conte anteriormente. Yo modifique algunas cositas y quedo lo siguiente:

-----------------------------------
Dim fs As FileStream = New FileStream(Server.MapPath(fileName), FileMode.Open, FileAccess.Read)
Dim fileData As Byte()
ReDim fileData(fs.Length)
Dim bytesRead As Long = fs.Read(fileData, 0, CInt(fs.Length))
fs.Close()
Dim sFileExt As String = Split(fileName, ".")(1)

'Se borran las cabeceras actuales de HTTP
Response.ClearContent()
Response.ClearHeaders()

'Se establecen las cabeceras correspondientes
'Nombre del archivo para que el usuario no vea download.aspx en el cuadro de descarga
Response.AddHeader("Content-Disposition", "attachment;filename=" & fileName)

'Tipo MIME del archivo a descargar. Si tienen diferentes tipos de archivos hacen un case
'Response.ContentType = "application/msword"
Response.ContentType = "application/pdf"

'Cabecera que establece el tamaño de la respuesta (tamaño del archivo en bytes)
Response.AddHeader("Content-length", bytesRead.ToString())

'Se escribe la respuesta al usuario que verá la ventana de descarga del archivo.
Response.BinaryWrite(fileData)
-----------------------------------

Los espacios de nombres:
Imports System.IO
Imports System.IO.FileStream

-----------------------------------------

y listo! yo no agregue la pagina downloadHandler.aspx que sugieren en el link, ni tampoco modifique el config (o sea: primero hice todo lo del link, y como no me andaba fui probando hasta q finalmente anduvo asi como les cuento)

Espero no haberme olvidado nada, cualquier cosita me escriben!

Saludossss
CiS