Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Private Report As New ReportDocument()
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
Dim path As String = Server.MapPath("file_recycle_bin")
Dim reportLocation As String = Server.MapPath("report/price.rpt")
With Report
.Load(reportLocation)
.SetDataSource(Session("dtM"))
.SetParameterValue("SDATE", Session("SDATE"))
.SetParameterValue("HEAD_TEXT", Session("HEAD_TEXT"))
.SetParameterValue("USER", Session("USER_NAME"))
End With