Problem With Download PDF

[melginger]

three things:

1) I want to download multiples PDF at once from my Extranet site

2) I want to send to the Client printer, multiple PDF

3) But first of all,I can't make that code work for me. It supposed to force the dialog box for Saving but it displays the content of my file.

Dim file
Dim path

file="1002564.pdf"
path=Server.MapPath("\TestPDF\" & file)

set fso=Server.CreateObject("Scripting.FileSystemObject")
set f=fspenTextFile(path)
data=f.ReadAll
ext=fso.GetExtensionName(path)
if ext="pdf" then Response.ContentType="application/pdf"
if ext="doc" then Response.ContentType="application/msword"

Response.AddHeader "Content-Disposition"," attachment; filename=test.pdf"
Response.BinaryWrite data
Response.Flush

Thanks