VBScript 运行时错误 (0x800A000D) 类型不匹配: 'errmsg'

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'errmsg'
/Print.Asp, 第 20 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

网页：
GET /Print.Asp

Print.Asp程序代码


<style>
body,tb,tr{
font-size:12px;
color:#000;
margin:0px;
}

</style>
<%
Dim id,rs,rs1
id=cint(request.QueryString("id"))
if id="" then
call errmsg("参数错误","Index.Asp?action=list")       第 20 行

response.End()
end if

Set rs=conn.execute("select * from bxzl_tab where id="&id)
if rs.eof then
call errmsg("参数错误","Index.Asp?action=show&id="&id)
response.End()
else
%>

<table width="500" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="60" align="center"><br /><h3><%=danwei%>设备保修单</h3></td>
  </tr>
  <tr>
    <td>
    <table width="100%" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
      <tr >
        <td width="17%" height="30" align="right">设备类型：</td>
        <td width="33%"> <%=rs("sbid")%></td>
        <td width="17%" align="right">IP地址：</td>
        <td width="33%"> <%=rs("ipdz")%></td>
      </tr>
      <tr >
        <td height="30" align="right">子网掩码：</td>
        <td > <%=rs("zwym")%></td>
        <td align="right">默认网关：</td>
        <td > <%=rs("mrwg")%></td>
      </tr>
      <tr>
        <td height="30" align="right">首先DNS服务器：</td>
        <td > <%=rs("sxdns")%></td>
        <td align="right">备用DNS服务器：</td>
        <td > <%=rs("bydns")%></td>
      </tr>
      <tr>
        <td height="30" align="right">MAC地址：</td>
        <td > <%=rs("macdz")%></td>
        <td align="right">计算机名称：</td>
        <td > <%=rs("jsjmc")%></td>
      </tr>
      <tr>
        <td height="30" align="right">工作组：</td>
        <td ><%=rs("gzj")%></td>
        <td align="right">使用人：</td>
        <td ><%=rs("syr")%></td>
      </tr>
      <tr>
        <td height="30" align="right">联系人</td>
        <td ><%=rs("lxr")%></td>
        <td align="right">联系电话</td>
        <td ><%=rs("lxdh")%></td>
      </tr>
      <tr>
        <td height="30" align="right">用户单位名称</td>
        <td height="60" colspan="3"><%=rs("yhdwmc")%></td>
      </tr>
      <tr>
        <td height="30" align="right">故障现象及服务内容：</td>
        <td height="60" colspan="3"> <%=rs("gzms")%></td>
        </tr>
      <tr>
        <td height="30" align="right">用户单位意见：</td>
        <td height="60" colspan="3"> <%=rs("yhdwyj")%></td>
        </tr>
    </table>
</td>
  </tr>
  <tr>
    <td height="40" align="right">打印时间：<%=now()%> </td>
  </tr>
</table>

<%
rs.close
set rs=nothing
end if
%>
<script>window.print();</script> --------------------编程问答-------------------- 查看这个函数errmsg,它的2个参数类型对吗

补充：VB ,  网络编程