Cannot export reports with CR8.5 RDC under Windows 2003

Question

<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer = True
%>
<% SERVER.SCRIPTTIMEOUT=50000%>
<!-- #include file="license_info.asp" -->
<!-- #include file="config.asp" -->
<%
Dim objConnection
Dim objRS
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "FAMS_DSN_SIT", cstr(userid), cstr(password)
'response.write GetNActive
If GetNActive > 5 THEN
     Response.write "<b><FONT align=center face=arial,helveltica,sans-sarif size=3> Server is too busy. Please try again later.</b>"
     Response.end
End if
IF GetNActive<=5 THEN
'Nagesh added
  Dt_Frm="20020101"
  Dt_To="20020102"
  Dt_Frm1="20020101"
  Dt_To1="20020102"
reportname="B087.RPT"
' CREATE THE APPLICATION OBJECT                                                                    
If Not IsObject (session("oApp")) Then                             
Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")
End If       
' CREATE THE REPORT OBJECT                                    
'The Report object is created by calling the Application object's OpenReport method.
Path = Request.ServerVariables("PATH_TRANSLATED")                    
While (Right(Path, 1) <> "\" And Len(Path) <> 0)                     
iLen = Len(Path) - 1                                                 
Path = Left(Path, iLen)                                              
Wend      
'OPEN THE REPORT (but destroy any previous one first)                                                    
If IsObject(session("oRpt")) then
     'Set session("oRpt") = nothing
End if   
'RESPONSE.WRITE PATH & REPORTNAME
Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1)
Set DatabaseTablesCollection = Session("oRpt").Database.Tables
For Each Table in DatabaseTablesCollection
'  ' Table.SetLogonInfo "FAMS_DSN", "", cstr(userid), cstr(password)
   Table.SetLogonInfo "FAMS_DSN_SIT", "", cstr(userid), cstr(password)
Next
'session("oRpt1").MorePrintEngineErrorMessages = False
'session("oRpt1").EnableParameterPrompting = False
'session("oRpt1").DiscardSavedData
set session("ParamCollection") = Session("oRpt").Parameterfields             
'This line creates an object to represent the collection of parameter
'fields that are contained in the report.                                                              
reportname  =  UCASE(TRIM(reportname))
strSQL = "SELECT FAMS_VW_MEN_RPT_B87.CASE_NO, FAMS_VW_MEN_RPT_B87.COMP_NAM, FAMS_VW_MEN_RPT_B87.COMP_ID,  "
     strSQL = strSQL & "FAMS_VW_MEN_RPT_B87.RESP_NAM, FAMS_VW_MEN_RPT_B87.RESP_ID, FAMS_VW_MEN_RPT_B87.JUDGE_NAME, FAMS_VW_MEN_RPT_B87.NATURE_OF_COMP, "
     strSQL = strSQL & "FAMS_VW_MEN_RPT_B87.COURT_NO, FAMS_VW_MEN_RPT_B87.JDG_ID, "
     strSQL = strSQL & "FAMS_MASTER_DETAIL.ITEM_DESC1, to_char(FAMS_VW_MEN_RPT_B87.MENTION_DATE,'yyyymmdd') "
     strSQL = strSQL & "FROM FAMS_VW_MEN_RPT_B87 FAMS_VW_MEN_RPT_B87, FAMS_MASTER_DETAIL FAMS_MASTER_DETAIL  "
     strSQL = strSQL & "WHERE FAMS_VW_MEN_RPT_B87.COURT_NO = FAMS_MASTER_DETAIL.ITEM_CODE() AND FAMS_MASTER_DETAIL.MSTR_TYPE() = 'CRT' AND "
     strSQL = strSQL & "(to_char(FAMS_VW_MEN_RPT_B87.MENTION_DATE,'yyyymmdd')) >= '" &Dt_Frm & "' AND "
     strSQL = strSQL & "(to_char(FAMS_VW_MEN_RPT_B87.MENTION_DATE,'yyyymmdd')) <= '" &Dt_To & "' "
     strSQL = strSQL & "ORDER BY FAMS_VW_MEN_RPT_B87.COURT_NO ASC "
     set objRS = objConnection.Execute(strSQL)
          If not objRS.EOF then
               set Param1 =  session("ParamCollection").Item(1)
               'ParamValue1=Request.QueryString("COURT_NO")
               ParamValue1="1"
               if ParamValue1 = "" then
                    ParamValue1 = "-"
               End if
               Call Param1.SetCurrentValue (CStr(ParamValue1),12)
               set Param2 =  session("ParamCollection").Item(2)
               'ParamValue2=Request.QueryString("DATE_FROM")
'               Call Param2.SetCurrentValue (CStr(ParamValue2),12)
               Call Param2.SetCurrentValue (CStr(Dt_Frm),12)
               set Param3 =  session("ParamCollection").Item(3)
               'ParamValue3=Request.QueryString("DATE_TO")
'               Call Param3.SetCurrentValue (CStr(ParamValue3),12)
               Call Param3.SetCurrentValue (CStr(Dt_To),12)
               set Param4 =  session("ParamCollection").Item(4)
               'ParamValue4=Request.QueryString("JDG_ID")
                ParamValue4=""
               if ParamValue4 = "" then
                    ParamValue4 = "-"
               End if
               Call Param4.SetCurrentValue (CStr(ParamValue4),12)
     'Testing -- to get the data from database end
     'Expoert into DOC
Set CrystalExportOptions = Session("oRpt").ExportOptions
ExportFileName = "BO87.doc"
dPath = Request.ServerVariables("PATH_TRANSLATED")                    
While (Right(dPath, 1) <> "\" And Len(dPath) <> 0)                     
diLen = Len(dPath) - 1                                                 
dPath = Left(dPath, diLen)                                              
Wend
ExportDirectory = dPath
ExportType = "14"
CrystalExportOptions.DiskFileName = ExportDirectory & ExportFileName
CrystalExportOptions.FormatType = CInt(ExportType)
CrystalExportOptions.DestinationType = CInt(1)
Session("oRpt").Export False 
Response.Redirect (ExportFileName)
set session("oPageEngine") = nothing
set session("oRpt") = nothing
set session("oApp") = nothing
Session.Contents.Remove("oPageEngine")
Session.Contents.Remove("oRpt")
Session.Contents.Remove("oApp")
objRs.Close
          Else
               objRs.Close
               Response.write "<center><b>No Record Found</b> </center>"
               Response.end
          End if
end if
%>

Answer 1

Hello,
Here's VB code to export to PDF, convert to ASP and test again. If it works in our viewer then it should work in code:
With rpt.ExportOptions
    .DiskFileName = "c:\report.pdf"
    .PDFExportAllPages = True
    .FormatType = crEFTPortableDocFormat
    .DestinationType = crEDTDiskFile
End With
rpt.Export False
Make sure the export destiantion has permission to be written to by any user.
Thanks again
Don