高分求助!错误的参数个数或无效的参数属性值: 'Now'

asp+access的网站程序上传图片出现错误,请各位高人帮忙.

错误提示:
Microsoft VBScript 运行时错误 错误 '800a01c2'

错误的参数个数或无效的参数属性值: 'Now'

/post_upload.asp，行 214

=================程序代码=============================
'读取上传目录
Function CheckFolder()
CheckFolder = Replace(Replace("adpic/",Chr(0),""),".","")
'在目录后加(/)
If Right(CheckFolder,1)<>"/" Then CheckFolder=CheckFolder&"/"
End Function

'按月份自动明名上传文件夹,需要FSO组件支持。
Private Function CreatePath(PathValue)
Dim objFSO,Fsofolder,uploadpath
'以年月创建上传文件夹，格式：2003－8
uploadpath = year(now) & "-" & month(now) [这是第214行]
If Right(PathValue,1)<>"/" Then PathValue = PathValue&"/"
On Error Resume Next
Set objFSO = Server.CreateObject(FsObject)
If objFSO.FolderExists(Server.MapPath(PathValue & uploadpath))=False Then

错误的参数个数或无效的参数属性值 错误的参数个数或无效的参数属性值: 'MD5' 错误的参数个数或无效的参数属性值: 'md5' [求助]生成html出现无效的过程调用或参数 急，在线等待回答，出现错误：无效的过程调用或参数: 'chr' 为什么提示"运行时错误"5",无效的过程调用或参数" 实时错误'5': 无效的过程调用或参数 运行时错误'5'无效的过程调用或参数 在使用用友财务软件时出现实时错误‘5’，无效的过程调用或参数 无效的过程调用或参数 （vb)