Session Calling in Crystal Report

//////////in first form aspx

Response.Redirect(("Dummy.aspx"?id=" & Session("userid") & "&seldate="&txtDate.txt)





/////////////////////////in Dummy.aspx

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared
Partial Class DummyReport2
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim a1 As Integer
Dim a2 As Date
a1 = CInt(Request.Params(0))
a2 = Request.Params(1)
Dim a As String
a = Server.MapPath("DummyReport2.rpt")
Dim cryRpt As New ReportDocument
cryRpt.Load(a)

Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterValues.Clear()
crParameterDiscreteValue.Value = a1
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("SHID")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

crParameterDiscreteValue.Value = a2
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("SelDate")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(crParameterDiscreteValue)

'crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

CrystalReportViewer1.ReportSource = cryRpt
End Sub
End Class