Oke, Neem onderstaande code
Wanneer dit uitgevoerd wordt, dan wordt ook, zoals de bedoeling is, Adobe Reader opgestart.
Maar uiteindelijk geeft Reader een foutmelding, namelijk
'Het bestand begint niet met %PDF-.'
Wanneer ik bovenstaande functie aanroep met bijv.:
Dan gaat alles wel goed. Dan wordt Word wel gewoon geladen.
Heeft iemand enig idee wat hier fout kan gaan???
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| Call getDownload("c:\sample.pdf", "application/pdf")
Function getDownload(filespec, mimetype)
Dim s
Dim fso, f
Dim intFilelength
Set fso = CreateObject("Scripting.FileSystemObject")
' get length of file
Set f = fso.GetFile(filespec)
intFilelength = f.size
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
s.LoadFromFile(filespec)
Response.AddHeader "Content-Disposition", "filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
if len(mimetype) = 0 Then
Response.ContentType = "application/octet-stream"
else
Response.ContentType = mimetype
End If
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
Set fso = Nothing
Set f = Nothing
End Function |
Wanneer dit uitgevoerd wordt, dan wordt ook, zoals de bedoeling is, Adobe Reader opgestart.
Maar uiteindelijk geeft Reader een foutmelding, namelijk
'Het bestand begint niet met %PDF-.'
Wanneer ik bovenstaande functie aanroep met bijv.:
code:
1
| Call getDownload("c:\sample.doc", "application/msword") |
Dan gaat alles wel goed. Dan wordt Word wel gewoon geladen.
Heeft iemand enig idee wat hier fout kan gaan???
1liter