关于动态添加列表框中的问题，请高人指点一下

[ncxtang]

我需要实现在上传附件后，在另一个列表框中显示出来，以下是上传后的部分代码：
<%
FileExt=Lcase(file.FileExt) //取文件扩展名
SubjectFile=file.FileName
SubjectFile=Left(SubjectFile,Len(SubjectFile)-4)//取文件完整路径名

FileName=FormPath&ArtID&"-"&iCount+1&"."&FileExt
if file.Filesize>0 then
file.savetoFile server.mapPath(FileName)
checksave()
%>
//？？？主要是下面这部分语句，好象没有执行
<script language="javascript">
parent.frmAnnounce.attachSet.add(new Option(SubjectFile,server.mapPath(FileName)))
</script>
麻烦各位帮我看看，为什么会这样？

[ncxtang]

各位！
尽管分不太多，可是还希望各位能人志士帮忙解决一下，下次有分一定会加上来的！