Gibberish Pdf file displayed if I transfer using bit stream

[=?Utf-8?B?YzY3NjIyOA==?=]

Hi all,
The following code was suggested by one of the users in this newsgroup when
a pdf file was requested by a user from an asp page. I used the similar code
in my page and the very interesting thing is when the pdf is displayed on the
fly, the whole page is a gibberish code in stead of a normal pdf file. But it
displays fine if I just use a link to a file on the page. Can you tell me
what's the possible reason will cause this problem?
Thank you.

if objFSO.FileExis ts(strFilePath) AND ok then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der "Content-Disposition","i nline;filename= "&once
Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
else
response.write "Sorry, nonexisting file"
end if
Set objFSO = Nothing
Response.end
end if

--
Betty

[=?Utf-8?B?YzY3NjIyOA==?=]

Oh, I forgot to tell you that I removed the code
Response.Buffer = false
since I set up this is true some where, it tells me that I cannot reset to
false.
So I removed that, not sure if this will impact on the result, I guess not?
--
Betty
"c676228" wrote:

Hi all,
The following code was suggested by one of the users in this newsgroup when
a pdf file was requested by a user from an asp page. I used the similar code
in my page and the very interesting thing is when the pdf is displayed on the
fly, the whole page is a gibberish code in stead of a normal pdf file. But it
displays fine if I just use a link to a file on the page. Can you tell me
what's the possible reason will cause this problem?
Thank you.

if objFSO.FileExis ts(strFilePath) AND ok then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der "Content-Disposition","i nline;filename= "&once
Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
else
response.write "Sorry, nonexisting file"
end if
Set objFSO = Nothing
Response.end
end if

--
Betty

[Anthony Jones]

"c676228" <be****@communi ty.nospamwrote in message
news:81******** *************** ***********@mic rosoft.com...

Hi all,
The following code was suggested by one of the users in this newsgroup

when

a pdf file was requested by a user from an asp page. I used the similar

code

in my page and the very interesting thing is when the pdf is displayed on

the

fly, the whole page is a gibberish code in stead of a normal pdf file. But

it

displays fine if I just use a link to a file on the page. Can you tell me
what's the possible reason will cause this problem?
Thank you.

if objFSO.FileExis ts(strFilePath) AND ok then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der "Content-Disposition","i nline;filename= "&once
Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
else
response.write "Sorry, nonexisting file"
end if
Set objFSO = Nothing
Response.end
end if

Do you have other include files in the ASP code?
Do you have other content that is being sent before this code?
The inability to use Response.Buffer = false would indicate that you do.

In the case above Response.Buffer = false in unnecessary since you write the
complete contents of the stream to the response in one call to BinaryWrite.

On IIS6 the default response buffer is 4MB so if your PDF is potentially
larger you will either need to increase this limit or chunk out the PDF
contents.

This is my stock function for doing this:-

Sub SendFileToRespo nse(FilePath, FileName)

Const clChunkSize = 1048576 ' 1MB

Dim oStream, i
Response.Buffer = False

Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der "Content-Disposition", _
"Filename=" & FileName

Set oStream = Server.CreateOb ject("ADODB.Str eam")
oStream.Type = 1 ' Binary
oStream.Open
oStream.LoadFro mFile FilePath

For i = 1 To oStream.Size \ clChunkSize
Response.Binary Write oStream.Read(cl ChunkSize)
Next
If (oStream.Size Mod clChunkSize) <0 Then
Response.Binary Write oStream.Read(oS tream.Size Mod clChunkSize)
End If
oStream.Close

End Sub

You would call this function as:-

SendFileToRespo nse strFilePath, once

since it chunks out the content there is no need to worry about buffer size.
However before you can use it you will need to look at what is happening
earlier in your page that is already placing unwanted content in the
response.

Anthony.

--
Betty

[=?Utf-8?B?YzY3NjIyOA==?=]

