Crystal Web Viewer executing stored procedure when going to next/prev page

Question

We are using VS.NET 2005 with SP1 to design reports and embed them in an aspnet web app. Some of them take a while to run, even in the designer. In the designer, however, next page and print operations are speedy. In the web viewer, next page and print operations are agonizingly slow.
Viewing page 2 of a report seems to take about as long as viewing page
1. After running SQL Profiler to trace the report, it is apparent that the entire report (Stored Procedure Call) is being re-run and just page 2 is being sent to the browser.
Is this right?
Shouldn't the report document be stored on the server or event the client so that the desired page can be loaded without having to hit the database again??
We are using Business Objects Crystal Reports XI Release 2
Do you have a sample code on this issue.

Answer 1

It still did not work.  As you see my code has the Not Page.IsPostBack.  It still goes to the database to run the stored procedure over and over again.
Do an example with more than 100 records to have multiple pages.  After you go to page #2, change your data by updating one of your fields that will not fit the criteria you are looking for.  In this example I changed the strPeriod from 1 to 2 and it gives you a blank report.
update PeriodTable
set fieldPeriod = 2
< h3>Here is the code:</h3>
Imports System.Xml
Imports System.data
Imports System.IO
Imports System.Text
Imports System.Configuration
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Partial Public Class viewreport
    Inherits System.Web.UI.Page
    Private _dsContacts As DataSet
    Dim strUser, strReport, strPeriod, strRegionType, strRegion, strDate, strUnit As String
    Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Try
            If Not Page.IsPostBack Then
                If Not Page.User.Identity.IsAuthenticated Then
                    Response.Redirect("default.aspx")
                End If
                strUser = Request.QueryString("strUser")
                strReport = Request.QueryString("strReport")
                strPeriod = Request.QueryString("strPeriod")
                strRegionType = Request.QueryString("strRegionType")
                strRegion = Request.QueryString("strRegion")
                strDate = Request.QueryString("strDate")
                strUnit = Request.QueryString("strUnit")
                If strUser <> "" And strReport <> "" Then
                    ConfigureCrystalReports()
                Else
                    lblMessage.Text = "Values for the report where not received properly.<br /><br />" & strReport & "<br /><br />Please contact your Commissions Reporting Administrator<br /><br />"
                End If
            End If
        Catch ex As Exception
            ErrorRoutine(ex, "Page_Load")
        End Try
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GlobalCode.DisplayTitle("MetLife - Commissions Administration - Report Viewer", Page)
    End Sub
    Private Sub ConfigureCrystalReports()
        Try
            Dim i, j As Integer
            Dim ParameterValue As String
            _dsContacts = Nothing
            _dsContacts = New DataSet
            _dsContacts.ReadXml(Server.MapPath("XML\ReportFiles.xml"))
            For i = 0 To _dsContacts.Tables(0).Rows.Count - 1
                If Trim(UCase(_dsContacts.Tables(0).Rows(i)("FileName").ToString)) = Trim(UCase(strReport)) Then
                    Dim conn As ConnectionInfo = New ConnectionInfo()
                    Dim reportPath As String = Server.MapPath("Reports/" & _dsContacts.Tables(0).Rows(i)("FileName").ToString)
                    If Not File.Exists(reportPath) Then
                        lblMessage.Text = "Report does not exists in our servers.<br /><br />" & reportPath & "<br /><br />Please contact your Commissions Reporting Administrator<br /><br />"
                        Exit Sub
                    End If
                    conn.DatabaseName = _dsContacts.Tables(0).Rows(i)("Database").ToString
                    conn.UserID = _dsContacts.Tables(0).Rows(i)("UserID").ToString
                    conn.Password = _dsContacts.Tables(0).Rows(i)("Password").ToString
                    Dim ConnInfo As New ConnectionInfo
                    With ConnInfo
                        .DatabaseName = _dsContacts.Tables(0).Rows(i)("Database").ToString
                        .UserID = _dsContacts.Tables(0).Rows(i)("UserID").ToString
                        .Password = _dsContacts.Tables(0).Rows(i)("Password").ToString
                    End With
                    ParameterValue = ""
                    CRViewer.ReportSource = reportPath
                    CRViewer.ParameterFieldInfo.Clear()
                    Dim ParamFields As ParameterFields = CRViewer.ParameterFieldInfo
                    Dim reportSeparation As New ReportDocument()
                    reportSeparation.Load(reportPath)
                    For j = 0 To reportSeparation.ParameterFields.Count - 1
                        Dim param As New ParameterField
                        param.Name = reportSeparation.ParameterFields.Item(j).Name
                        Select Case param.Name
                            Case "VRPTTYPE"
                                ParameterValue = strRegionType
                            Case "VPARAM"
                                ParameterValue = strRegion
                            Case "VUSER"
                                ParameterValue = strUser
                            Case "VDATE"
                                ParameterValue = strDate
                            Case "VUNIT"
                                ParameterValue = strUnit
                            Case "VPERIOD"
                                ParameterValue = strPeriod
                            Case Else
                                lblMessage.Text = "<h1>Report has parameters not expected.</h1><br /><br /><h2>" & reportPath & "</h2><br /><br />Please contact your Commissions Reporting Administrator<br /><br />"
                                Exit Sub
                        End Select
                        Dim param_Value As New ParameterDiscreteValue
                        param_Value.Value = ParameterValue
                        param.CurrentValues.Add(param_Value)
                        ParamFields.Add(param)
                    Next '
                    For Each cnInfo As TableLogOnInfo In CRViewer.LogOnInfo
                        cnInfo.ConnectionInfo = ConnInfo
                    Next
                    CRViewer.DataBind()
                    Exit Sub
                End If
            Next
        Catch ex As Exception
            ErrorRoutine(ex, "ConfigureCrystalReports")
        End Try
    End Sub
    Public Sub ErrorRoutine(ByVal ex As Exception, ByVal Routine As String)
        GlobalCode.ErrorRoutine(ex, Routine, Master)
    End Sub
End Class