How to Export Crystal Reports Without Using the Report Viewer

Partial Class ReportViewer
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'No session object 
        If Session("Select") Is Nothing = True Then
            Response.Redirect("Default.aspx")
            Exit Sub
        End If

        Dim sel As New clsSelect
        sel = Session("Select")

        Dim cr As New clsCRExport
        Dim ResponseString As String = ""

        Try
            'Load the report
            ResponseString = cr.CRExportReport(sel)
            'Get the error
            If ResponseString <> "OK" Then
                System.Diagnostics.Debug.Print(ResponseString)
            End If

        Catch ex As Exception
            Response.Redirect("Default.aspx")
        End Try

    End Sub
End Class