<% ' Get QS variables rpttoview = request.querystring("rpt") viewer = request.querystring("init") 'build full path for report rpttoview = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-11)) & "\craze\" & rpttoview & ".rpt" ' build path to MDB pathtomdb = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-19)) & "\craze.mdb" ' Only create the Crystal Application Object on first time through If Not IsObject ( session ("oApp")) Then Set session ("oApp") = Server.CreateObject("Crystal.CRPE.Application") End If ' Turn off all Error Message dialogs Set oGlobalOptions = Session ("oApp").Options oGlobalOptions.MorePrintEngineErrorMessages = 0 ' Open the report Set session("oRpt") = session("oApp").OpenReport(rpttoview) ' Turn off sepecific report error messages Set oRptOptions = Session("oRpt").Options oRptOptions.MorePrintEngineErrorMessages = 0 ' now set the table location Set oDB = session("oRpt").Database For Each oDBTable In oDB.Tables oDBTable.Location = pathtomdb Next ' Opening the page engine will cause the data to be read Set session("oPageEngine") = session("oRpt").PageEngine ' Now decide what viewer to create Select Case viewer Case "java" %> <% Case "actx" %> <% Case "html_frame" response.redirect "htmstart.asp" Case "html_page" response.redirect "rptserver.asp" end select %>