Stream af PDF
Jeg har følgende kode:<%
Dim objStream, strFile, strFileType
Const adTypeBinary = 1
strNewFileName = Request("pdf_File")
' Filen vi vil sende til brugeren
strFile = "/upload/upload/" & strNewFileName
' Filens MIME type
strFileType = "application/pdf"
' Åbner stream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
' Fortæller ADODB.Stream at indholdet er i binært format
objStream.Type = adTypeBinary
' Henter filen ind i vores stream
objStream.LoadFromFile(Server.MapPath(strFile))
' Sender en header til browseren
strFileName = "attachment; filename=" & strNewFileName
Response.AddHeader "content-disposition",strFileName
' Fortæller browseren om vores MIME type
Response.ContentType = strFileType
' Skriver filens indhold ud til brugeren
Response.BinaryWrite(objStream.Read)
Response.Flush()
objStream.Close()
Set objStream = Nothing
%>
Den gør så der kommer en popup op så man kan DL PDF filen.
Det hele virker fint.
MEN...jeg får en fejl 500 hvis filstørrelsen er over et par MB.
Den virker fint med PDFfiler som fylder lige over 1 MB.
Nogen måder jeg kan sætte maxstørrelsen op ?