<%@ Language=VBSCRIPT %> <% Option Explicit %> <% On Error Resume Next ‘ Declare Binary Object Variables Dim vntStream3, binObj3 ‘ Turn Buffer On (Must be enabled in Server Settings) Response.Buffer = true ‘ Declare PDF Filename Variable Dim strPdfFileName strPdfFileName = Server.MapPath(“/PDFs/My_PDF.pdf”) ‘ Create Binary Read Buffer Object Set binObj3 = Server.CreateObject("binReadWriteBuf.BinRead") ‘ Set the Response MIME or Content Type = PDF Response.ContentType = "application/pdf" ‘ Load Binary File to Object Variable vntStream3 = binObj3.readBinFile(cPdfFileName) ‘ Write the Variable to Buffer Response.BinaryWrite vntStream3 ‘ Close Object Set binObj3 = Nothing ‘ Clear errors err.Clear ‘ End Response Response.End %>