Hi Anthony,
we us IIS 5.0
Thanks for your suggestion. I do have include file, but it has nothing about
buffer set up, no html code, only database connection include file. And I
went to IIS virtual direcotry and saw default configuration for the
application is "enable buffer", so I unchecked this option and it no longer
complains the statement "Response.Buffe r = false ".
My pdf file is not big at all, it's less than 90KB. Now after I changed the
code, it gives me very informational error message like this:
Response object error 'ASP 0156 : 80004005'

Header Error

/DeliverPdf.asp, line 48 'which is Response.Conten tType =
"applicatio n/octet-stream"

The HTTP headers are already written to the client browser. Any HTTP header
modifications must be made before writing page content.
--'end of the eeror message
Then I thought it is because we have default HTTP headers in virtual
directoy, which is something generated by the system like this:
P3P: xxxxx
x-powered by: asp.net
Then I removed that default header and it still display the same error
message.
I don't get this.

My code is as follow:
----deleiverpdf.asp
<!--#INCLUDE VIRTUAL = "/utility/init_test.asp" -->
'init_test is database connection file
<html>
<%
cmdTemp.Command Text="a sql comand to fetch record from system based filename"
dim FileName, strFilePath
'Response.End
Set pdf_info = Server.CreateOb ject("ADODB.Rec ordset")
pdf_info.Open cmdTemp, , adOpenKeyset, adLockOptimisti c
If pdf_info.EOF Then
response.redire ct "/noPicFound404.g if"
Else
pdf_info.MoveFi rst()
'Response.Write "File Name: " & pdf_info("pdfFi leName")
OK=False
If Request("FileNa me")=Trim(pdf_i nfo("pdfFileNam e")) Then
strFilePath = Server.MapPath( pdf_info("TempP dfFilePath"))& "\" &
Request("FileNa me")
'Response.Write " Path " & strFilePath
Set objFSO = Server.CreateOb ject("Scripting .FileSystemObje ct")
If CInt(pdf_info(" MinElapsed")) < CInt(pdf_info(" ExpTime")) then
OK=true
End If
If objFSO.FileExis ts(strFilePath) and OK Then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der
"Content-Disposition","i nline;filename= "&Request("File Name") %>
<body>
<%Response.Bina ryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
'Response.Write "I am inside pdf delivery."
Else
response.write "Sorry, the file doesn't exist."
End If
Set objFSO = Nothing
Response.end
End If 'End If FileName is the same as in the database system

End If 'End If pdf_info is EOF
'End Function
Response.Write FileName & "<br>"
Response.Write strFilePath & "<br>"
conn.Close
set conn=Nothing
cmdTemp.Close
set cmdTemp=Nothing
%>
</body>
</html>

--
Betty
"Anthony Jones" wrote:

>
"c676228" <be****@communi ty.nospamwrote in message
news:81******** *************** ***********@mic rosoft.com...

Hi all,
The following code was suggested by one of the users in this newsgroup

when

a pdf file was requested by a user from an asp page. I used the similar

code

in my page and the very interesting thing is when the pdf is displayed on

the

fly, the whole page is a gibberish code in stead of a normal pdf file. But

it

displays fine if I just use a link to a file on the page. Can you tell me
what's the possible reason will cause this problem?
Thank you.

if objFSO.FileExis ts(strFilePath) AND ok then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der "Content-Disposition","i nline;filename= "&once
Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
else
response.write "Sorry, nonexisting file"
end if
Set objFSO = Nothing
Response.end
end if

Do you have other include files in the ASP code?
Do you have other content that is being sent before this code?
The inability to use Response.Buffer = false would indicate that you do.

In the case above Response.Buffer = false in unnecessary since you write the
complete contents of the stream to the response in one call to BinaryWrite.

On IIS6 the default response buffer is 4MB so if your PDF is potentially
larger you will either need to increase this limit or chunk out the PDF
contents.

This is my stock function for doing this:-

Sub SendFileToRespo nse(FilePath, FileName)

Const clChunkSize = 1048576 ' 1MB

Dim oStream, i
Response.Buffer = False

Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der "Content-Disposition", _
"Filename=" & FileName

