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

源码如下：
<%
dim ComeUrl,cUrl,AdminName

AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn() ----这行有错误
response.redirect "login.asp"
response.End()
end if
sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
response.Redirect("login.asp")
response.End()
end if
%>

microsoft Microsoft MICROSOFT Microsoft是什么意思 Microsoft代理 microsoft update Microsoft Office Microsoft FrontPage microsoft安装 microsoft office