我的后台生成首页，及生成其他相关的页面，都会报同样的错，这是什么情况，望高手指点，谢谢！

'*********************************************************************************************************
  '函数名：FSOSaveFile
  '作  用：生成文件
  '参  数： Content内容,路径 注意虚拟目录
  '*********************************************************************************************************
  Sub FSOSaveFile(Content, FileName)
   dim stm:set stm=server.CreateObject("adodb.stream")
   stm.Type=2 '以文本模式读取
   stm.mode=3
   stm.charset="gb2312"
   stm.open
   stm.WriteText content
   stm.SaveToFile server.MapPath(FileName),2    ‘这个就是1040行
   stm.flush
   stm.Close
   set stm=nothing
  End Sub