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

[jxbw7408]

在本机测试是通过了的传上虚拟服务器后　提示出错
<%
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

%>


提示出色行出错。。。。

[hookee]

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