Problem displaying data in Crystal Viewer

Question

Hi,
First time posting on here, so apologies if I've got the wrong thread....
Currently developing an application that uses ASP, via a COM+ object to connect to SQL Server 2005 Db.  My problem is that since the users default printer might not be visible on the application server anymore, we have had to use a Crystal viewer on the front end to print.  To do this we have moved some code from the COM+ and placed it in an asp page. 
This page then creates a connection and runs a stored procedure, putting the results of the query into a recordset.  This is then used to populate CrystalRuntime Application, Report and PageEngine objects.  This page #Includes the SmartViewerActiveX.asp file which then in turn calls rptserver.asp.
The viewer is displayed on the screen, but with the fields displaying only the field types, no data from the Db is displayed.  I have no idea why and am at my wits end!!!   Can anyone give any advice or hints that I could investigate.  I've never used Crystal Viewer before and could do with any helpfull advice.   The SmartViewerActiveX.asp and rptserver.asp files have not been ameneded.  Do I need to do anything with the ttx files????
Thanks in advance....
Code of the originating asp page :-
<object runat=server progid = Print.print id=objPrint></object>
<object runat=server progid = com.session id=objSession></object>
<object runat=server progid = com.login id=objLogin></object>
<object runat=server progid = com.request id=objRequest></object>
<!#INCLUDE FILE="gen_funcs.asp">
<!#INCLUDE FILE="adovbs.inc">
<%
     Dim rsSession
     Dim strUserID
     Dim iUserType
     Dim strSalutation1
     Dim strNewRequestASP
     Dim rsDetails     
     Dim varRetValue
     Dim Comm
     Dim Conn
     Dim ADORs
     Dim adoRS1
     Dim adoRS2
     Dim adoRS3
     Dim oApp
     Dim oRpt
     Dim oPageEngine
     strUserID = getWindowsLogIn
     'Retrieve Session Data from session object
     Set rsSession = objSession.GetDetails(strUserID)
     strSalutation = rsSession.Fields("login_data")
     iUserType = rsSession.Fields("user_type")
     Set rsSession = Nothing
     varRetValue = "true"
If IsObject(session("oRpt")) then
     Set session("oRpt") = nothing
End if 
set Comm = Server.CreateObject("ADODB.Command")
set Conn = Server.CreateObject("ADODB.Connection")
set session("AdoRS") = Server.CreateObject("ADODB.Recordset")
Comm.CommandTimeout=60
mStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=DEV;Data Source=GBNBS1501;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=GBNBS0500;Use Encryption for Data=False;Tag with column collation when possible=False"
mstr=replace(mstr, "Integrated Security=SSPI;","")
Conn.Open Mstr & ";Trusted_Connection=no", "crystaluser", "crystalpassword"
set Comm.ActiveConnection = Conn
Comm.CommandText = "usp_get_customer_letter"
Comm.CommandType = adCmdStoredProc
Comm.Parameters.Append Comm.CreateParameter("@requestID", adBigInt, adParamInput, 8, Request.QueryString("RequestID"))
set session("AdoRS") = Comm.Execute
If Not IsObject (session("oApp")) Then                             
     set session("oApp") = Server.CreateObject("CrystalRuntime.Application.11")
End If
If IsObject(session("oRpt")) then
     Set session("oRpt") = nothing
