Program to save CR9 generated PDF into system

Hi,

I have a sample code that automatically exports a Crystal Report into PDF and displays it in a browser.

What I need to do now is to save this .pdf file into my harddisk without having the user to manually click File->Save As...

Is there an object or function to execute such a task?

I'm using ASP.

Here is the sample code I'm using.



<%@ Language=VBScript CodePage=65001 %>

<%
'=====================================================================
' WORKING WITH RAS AND ASP TO EXPORT REPORTS
'=====================================================================

' This line creates a string variable called reportName that we will use to pass
' the Crystal Report file name (.rpt file) to the OpenReport method

reportName = "SimpleReportExport.rpt"

' Use the Object Factory object to create other RAS objects (useful for versioning changes)
Set objFactory = CreateObject("CrystalReports.ObjectFactory")
      
' This "While/Wend" loop is used to determine the physical path (eg: C:\) to the
' Crystal Report .rpt by translating the URL virtual path (eg: http://Domain/Dir)  
Dim path, iLen
path = Request.ServerVariables("PATH_TRANSLATED")                    
While (Right(path, 1) <> "\" And Len(path) <> 0)                      
iLen = Len(path) - 1                                                  
path = Left(path, iLen)                                              
Wend      
                                                                                                                                   
' Create a new ReportClientDocument object
Set oClientDoc = objFactory.CreateObject("CrystalClientDoc.ReportClientDocument")

' Specify the RAS Server (computer name or IP address) to use.
' This property should be used ONLY when the SDK and RAS Service are running on separate machines.
'Session("oClientDoc").ReportAppServer = "[COMPUTER NAME]"

' Open the report object to initialize the ReportClientDocument
oClientDoc.Open path & reportName


'==================================================================
' WORKING WITH PRINT OUTPUT CONTROLLER
'==================================================================

Dim byteArray, bufArray

' Constants - All available export format types
crReportExportFormatCrystalReports = 0                        'Crystal Report
crReportExportFormatMSWord  = 1                               'Microsoft Word
crReportExportFormatMSExcel = 2                                    'Microsoft Excel
crReportExportFormatRTF = 3                                          'Rich Text Format
crReportExportFormatPDF = 5                                          'Adobe PDF
crReportExportFormatRecordToMSExcel = 6                        'Microsoft Excel (Data Only)
crExportFormatText = 7                                                'Plain Text
crReportExportFormatCharacterSeparatedValues = 8      'Comma Separated Values


' Retrieve byteArray from the PrintOutputController
Set byteArray = oClientDoc.PrintOutputController.Export(crReportExportFormatPDF)


'==================================================================
' SETUP THE RESPONSE OBJECT ATTRIBUTES
'==================================================================

' Clear the Response object
Response.Clear

' Add a custom header for an inline file type with a default file name
Response.AddHeader "content-disposition", "inline;filename=CrystalReport.pdf"

' Set the Content Type to application/pdf
Response.ContentType = "application/pdf"

' Send the bytearray to the browser through the Response object, used
' detachArray method for quicker tranfer of data
Response.BinaryWrite byteArray.detachArray

%>