So in der richtung
Response.Buffer = TRUE
Response.Clear
Response.Expires = 0
Response.ContentType = "application/pdf" 'Hier musst du nich den mime
typen richtig setzen :-)
strFileName = "myhandbook.pdf"
strMyPath = Server.MapPath("./dowonload/") & "\" & strFileName
Response.AddHeader "Content-Disposition","attachment;filename=" &
strFileName
Set objFileSys = Server.CreateObject("Scripting.Filesystemobject")
Set objFile = objFileSys.GetFile(strMyPath)
FileSize = objFile.Size
Set objFile = Nothing
Set objFile = objFileSys.OpenTextFile(strMyPath, 1, false, -1)
Response.BinaryWrite(objFile.Read(FileSize))
Set objFile = Nothing
Set objFileSys = Nothing
Response.Flush
Gruss
Roman Pittroff
Consulting
Bangkok, Thailand
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