Set oStream = Server.CreateOb ject("ADODB.Str eam")
oStream.Type = 1 ' Binary
oStream.Open
oStream.LoadFro mFile FilePath

For i = 1 To oStream.Size \ clChunkSize
Response.Binary Write oStream.Read(cl ChunkSize)
Next
If (oStream.Size Mod clChunkSize) <0 Then
Response.Binary Write oStream.Read(oS tream.Size Mod clChunkSize)
End If
oStream.Close

End Sub

You would call this function as:-

SendFileToRespo nse strFilePath, once

since it chunks out the content there is no need to worry about buffer size.
However before you can use it you will need to look at what is happening
earlier in your page that is already placing unwanted content in the
response.

Anthony.

--
Betty

[Anthony Jones]

"c676228" <be****@communi ty.nospamwrote in message
news:FF******** *************** ***********@mic rosoft.com...

Hi Anthony,
we us IIS 5.0
Thanks for your suggestion. I do have include file, but it has nothing

about

buffer set up, no html code, only database connection include file. And I
went to IIS virtual direcotry and saw default configuration for the
application is "enable buffer", so I unchecked this option and it no

longer

complains the statement "Response.Buffe r = false ".

I strongly recommend you turn that back on again.

My pdf file is not big at all, it's less than 90KB. Now after I changed

the

code, it gives me very informational error message like this:
Response object error 'ASP 0156 : 80004005'

Header Error

/DeliverPdf.asp, line 48 'which is Response.Conten tType =
"applicatio n/octet-stream"

The HTTP headers are already written to the client browser. Any HTTP

header

modifications must be made before writing page content.
--'end of the eeror message
Then I thought it is because we have default HTTP headers in virtual
directoy, which is something generated by the system like this:
P3P: xxxxx
x-powered by: asp.net
Then I removed that default header and it still display the same error
message.
I don't get this.

My code is as follow:
----deleiverpdf.asp
<!--#INCLUDE VIRTUAL = "/utility/init_test.asp" -->
'init_test is database connection file
<html>

The above is part of the problem you've started to send html content but you
want to send a pdf. Your page should only contain ASP code in <% %>. There
should be no HTML mark up in it at all.

<%
cmdTemp.Command Text="a sql comand to fetch record from system based

filename"

dim FileName, strFilePath
'Response.End
Set pdf_info = Server.CreateOb ject("ADODB.Rec ordset")
pdf_info.Open cmdTemp, , adOpenKeyset, adLockOptimisti c
If pdf_info.EOF Then
response.redire ct "/noPicFound404.g if"
Else
pdf_info.MoveFi rst()
'Response.Write "File Name: " & pdf_info("pdfFi leName")
OK=False
If Request("FileNa me")=Trim(pdf_i nfo("pdfFileNam e")) Then
strFilePath = Server.MapPath( pdf_info("TempP dfFilePath"))& "\" &
Request("FileNa me")
'Response.Write " Path " & strFilePath
Set objFSO = Server.CreateOb ject("Scripting .FileSystemObje ct")
If CInt(pdf_info(" MinElapsed")) < CInt(pdf_info(" ExpTime")) then
OK=true
End If
If objFSO.FileExis ts(strFilePath) and OK Then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der
"Content-Disposition","i nline;filename= "&Request("File Name")

Get rid of this bit of markup also

%>

<body>
<%

Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
'Response.Write "I am inside pdf delivery."
Else
response.write "Sorry, the file doesn't exist."
End If
Set objFSO = Nothing
Response.end
End If 'End If FileName is the same as in the database system

End If 'End If pdf_info is EOF
'End Function
Response.Write FileName & "<br>"
Response.Write strFilePath & "<br>"
conn.Close
set conn=Nothing
cmdTemp.Close
set cmdTemp=Nothing
%>

And this bit as well:

</body>
</html>

--
Betty
"Anthony Jones" wrote:

"c676228" <be****@communi ty.nospamwrote in message
news:81******** *************** ***********@mic rosoft.com...