End if
'This "While/Wend" loop is used to determine the physical path (eg: C:\) to the
'Crystal Report file by translating the URL virtual path (eg: http://Domain/Dir) 
dim path
Path = Request.ServerVariables("PATH_TRANSLATED")                    
While (Right(Path, 1) <> "\" And Len(Path) <> 0)                     
iLen = Len(Path) - 1                                                 
Path = Left(Path, iLen)                                              
Wend                                                                               
path=path + "Reports\"
set session("oRpt") = session("oApp").OpenReport(path & "Letter.rpt", 1) 
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False
session("oRpt").DiscardSavedData
Set crDatabase = session("oRpt").Database
Set crTables = crDatabase.Tables
Set crTable = crTables.Item(1)
crTable.SetPrivateData 3, session("AdoRS")
on error resume next
     adoRS1 = objPrint.GetSubReportSuccessful(Request.QueryString("RequestID"))
     adoRS2 = objPrint.GetSubReportUnsuccessful(Request.QueryString("RequestID"))
        'This section adds subreport data for successful traces to the letter
     If adoRS1.EOF = False Then
             Set crSections = session("oRpt").Sections
              For x = 1 To crSections.Count
                  Set crSection = crSections(x)
                  Set crReportObjs = crSection.ReportObjects
                      For y = 1 To crReportObjs.Count
                          If crReportObjs.Item(y).Kind = crSubreportObject Then
                              Set crSubreportObj = crReportObjs.Item(y)
                              If crSubreportObj.Name = "Schemes" Or crSubreportObj.Name = "WelshSchemes" Then
                                  Set crSubreport = session("oRpt").OpenSubreport(crReportObjs(y).Name)
                                  crSubreport.DiscardSavedData
                                  Set crDatabase = crSubreport.Database
                                  Set crTables = crDatabase.Tables
                                  Set crTable = crTables.Item(1)
                                  crTable.SetPrivateData 3, adoRS1
                              End If
                          End If
                      Next
              Next
          End If
        'This section adds subreport data for unsuccessful traces to the letter
           If adoRS2.EOF = False Then
             Set crSections = session("oRpt").Sections
              For x = 1 To crSections.Count
                  Set crSection = crSections(x)
                  Set crReportObjs = crSection.ReportObjects
                      For y = 1 To crReportObjs.Count
                         If crReportObjs.Item(y).Kind = crSubreportObject Then
                              Set crSubreportObj = crReportObjs.Item(y)
                              If crSubreportObj.Name = "Unsuccessful_traces" Then
                                  Set crSubreport = oRpt.OpenSubreport(crReportObjs(y).Name)
                                  crSubreport.DiscardSavedData
                                  Set crDatabase = crSubreport.Database
                                  Set crTables = crDatabase.Tables
                                  Set crTable = crTables.Item(1)
                                  crTable.SetPrivateData 3, adoRS2
                              End If
                          End If
                      Next
              Next
          End If
session("oRpt").ReadRecords
If IsObject(session("oPageEngine")) Then                             
     set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
set Conn = nothing
set Comm = nothing
%>
<!-- #include file="SmartViewerActiveX.asp" -->
<%

Answer 1

Here's the code...
<object runat=server progid = Print.print id=objPrint></object>
<object runat=server progid = com.session id=objSession></object>
<object runat=server progid = com.login id=objLogin></object>
<object runat=server progid = com.request id=objRequest></object>
<!#INCLUDE FILE="gen_funcs.asp">
<!#INCLUDE FILE="adovbs.inc">
<%
     Dim rsSession
     Dim strUserID
     Dim iUserType
     Dim strSalutation1
     Dim strNewRequestASP
     Dim rsDetails     
     Dim varRetValue
     Dim Comm
     Dim Conn
     Dim ADORs
     Dim adoRS1
     Dim adoRS2
     Dim adoRS3
     Dim oApp
     Dim oRpt
     Dim oPageEngine
     strUserID = getWindowsLogIn
     'Retrieve Session Data from session object
     Set rsSession = objSession.GetDetails(strUserID)
     strSalutation = rsSession.Fields("login_data")
     iUserType = rsSession.Fields("user_type")
     Set rsSession = Nothing
     varRetValue = "true"
If IsObject(session("oRpt")) then
     Set session("oRpt") = nothing
End if 
set Comm = Server.CreateObject("ADODB.Command")
set Conn = Server.CreateObject("ADODB.Connection")
set session("AdoRS") = Server.CreateObject("ADODB.Recordset")
Comm.CommandTimeout=60
mStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=DEV;Data Source=GBNBS1501;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=GBNBS0500;Use Encryption for Data=False;Tag with column collation when possible=False"
mstr=replace(mstr, "Integrated Security=SSPI;","")
Conn.Open Mstr & ";Trusted_Connection=no", "crystaluser", "crystalpassword"
set Comm.ActiveConnection = Conn
Comm.CommandText = "usp_get_customer_letter"
Comm.CommandType = adCmdStoredProc
Comm.Parameters.Append Comm.CreateParameter("@requestID", adBigInt, adParamInput, 8, Request.QueryString("RequestID"))
set session("AdoRS") = Comm.Execute
If Not IsObject (session("oApp")) Then                             
     set session("oApp") = Server.CreateObject("CrystalRuntime.Application.11")
End If
If IsObject(session("oRpt")) then
     Set session("oRpt") = nothing
End if
'This "While/Wend" loop is used to determine the physical path (eg: C:\) to the
'Crystal Report file by translating the URL virtual path (eg: http://Domain/Dir) 
dim path
Path = Request.ServerVariables("PATH_TRANSLATED")                    
While (Right(Path, 1) <> "\" And Len(Path) <> 0)                     
iLen = Len(Path) - 1                                                 
Path = Left(Path, iLen)                                              
Wend                                                                               
path=path + "Reports\"
set session("oRpt") = session("oApp").OpenReport(path & "Letter.rpt", 1) 
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False
session("oRpt").DiscardSavedData
Set crDatabase = session("oRpt").Database
Set crTables = crDatabase.Tables
Set crTable = crTables.Item(1)
crTable.SetPrivateData 3, session("AdoRS")
on error resume next
     adoRS1 = objPrint.GetSubReportSuccessful(Request.QueryString("RequestID"))
     adoRS2 = objPrint.GetSubReportUnsuccessful(Request.QueryString("RequestID"))
        'This section adds subreport data for successful traces to the letter
        If adoRS1.EOF = False Then
             Set crSections = session("oRpt").Sections
              For x = 1 To crSections.Count
                  Set crSection = crSections(x)
                  Set crReportObjs = crSection.ReportObjects
                      For y = 1 To crReportObjs.Count
                          If crReportObjs.Item(y).Kind = crSubreportObject Then
                              Set crSubreportObj = crReportObjs.Item(y)
                              If crSubreportObj.Name = "Schemes" Or crSubreportObj.Name = "WelshSchemes" Then
                                  Set crSubreport = session("oRpt").OpenSubreport(crReportObjs(y).Name)
                                  crSubreport.DiscardSavedData
                                  Set crDatabase = crSubreport.Database
                                  Set crTables = crDatabase.Tables
                                  Set crTable = crTables.Item(1)
                                  crTable.SetPrivateData 3, adoRS1
                              End If
                          End If
                      Next
              Next
          End If
        'This section adds subreport data for unsuccessful traces to the letter
           If adoRS2.EOF = False Then
             Set crSections = session("oRpt").Sections
              For x = 1 To crSections.Count
                  Set crSection = crSections(x)
                  Set crReportObjs = crSection.ReportObjects
                      For y = 1 To crReportObjs.Count
                         If crReportObjs.Item(y).Kind = crSubreportObject Then
                              Set crSubreportObj = crReportObjs.Item(y)
                              If crSubreportObj.Name = "Unsuccessful_traces" Then
                                  Set crSubreport = oRpt.OpenSubreport(crReportObjs(y).Name)
                                  crSubreport.DiscardSavedData
                                  Set crDatabase = crSubreport.Database
                                  Set crTables = crDatabase.Tables
                                  Set crTable = crTables.Item(1)
                                  crTable.SetPrivateData 3, adoRS2
                              End If
                          End If
                      Next
              Next
          End If
session("oRpt").ReadRecords
If IsObject(session("oPageEngine")) Then                             
     set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
set Conn = nothing
set Comm = nothing
%>
<!-- #include file="SmartViewerActiveX.asp" -->
<%