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

缺少 'End'

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

ADODB.Stream 错误 '800a0bbc'

写入文件失败。

/gifts/login/upload_5xsoft.inc，行161


上面是报错的内容。 新增文字就可以。加上图片就报错了。
请高手指教。 急。。。。。。。

<%
action=request("action")
if action="add" then%>
<%
'图片保存路径
picpath="../img/"

set upload=new upload_5xsoft
'文本 url content radio filename
proname=upload.form("proname")

Bclass=upload.form("BClassID")

SClass=upload.form("SClassID")
material=upload.form("material")
style=upload.form("style")
casing=upload.form("casing")

root=upload.form("root")

'文件 pic piclink
set pic=upload.file("pic")
set piclink=upload.file("piclink")

if pic.fileSize>0 then
fileName=pic.FileName
filename=now()&InStrRev(fileName,".")
file1pn=picpath & pic.FileName'&now()
pic.saveAs Server.mappath(file1pn)
else
pic.FileName="notfile.jpg"
file1pn=picpath & pic.FileName
end if

if piclink.fileSize>0 then
fileName=piclink.FileName
filename=now()&InStrRev(fileName,".")
file2pn=picpath & piclink.FileName
piclink.saveAs Server.mappath(file2pn)
else
piclink.FileName="notfile.jpg"
file2pn=picpath & piclink.FileName
end if
数据库文件的权限我给读写了的,也就是everyone的权限.是完全控制.

汗。。。这位大哥。。你算是我的救命恩人。

什么时候来深圳。。我请你那个一下。。/呵呵。。

谢谢。。谢谢你啦。。真的是图片文件夹的权限没给。

谢谢。以后有问题还是请教你。。 加我QQ好吗。101663059

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

缺少 'End'

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

Provider 错误 '80004005'

未指定的错误

/gifts/china/login/conn.asp，行5

刚可以了一会儿。 突然又成这样儿了。 不知道为什么。