Response.Redirect of pdf files

[wendigt]

Help! I need to do a redirect to pdf files. The web browser seems to redirect to the server, but the page is not loaded. It only loads upon refresh. I've tried the following:

Response.ContentType = "application/pdf"
Response.Redirect "

http://www.....file.pdf"

I've also seen examples and have been unsuccessful with ADODB.Stream objects.

Is this even possible? BTW, I'm NOT using .NET. I'm developing in ASP (VBScript).

ANY advice is greatly appreciated!

Thanks!
Wendi

 

[snowboardr]

<%
Dim Stream
Dim Contents
Dim FileName
FileName = &quot;c:\html.pdf&quot;

Response.ContentType = &quot;application/octet-stream&quot;
Response.AddHeader &quot;content-disposition&quot;, &quot;attachment; filename=&quot; & FileName
Set Stream = server.CreateObject(&quot;ADODB.Stream&quot
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
Contents = Stream.ReadText
Response.BinaryWrite Contents
Stream.Close
Set Stream = Nothing
%>
www.vzio.com
ASP WEB DEVELOPMENT

 

[vpekulas]

Does the
server.redirect
do the same thing ?

http://www.Europeum.net

 

[snowboardr]

If you mean response.redirect then no, the above code i posted, forces a download... so if you wanted to download pdf, or and asp file, it will show the save dialog box. www.vzio.com
ASP WEB DEVELOPMENT

 

[wendigt]

Right, I want to show pdf, not download it. An important note also is that the pdf resides on another server, not locally on disk. I've also tried the code at bottom of this post, but get error:

&quot;The script reported following error: File could not be opened. (error number 0x800A0BBA hex)

In file /webformresultdownloadECR.asp

on line 101, position 1 :


objStream.LoadFromFile FilePath&quot;



Here is the code:

strRedirect = &quot;

http://www.selltis.com/SelltisBrochure.pdf&quot;

SendStreamToBrowser LoadStream (Server.MapPath(strRedirect)), strRedirect, False, True


Function LoadStream(FilePath)
Dim objStream

Set objStream = Server.CreateObject(&quot;ADODB.Stream&quot

objStream.Type = 1
objStream.Open

objStream.LoadFromFile FilePath
LoadStream = objStream.Read

objStream.Close
Set objStream = Nothing
End Function


sub SendStreamToBrowser(FileStream, FileName, ContentType, IsInline)
Dim FileExt, FileSize

on error resume next

Response.Clear

FileExt = mid(FileExt, instrrev(FileName,&quot;.&quot + 1)
FileSize = Ubound(FileStream) + 1

Response.AddHeader &quot;Connection&quot;, &quot;keep-alive&quot;
Response.AddHeader &quot;Content-Length&quot;, FileSize

If IsInline = True then
Response.AddHeader &quot;Content-Disposition&quot;,&quot;inline; filename=&quot; & FileName
Else
Response.AddHeader &quot;Content-Disposition&quot;,&quot;attachment; filename=&quot;&quot;&quot; & FileName & &quot;&quot;&quot;&quot;
End If

select case ContentType
case false
Response.ContentType = &quot;application/octet-stream&quot;
Response.Charset = &quot;UTF-8&quot;

case else
Response.ContentType = ContentType
end select

Response.BinaryWrite(FileStream)
Response.Flush
end sub