01.
Set
Upload = Server.CreateObject(
"Persits.Upload.1"
) <========================== line 49
02.
03.
Upload.OverwriteFiles = false
04.
Upload.SaveVirtual gsForumImgPath
05.
06.
07.
For
Each
File in Upload.Files
08.
sFileTemp = File.ExtractFileName
09.
sFileName = Lcase(AlmostUniqueID &
"."
& Right(File.ExtractFileName,3))
10.
11.
If
len(sFileName) > 0 then
12.
sFilenameLg = sFileName
13.
sFilenameSm =
"sm_"
&sFileName
14.
else
15.
sFilenameLg =
""
16.
sFilenameSm =
""
17.
end if