<!DOCTYPE html> <html> <head> <title></title> </head> <body> <% Dim strPDF strPDF= \"D:\\ODBC.pdf\" Set oFileStream = Server.CreateObject(\"ADODB.Stream\") oFileStream.Open oFileStream.Type = 1 'Binary oFileStream.LoadFromFile strPDF Response.ContentType = \"application/pdf\" Response.AddHeader(\"Content-Disposition\", \"inline; filename=\" + strPDF) Response.BinaryWrite(oFileStream.Read) oFileStream.Close Set oFileStream= Nothing %> </body> </html>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)