ReportsMan
MIS
Trying to find correct syntax for using RDC via ASP to run reports via Web.
I have looked at the Crystal Samples, the Seagate KnowledgeBase, and now here with no luck at finding something that would help - so I post.
Here is my code - with the "suggested" modifications per Seagate KB article C2006178 - the nice window opens up the Seagate Icon spins for a short time and then - nuthin. The report works fine in Ver8 design but will not open via the Web. Also, I am running Crystal 7 on my production box using the CRPE and it runs just fine. Any thoughts on this appreciated - here is my code:
'--> CREATE THE APPLICATION OBJECT
If IsObject(oApp) then
Set oApp = nothing
End if
Set oApp = Server.CreateObject("CrystalRuntime.Application"
if ((Err <> 0) or (not IsObject(oApp))) then
set oApp = nothing
response.redirect "intro.htm"
end if
If IsObject(oRpt) then
Set oRpt = nothing
End if
Set oRpt = oApp.OpenReport(Path & reportname, 1)
if ((Err <> 0) or (not IsObject(oRpt))) then
set oApp = nothing
set oRpt = nothing
response.redirect "intro.htm"
end if
oRpt.MorePrintEngineErrorMessages = False
oRpt.EnableParameterPrompting = False
'--> SET THE LOCATION
oApp.LogonServer "p2sodbc.dll", CStr(DSN2), CStr(DatabaseNam), Cstr(uid), Cstr(pword)
set crtable = oRpt.Database.Tables(1)
crtable.SetLogonInfo CStr(DSN2), CStr(DatabaseNam), Cstr(uid), Cstr(pword)
I have looked at the Crystal Samples, the Seagate KnowledgeBase, and now here with no luck at finding something that would help - so I post.
Here is my code - with the "suggested" modifications per Seagate KB article C2006178 - the nice window opens up the Seagate Icon spins for a short time and then - nuthin. The report works fine in Ver8 design but will not open via the Web. Also, I am running Crystal 7 on my production box using the CRPE and it runs just fine. Any thoughts on this appreciated - here is my code:
'--> CREATE THE APPLICATION OBJECT
If IsObject(oApp) then
Set oApp = nothing
End if
Set oApp = Server.CreateObject("CrystalRuntime.Application"
if ((Err <> 0) or (not IsObject(oApp))) then
set oApp = nothing
response.redirect "intro.htm"
end if
If IsObject(oRpt) then
Set oRpt = nothing
End if
Set oRpt = oApp.OpenReport(Path & reportname, 1)
if ((Err <> 0) or (not IsObject(oRpt))) then
set oApp = nothing
set oRpt = nothing
response.redirect "intro.htm"
end if
oRpt.MorePrintEngineErrorMessages = False
oRpt.EnableParameterPrompting = False
'--> SET THE LOCATION
oApp.LogonServer "p2sodbc.dll", CStr(DSN2), CStr(DatabaseNam), Cstr(uid), Cstr(pword)
set crtable = oRpt.Database.Tables(1)
crtable.SetLogonInfo CStr(DSN2), CStr(DatabaseNam), Cstr(uid), Cstr(pword)