水晶报表中没有数据问题。

在crystal  report9.0中，水晶报表能够正常显示。但是，将报表转入到
程序中就不能够正常的显示了（只显示水晶报表框架，没有数据）。
应该是下面的代码中存在问题，可是找不到

程序如下，里面不知道那里错误。这里是几个相关的函数及调用。

function job_print(){
    var varreinslip_no
    varreinslip_no = form1.btn_slipno.value

    if(varreinslip_no == "")
    {
alert("Please input search time!")
    }
    else
    {
window.open('/sale/src/rpt/M1SL0073_RPT.asp?xreinslip_no = '+varreinslip_no,'M1SL0073', 'status=no,width=1024,height=768,scrollbars=yes,resizable=1');
    }
    }


Dim xreinslip_no
Dim Reportname
Dim Path
Dim iLen

'fDate = trim(request.querystring("fDate") & " ")
'tDate = trim(request.querystring("tDate") & " ")
'warehouse_code = trim(request.querystring("warehouse_code") & " ")
xreinslip_no = trim(Request.QueryString("xreinslip_no"))


Reportname = "M1SL0073.Rpt"

'Response.Write "warehouse = " & fDate & " <BR>"
'Response.Write "warehouse = " & tDate & " <BR>"
'Response.Write "warehouse = " & warehouse_code & " <BR>"
'Response.end

Response.Write "xreinslip_no = "&varreinslip_no&" <BR>"
Response.End


Session("oRpt").ParameterFields.GetItemByName("@ReinSlip_no").ClearCurrentValueAndRange
Session("oRpt").ParameterFields.GetItemByName("@ReinSlip_no").AddCurrentValue(xreinslip_no)