Crystal report 10 error - Help required

Question

I am using crystal report 10.0.0.533 - Crystal report developer edition.
All of my reports are working fine without any issue, except one report.
It throws the below error message:
Crystal Reports ActiveX Designer error '80047cbd'
*You are attempting to use functionality that falls under the Crystal Decisions Report Creation API license. This system does not have a valid license, or the evaluation copy of the license has expired. Please contact Crystal Decisions to obtain a Report Creation API license.*
/egads/Reports/EventDataRep.asp, line 68
At line number 68 we have below code:
Tables.Add "", , Session("oRecRep"), , "p2smon.dll"
This report was earlier used for Crystal 8.5. However Crystal 10 no longer uses p2smon.dll.
Alternative dll in Crystal report 10 is crdb_ado.dll, I replaced it in the code, however still it is not working.
Could anyone please help me with this issue?

Answer 1

Even after replacing with crdb_cdo.dll...I am getting same error..
Below is the code:
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRec = Server.CreateObject("ADODB.Recordset")
Set oRecRep = Server.CreateObject("ADODB.Recordset")
oConn.Open strEGadsUIDConn
strSQL = "SELECT CRYSTAL_XML_STRING, CRYSTAL_QUERY_STRING FROM TEMP_CRYSTAL_REPORT WHERE USER_ID = '" & strUserId & "' "
Set oRec = oConn.Execute(strSQL)
If Not oRec.EOF Then
     strXMLString = oRec("CRYSTAL_XML_STRING")
     strSQLQuery = oRec("CRYSTAL_QUERY_STRING")
End If     
strSQLQuery = Replace(strSQLQuery, "%", "'", 1)
Set Session("oRecRep") = oConn.Execute(strSQLQuery)
If Not Session("oRecRep").EOF Then
     Session("oRecRep").MoveFirst
End If     
' CREATE THE APPLICATION OBJECT                                                                    
If Not IsObject (session("oApp")) Then                             
     Set session("oApp") = Server.CreateObject("CrystalRuntime.Application.10")
'Set session("oApp") = Server.CreateObject("Crystal.CRPE.Application")
End If                                                               
Path = Request.ServerVariables("PATH_TRANSLATED")                    
While (Right(Path, 1) <> "\" And Len(Path) <> 0)                     
iLen = Len(Path) - 1                                                 
Path = Left(Path, iLen)                                              
Wend                                                                               
'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)                                                                       
'OPEN THE REPORT (but destroy any previous one first)                                                    
If IsObject(session("oRpt")) then
     Set session("oRpt") = nothing
End if
'Set session("oRpt") = session("oApp").NewReport
reportname = "rptEventDataTemplate.rpt"
Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1)
'Set oRptOptions = Session("oRpt").Options
session("oRpt").MorePrintEngineErrorMessages = 0
session("oRpt").DiscardSavedData
'session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = 0
session("oRpt").PaperOrientation = 2
Set Database = session("oRpt").Database
'Instantiate the Database Collection
Set Tables = Database.Tables
'Instantiate the Tables Collection
Tables.Add "", , Session("oRecRep"), , "crdb_cdo.dll"
Set FirstTable = Tables.Item(1)
Set Fields = FirstTable.Fields
'Set Group Name
GroupField = "{ado.UNIT_NAME}"
For i = 1 to Fields.Count
     result = strcomp(Fields.Item(cint(i)).Name,cstr(GroupField))
     If cint(result) = 0 then
          Set GroupFieldIs = Fields.Item(cint(i))
     end if
next
Select Case cstr(SortDirection)
     Case "Ascending"  intsortdirection = 0
     Case "Descending" intsortdirection = 1
     Case "Original Order" intsortdirection = 2