美国服务器,生成html网页出错,Microsoft VBScript runtime error '800a0005'

在自己电脑都是好好的，上传了不能生成
Microsoft VBScript runtime error '800a0005'  

Invalid procedure call or argument  

/zimulu/jdl0822/Online/AD_Make_Index.asp, line 421  


这附近的代码是： '################ 生成htm结束 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set fr=fso.opentextfile(server.mappath("temp/index.htm"))
pencat=fr.readall
fr.close
pencat=replace(pencat,"[JE_WEBNAME]",title)
pencat=replace(pencat,"[JE_ZFZQ]",ZFZQ)
pencat=replace(pencat,"[JE_QFJE]",QFJE)
pencat=replace(pencat,"[JE_ADLIST]",list)
if mpage>1 then
pencat=replace(pencat,"[JE_PAGE]",pagefy)
else
pencat=replace(pencat,"[JE_PAGE]","")
end if
pencat=replace(pencat,"[JE_CUXIAO]",CUXIAO)
pencat=replace(pencat,"[JE_NEW]",NEWADD)
pencat=replace(pencat,"[JE_PUBLISH]",publish)

pencat=replace(pencat,"[JE_JZSD]",JZSD)
pencat=replace(pencat,"[JE_XY]",XYPH)
pencat=replace(pencat,"[JE_DMFF]",DMFF)
pencat=replace(pencat,"[JE_FW]",FWPH)
pencat=replace(pencat,"[JE_HITS]",HIST)
pencat=replace(pencat,"[JE_LINK]",LINK)

Set fout = fso.CreateTextFile(server.mappath("../../"&filename&".html"))
fout.Write pencat
fout.close
'************** 生成htm页 结束 ***************

我是win空间，请问要怎么改呢