传上虚拟服务器后出现80020009错误

jxbw7408 2009-08-13 12:07:16
在本机测试是通过了的传上虚拟服务器后 提示出错
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.Form("cash") <> "") Then
Recordset2__MMColParam = Request.Form("cash")
End If
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Dim webo

Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_prc_STRING
Recordset2_cmd.CommandText = "SELECT count(微波炉) as TT,sum(微波炉) as AA FROM cash WHERE 网点编码 = ? and 中心收票='未收' group by 微波炉"
Recordset2_cmd.Prepared = true
Recordset2_cmd.Parameters.Append Recordset2_cmd.CreateParameter("param1", 200, 1, 255, Recordset2__MMColParam) ' adVarChar

Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
if clng(Recordset2("TT"))>0 then
webo=Recordset2("AA")
else
webo="0"
end if

%>


提示出色行出错。。。。
...全文
26 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hookee 2009-08-13


Set Recordset2 = Recordset2_cmd.Execute()
Recordset2_numRows = 0
If Not (Recordset2.EOF AND Recordset2.BOF) Then
If IsNumeric(Recordset2("TT").value) Then
if clng(Recordset2("TT").value)>0 then
webo = Recordset2("AA").value
else
webo = "0"
end if
Else
webo = "0"
End If
End If
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告