vbscript运行时错误800a000d类型不匹配

正在设计一个网站，用XP自建的IIS服务器运行首页文件index1.asp出现如下错误：

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'show_index_list'

/evchina/ev2/index1.asp，行 24

=====================================================
function文件如下：

function show_index_list(boardid,listid)
set l_inf=conn.execute("select*from board where boardid="&listid&"")
if not l_inf.eof then
showlist=l_inf("showlist")
end if

if showlist="" then
showlist=10
end if
sql="select*from news where boardid='"&listid&"' and show=true and del=false order by best,newsid desc"
set rs=conn.execute(sql)
%>
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td><table cellspacing="0" cellpadding="0" width=

错误显示
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'poptemp'

/include/onlogin.asp，行 72

下面是onlogin.asp部分代码

dim del_i,del_num,del_dim,del_sql,del_rs,del_username,fobj,picc
if delid<>"" and not isnull(delid) then
delid=replace(delid," ","")
del_dim=split(delid,",")
del_num=UBound(del_dim)
for del_i=0 to del_num
'del_sql
del_sql="select username from "&data_name&" where id="&del_dim(del_i)
set del_rs=conn.execute(del_sql)
if not(del_rs.eof and del_rs.bof) then
call user_integral("del",web_varn(web_num,15),del_rs("username"))
end if
del_rs.close:set del_rs=nothing
call upload_del(data_name,del_dim(del_i))
del_sql="delete from "&data_name&" where id="&del_dim(del_i)