图片上传出错，请大虾指点！（在线等待）

[cathr]

上传时出错，
现在是错误信息：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Stream 错误 '800a0bba'

文件无法被打开。

/life/master/admin/upload.asp，行22

upload.asp源程序：
Function GetFileName(ByVal strFile)
If strFile <> "" Then
ranNum=int(900*rnd)+100
GetFileName =year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum & mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
'response.write strFileName
'objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
session("imagename")="admin/" &filepath
objStream.SaveToFile Server.MapPath(filepath),2
objStream.Close

[cathr]

在本地机测试通过，上传到网上之后才出错。

[qfljm]

目录权限

[cathr]

怎么设置？

[cathr]

没人知道吗？