asp y crystal

[Guadalupe Aguayo]

Hola

Estoy intentando mostrar un reporte de crystal en el web y me marca el siguiente error:

"Ha ocurrido un error al crear el objeto reporte: Directorio no válido."

Gracias de antemano.

[Xcorpio]

Hola Guadalupe, Bienvenida al foro. Leyendo un poco lo que comentas, creo que debes de tener el archivo RPT (El reporte) en un directorio distinto de donde tienes la hoja ASP de donde lo estas llamando. Coloca ambos al mismo nivel y prueba nuevamente. Cualquier duda, vuelve a escribir. Saludos

[Guadalupe Aguayo]

El reporte esta en el mismo nivel...

Ahora me marca otro error, cuando uso el visor ActiveX muestra la pantalla en gris, si cambio el visor SmartViewerHTMLPage me marca el siguiente error :
"CRAXDRT Error Occured on Server. Error Number: -2147221005 Error Description: 006~ASP 0177~Error en Server.CreateObject~Cadena clase no válida "

Tengo Windows XP y Crystal 10 developer.

Gracias

[Guadalupe Aguayo]

Ya reinstale crystal, ya registre un monton de librerias y nada...

[Guadalupe Aguayo]

Este es el codigo que tengo...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
reportname = "prueba.rpt"

If Not IsObject (session("oApp")) Then
Set session("oApp") = Server.CreateObject("CrystalRuntime.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

If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End if

Set session("oRpt") = session("oApp").OpenReport(Path & reportname, 1)

session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False

session("oRpt").DiscardSavedData

'set session("ParamCollection") = Session("oRpt").Parameterfields
'set Param1 = session("ParamCollection").Item(1)
'ParamValue = Request.Form("ParamValue")
'Call Param1.SetCurrentValue (CStr(ParamValue), 12)

On Error Resume Next
session("oRpt").ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source"
Else

If IsObject(session("oPageEngine")) Then
set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
End If


%>
<!-- #include file="SmartViewerHTMLPage.asp" -->

[Xcorpio]

Mira...no se si estas implementando el reporte a traves de parametros, mi recomendación es que busques en la web del foro, usando por suspuesto el motor de busquedas, varios colegas han publicado información bastante detallada con respecto a la implementación de este tipo de reportes. Revisa el material que existe....y cualquier cosa puntual, lo comentas por esta via. Saludos.