我的动网论坛出现“Microsoft VBScript 运行时错误 错误 '800a0005' ”

问题描述：

我的动网论坛进入论坛的首页就会出现：
Microsoft VBScript 运行时错误 错误 '800a0005'

无效的过程调用或参数

/Koomv_Xml.asp，行39

直接输入贴子地址又能进入！
希望大家能帮帮忙解决一下！
koomv_xml.asp内容如下：
<%
'================================
'函数名称：XML文档生成函数
'程序设计：痴心无语
'================================
Sub Koomv_Xml()
Dim Rs,SQL,i
Dim pic,links,text,BoardID,RootID,ReplyID,F_AnnounceID
Dim UploadFile
SQL="Select Top 6 F_BoardID,F_AnnounceID,F_ViewNum, F_Filename ,F_Readme,F_id from [dv_upfile] where F_Type=1 and F_FileType='jpg' and F_BoardID not in (5) And F_AnnounceID in(select DISTINCT F_AnnounceID from [dv_upfile] where F_Type=1 and F_FileType='jpg' and F_BoardID not in (5)) order by F_id desc"
Set Rs=Dvbbs.Execute(SQL)
IF Not Rs.Eof Then
SQL=Rs.GetRows(-1)
Const ForReading=1,ForWriting=2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("KoomvFlashXml.xml"),ForWriting,True)
f.WriteLine "<?xml veRsion='1.0' encoding='GBK'?>"
f.WriteLine "<slider>"

For i=0 To Ubound(SQL,2)
BoardID=SQL(0,i)
IF Instr(SQL(1,i)&"","|") Then
F_AnnounceID=Split(SQL(1,i),"|")
RootID = F_AnnounceID(0)
ReplyID = F_AnnounceID(1)
Else
RootID = ""
ReplyID = ""
End IF
links="dispbbs.asp?boardid="&BoardID&"&ID="&RootID&"&replyID="&ReplyID&"&skin=1"
pic= ""&Dvbbs.Forum_Setting(76)&""&SQL(3,i)

IF Len(SQL(4,i))>14 Then
text=left(SQL(4,i),14)
ELSE
text=SQL(4,i)
End IF
f.WriteLine "<item href="""&links&""" title="""&text&""" imageurl="""&pic&""" />"
NEXT
f.WriteLine "</slider>"
f.Close
ELSE
Response.Write ""
End IF
Rs.close:set Rs=nothing
End Sub
%>

问题解答：

动网论坛到动网官网上去找啊,那儿都是专业的~~