Hi all,
The following code was suggested by one of the users in this newsgroup

when

a pdf file was requested by a user from an asp page. I used the

similar

code

in my page and the very interesting thing is when the pdf is displayed

on

the

fly, the whole page is a gibberish code in stead of a normal pdf file.

But

it

displays fine if I just use a link to a file on the page. Can you tell

me

what's the possible reason will cause this problem?
Thank you.
>
>
if objFSO.FileExis ts(strFilePath) AND ok then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der "Content-Disposition","i nline;filename= "&once
Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
else
response.write "Sorry, nonexisting file"
end if
Set objFSO = Nothing
Response.end
end if
>

Do you have other include files in the ASP code?
Do you have other content that is being sent before this code?
The inability to use Response.Buffer = false would indicate that you do.

In the case above Response.Buffer = false in unnecessary since you write

the

complete contents of the stream to the response in one call to

BinaryWrite.

On IIS6 the default response buffer is 4MB so if your PDF is potentially
larger you will either need to increase this limit or chunk out the PDF
contents.

This is my stock function for doing this:-

Sub SendFileToRespo nse(FilePath, FileName)

Const clChunkSize = 1048576 ' 1MB

Dim oStream, i
Response.Buffer = False

Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der "Content-Disposition", _
"Filename=" & FileName

Set oStream = Server.CreateOb ject("ADODB.Str eam")
oStream.Type = 1 ' Binary
oStream.Open
oStream.LoadFro mFile FilePath

For i = 1 To oStream.Size \ clChunkSize
Response.Binary Write oStream.Read(cl ChunkSize)
Next
If (oStream.Size Mod clChunkSize) <0 Then
Response.Binary Write oStream.Read(oS tream.Size Mod clChunkSize)
End If
oStream.Close

End Sub

You would call this function as:-

SendFileToRespo nse strFilePath, once

since it chunks out the content there is no need to worry about buffer

size.

However before you can use it you will need to look at what is happening
earlier in your page that is already placing unwanted content in the
response.

Anthony.

--
Betty

[=?Utf-8?B?YzY3NjIyOA==?=]

Hooray! Anthony,

That works after I removed the html tag. Mm, I had another good lession.
Thank you.
--
Betty
"Anthony Jones" wrote:

>
"c676228" <be****@communi ty.nospamwrote in message
news:FF******** *************** ***********@mic rosoft.com...

Hi Anthony,
we us IIS 5.0
Thanks for your suggestion. I do have include file, but it has nothing

about

buffer set up, no html code, only database connection include file. And I
went to IIS virtual direcotry and saw default configuration for the
application is "enable buffer", so I unchecked this option and it no

longer

complains the statement "Response.Buffe r = false ".

I strongly recommend you turn that back on again.

My pdf file is not big at all, it's less than 90KB. Now after I changed

the

code, it gives me very informational error message like this:
Response object error 'ASP 0156 : 80004005'

Header Error

/DeliverPdf.asp, line 48 'which is Response.Conten tType =
"applicatio n/octet-stream"

The HTTP headers are already written to the client browser. Any HTTP

header

modifications must be made before writing page content.
--'end of the eeror message
Then I thought it is because we have default HTTP headers in virtual
directoy, which is something generated by the system like this:
P3P: xxxxx
x-powered by: asp.net
Then I removed that default header and it still display the same error
message.
I don't get this.

My code is as follow:
----deleiverpdf.asp
<!--#INCLUDE VIRTUAL = "/utility/init_test.asp" -->
'init_test is database connection file
<html>

The above is part of the problem you've started to send html content but you
want to send a pdf. Your page should only contain ASP code in <% %>. There
should be no HTML mark up in it at all.

<%
cmdTemp.Command Text="a sql comand to fetch record from system based

filename"

