请教高人一个VB问题

用VB开发的一个ASP (办公OA)
调试时下载邮件附件时出错:
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft VBScript 运行时错误 错误 '800a01b6' 对象不支持此属性或方法: 'FileObj.FileOldName' /oa/Message/DownloadFile.asp，行9 DownloadFile.asp的源代码:
<%
Dim rstSubValuej,m_FileName,m_FileOldName
m_FileName = Request.QueryString("FileName")
m_FileOldName = Request.QueryString("FileOldName") Set FileObj =Server.CreateObject("AspDL.FileDownLoad")
FileObj.FilePath=Server.MapPath ("../Message/Files")
FileObj.FileName = m_FileName
FileObj.FileOldName = m_FileOldName
FileObj.DownLoad ()
Set FileObj = Nothing
Response.End
%>
我是菜尿,请指点一下,谢谢