Function temp_pic_list(list1,list2,list3,list4,list5,list6)
'栏目id，条数，图片宽度，图片高度，是否显示标题,标题长度
if list1<>0 then
sql="select id,title,bz from bbs where typeid="&list1&" and bz like '%src%' order by date desc"
else
sql="select id,title,bz from bbs where bz like '%src%' order by date desc"
end if
rs2.open sql,conn,1,1
temp_pic_list="<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
if rs2.eof then
temp_pic_list=temp_pic_list&"<tr><td>暂无图片文章</td></tr>"
else

temp_pic_list=temp_pic_list&"<tr align=""center"" valign=""middle"">"

for ii=1 to list2
if rs2.eof then exit for
txt=rs2("bz")
if instr(1,txt,"src")>0 then
txtend=mid(txt,instr(1,txt,"src")+5,len(txt))
url=mid(txtend,1,instr(txtend,chr(34))-1)
title=rs2("title")
title=left(title,list6)
if list5=1 then
temp_pic_list=temp_pic_list&"<td><a href="&Systemdir&"/info/info_"&rs2("id")&".html><img border=0 src="&url&" height="&list4&" width="&list3&"><br>"&title&"</a></td>"
else
temp_pic_list=temp_pic_list&"<td><a href="&Systemdir&"/info/info_"&rs2("id")&".html><img border=0 src="&url&" height="&list4&" width="&list3&"></a></td>"
end if
else
temp_pic_list=temp_pic_list&"<td>暂无图片文章</td>"
end if
rs2.movenext
next
temp_pic_list=temp_pic_list&"</tr>"
end if

temp_pic_list=temp_pic_list&"</table>"
rs2.close

end Function

就是如上这段语句，在后台生成HTML首页的时候提示如下错误：
Microsoft VBScript 运行时错误 错误 '800a0005'

无效的过程调用或参数: 'mid'

D:\WEB\D26DA89C5D\YCXEHCH3B9D5FD2\MYWEBADMIN\FSOMAKE\../../inc/Function.asp，行 203

该如何解决呢，在以前生成的时候就没有出过错误 但是早上添加了两篇新文章之后就开始出错。
以前出错的时候修改了哪个地方后来就成功了，但是现在又忘记了。
哪位高手来帮忙解决下呢，小弟在此感激不尽、