dim FileName, strFilePath
'Response.End
Set pdf_info = Server.CreateOb ject("ADODB.Rec ordset")
pdf_info.Open cmdTemp, , adOpenKeyset, adLockOptimisti c
If pdf_info.EOF Then
response.redire ct "/noPicFound404.g if"
Else
pdf_info.MoveFi rst()
'Response.Write "File Name: " & pdf_info("pdfFi leName")
OK=False
If Request("FileNa me")=Trim(pdf_i nfo("pdfFileNam e")) Then
strFilePath = Server.MapPath( pdf_info("TempP dfFilePath"))& "\" &
Request("FileNa me")
'Response.Write " Path " & strFilePath
Set objFSO = Server.CreateOb ject("Scripting .FileSystemObje ct")
If CInt(pdf_info(" MinElapsed")) < CInt(pdf_info(" ExpTime")) then
OK=true
End If
If objFSO.FileExis ts(strFilePath) and OK Then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der
"Content-Disposition","i nline;filename= "&Request("File Name")

Get rid of this bit of markup also

%>

<body>
<%

Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
'Response.Write "I am inside pdf delivery."
Else
response.write "Sorry, the file doesn't exist."
End If
Set objFSO = Nothing
Response.end
End If 'End If FileName is the same as in the database system

End If 'End If pdf_info is EOF
'End Function
Response.Write FileName & "<br>"
Response.Write strFilePath & "<br>"
conn.Close
set conn=Nothing
cmdTemp.Close
set cmdTemp=Nothing
%>

And this bit as well:

</body>
</html>

--
Betty
"Anthony Jones" wrote:

>
"c676228" <be****@communi ty.nospamwrote in message
news:81******** *************** ***********@mic rosoft.com...
Hi all,
The following code was suggested by one of the users in this newsgroup
when
a pdf file was requested by a user from an asp page. I used the

similar

code
in my page and the very interesting thing is when the pdf is displayed

on

the
fly, the whole page is a gibberish code in stead of a normal pdf file.

But

it
displays fine if I just use a link to a file on the page. Can you tell

me

what's the possible reason will cause this problem?
Thank you.


if objFSO.FileExis ts(strFilePath) AND ok then
Set objStream = Server.CreateOb ject("ADODB.Str eam")
objStream.Open
objStream.Type = 1
objStream.LoadF romFile strFilePath
Response.Buffer = false
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der "Content-Type", "applicatio n/pdf"
Response.AddHea der "Content-Disposition","i nline;filename= "&once
Response.Binary Write objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
else
response.write "Sorry, nonexisting file"
end if
Set objFSO = Nothing
Response.end
end if

>
Do you have other include files in the ASP code?
Do you have other content that is being sent before this code?
The inability to use Response.Buffer = false would indicate that you do.
>
In the case above Response.Buffer = false in unnecessary since you write

the

complete contents of the stream to the response in one call to

BinaryWrite.

>
On IIS6 the default response buffer is 4MB so if your PDF is potentially
larger you will either need to increase this limit or chunk out the PDF
contents.
>
This is my stock function for doing this:-
>
Sub SendFileToRespo nse(FilePath, FileName)
>
Const clChunkSize = 1048576 ' 1MB
>
Dim oStream, i
Response.Buffer = False
>
Response.Conten tType = "applicatio n/octet-stream"
Response.AddHea der "Content-Disposition", _
"Filename=" & FileName
>
Set oStream = Server.CreateOb ject("ADODB.Str eam")
oStream.Type = 1 ' Binary
oStream.Open
oStream.LoadFro mFile FilePath
>
For i = 1 To oStream.Size \ clChunkSize
Response.Binary Write oStream.Read(cl ChunkSize)
Next
If (oStream.Size Mod clChunkSize) <0 Then
Response.Binary Write oStream.Read(oS tream.Size Mod clChunkSize)
End If
oStream.Close
>
End Sub
>
You would call this function as:-
>
SendFileToRespo nse strFilePath, once
>
since it chunks out the content there is no need to worry about buffer

size.

However before you can use it you will need to look at what is happening
earlier in your page that is already placing unwanted content in the
response.
>
Anthony.
>
>
--
Betty
>
>
>