Dim myExportOption As CrystalDecisions.Shared.ExportOptions
        Dim myDiskFileOption As CrystalDecisions.Shared.DiskFileDestinationOptions
        Dim myExportFile As String
        Dim myReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim rptLogInfo As New CrystalDecisions.Shared.TableLogOnInfo

        Dim p As New CrystalDecisions.Shared.ParameterValues
        Dim cP As New CrystalDecisions.Shared.ParameterDiscreteValue

        Try
            cP.Value = CInt(Request.QueryString( 1 ).Trim)
            p.Add(cP)
            rptLogInfo.ConnectionInfo.ServerName = System.Configuration.ConfigurationSettings.AppSettings.Get("DBSrv")
            rptLogInfo.ConnectionInfo.DatabaseName = System.Configuration.ConfigurationSettings.AppSettings.Get("DB")

            rptLogInfo.ConnectionInfo.UserID = user_login
            rptLogInfo.ConnectionInfo.Password = user_pass

            myReport.Load(Session("CardDBConnect").report.trim + c.ReportName)
            myReport.Database.Tables( 0 ).ApplyLogOnInfo(rptLogInfo)
            myExportFile = Session("CardDBConnect").tempDir & Session.SessionID.ToString & ".pdf"
            myDiskFileOption = New CrystalDecisions.Shared.DiskFileDestinationOptions
            myDiskFileOption.DiskFileName = myExportFile
            myExportOption = myReport.ExportOptions
            With myExportOption
                .DestinationOptions = myDiskFileOption
                .ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
                .ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
            End With
            myReport.DataDefinition.ParameterFields("IDCard").ApplyCurrentValues(p)
            myReport.Export()

            Response.ClearContent()
            Response.ClearHeaders()
            Response.ContentType = "application/pdf"
            Response.WriteFile(myExportFile)
            Response.Flush()
            Response.Close()
            ''Response.Redirect(".\Temp\" + Session.SessionID.ToString + ".rtf")
            System.IO.File.Delete(myExportFile)
        Catch ex As Exception
            Response.Write("<FONT SIZE = 2 COLOR = red><B>Помилка.</br>" + ex.Message + "</B></FONT>")
        End Try
    End Sub