I got following code to work but still wondering if there is built in function in new version like before.
Code:
------------------------------------------------------------------
fname = Server.MapPath(".") & "\Test.pdf"
fs = File.Open(fname, FileMode.Open)
Dim data(fs.Length) As Byte
fs.Read(data, 0, fs.Length)
fs.Close()
Response.Clear()
Response.Charset = ""
Response.ContentType = "application/pdf"
Response.AddHeader("Content-Disposition", "inline;filename=" & Session("SearchInvoiceNum") & ".pdf")
Response.BinaryWrite(data)
Response.End()