  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        'recupera il parametro dalla QueryString
        Dim mioParam As String
        mioParam = Me.Request.QueryString.Get("Param")
        Me.daDataAdapter.SelectCommand.Parameters("@tValue").Value = mioParam
        Me.daDataAdapter.Fill(Me.dsDataSet1)
        Dim crReport As New ReportFile
        crReport.SetDataSource(dsDataSet1)
        Dim strStream As New System.IO.BinaryReader(crReport.ExportToStream
(CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat)

        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"
        Response.BinaryWrite(strStream.ReadBytes(strStream.BaseStream.Length))
        Response.Flush()
        Response.Close()
    End Sub
