---

Jeg har følgende script som jeg skal have til at vise et PDF-dokument,
som ligger udenfor www-scopet. Når scriptet kaldes åbnes Acrobat Reader,
men siden forbliver blank uden at vis PDF-dokumentet. Jeg tror det er
Header´ne der ikke er sat rigtig, er der nogen der kan hjælpe med at får
scriptet til at køre?

Allan

<%
path = Request("path")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
basename = fso.GetBaseName(path)

Response.ContentType = "application/pdf"
Response.AddHeader "Content-Disposition: " & basename
Response.AddHeader "Content-Length: " & path

Set f1 = fso.OpenTextFile(path)
do while f1.AtEndOfStream <> True
Response.BinaryWrite f1.ReadLine
loop

f1.Close
Set f1 = nothing
Set fso = nothing
%>