parameter ignored for ExportToStream .NET

[Radx]

Hello All

I am having a very hard timt exporting crystal report to PDF document
in my ASPX page. I am able to generate the PDF document , but the i
am not able to pass the parameter to the report (Crystal). It looks
like , it completely ignores the parameter i am passing and just
brings all the records from the database.
When i run the report directly from Crystal , it works fine. So I
know report works fine . For some strange reason , the parameter i
am passing are not applied to the report.
Can anyone share your ideas of how to do this !!!.. Thank you

Here is the code

Dim SActivityID As Long = 0
Dim iAppUserId As Long = 0
Dim myReport As ReportDocument = New ReportDocument
Dim s As Stream
Dim crConnectionInf o As CrystalDecision s.Shared.Connec tionInfo
Dim pDv As ParameterDiscre teValue = New ParameterDiscre teValue
Dim crTable As CrystalDecision s.CrystalReport s.Engine.Table
Dim crTables As CrystalDecision s.CrystalReport s.Engine.Tables
Dim crTableLogOnInf o As CrystalDecision s.Shared.TableL ogOnInfo
Dim crDatabase As
CrystalDecision s.CrystalReport s.Engine.Databa se
Dim parameterFieldD ef As ParameterFieldD efinition
Dim parameterValues As ParameterValues
Dim ExpOptions As ExportOptions
Dim req As ExportRequestCo ntext
iAppUserId = CLng(Session("S SXYUser_ID"))
If Not IsPostBack Then
If iAppUserId <= 0 Then
Response.Redire ct("Login.aspx" )
Response.ClearH eaders()
Else

crConnectionInf o = New
CrystalDecision s.Shared.Connec tionInfo
crConnectionInf o.ServerName = "XXXXXX"
crConnectionInf o.DatabaseName = "YYYYYYYYYY Y"
crConnectionInf o.UserID = "NO"
crConnectionInf o.Password = "VVVVVVVV"

myReport.Load(" c:\\inetpub\\ww wroot\\XZY\\Spe cimenReport.rpt ")
crDatabase = myReport.Databa se
crTables = crDatabase.Tabl es

For Each crTable In crTables
crTableLogOnInf o = crTable.LogOnIn fo
crTableLogOnInf o.ConnectionInf o = crConnectionInf o
crTable.ApplyLo gOnInfo(crTable LogOnInfo)
Next

SActivityID = CLng(Request.Pa rams("SpecimenA ctID"))
Response.ClearH eaders()
Response.ClearC ontent()
Response.Conten tType = "applicatio n/pdf"
pDv.Value = SActivityID

parameterFieldD ef =
myReport.DataDe finition.Parame terFields("Spec imenActId")
parameterValues = parameterFieldD ef.CurrentValue s
parameterValues .Add(pDv)
parameterFieldD ef.ApplyCurrent Values(paramete rValues)

req = New ExportRequestCo ntext
ExpOptions = New ExportOptions
ExpOptions.Expo rtFormatType =
ExportFormatTyp e.PortableDocFo rmat
ExpOptions.Form atOptions = New PdfRtfWordForma tOptions

req.ExportInfo = ExpOptions

s = myReport.Format Engine.ExportTo Stream(req)
Response.ClearH eaders()
Response.ClearC ontent()
Response.Conten tType = "applicatio n/pdf"

Dim buffer(s.Length ) As Byte
s.Read(buffer, 0, Int(s.Length))
Response.Binary Write(buffer)
Response.End()
End If