hi everyone im trying to get the mod to work and im worried i havent filled this script in correctly, becouse im not able to upload, it was all ready to upload before in the admin etc but since i added the mod it doesnt work. thanks for the help,,,heres the script:
<%
Dim strFileUploadPath
Dim fsoCount
Dim rootFolderCount
Dim filesCount
Dim fso
Dim fso2
Dim rootFolder
Dim rootFolder2
Dim rootFile
Dim subFolder
Dim files
Dim file
Dim x
Dim LastMod
Dim ImgDelete
Dim MaxNum
Dim gallery
Dim Num
Dim intMaxFileSize
Dim PicFileType
Dim photoName
Num=1
Dim ImgHeight
Dim ImgWidth
photoName=Request.querystring
'Set the folder path pictures will be uploaded to
strFileUploadPath="/webwiz/uploads/images"
'set file types,seperate by ;
PicFileType = "jpg;gif;jpeg;png"
'Set the max file size
intMaxFileSize = 200
'max photos per user = (MaxNum - 1) in this case, 6 max photos per user
MaxNum = 100
'sets image display szie
ImgHeight=100
ImgWidth=130
set fso=Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(Server.MapPath(strFileUploadPath))=False then
fso.CreateFolder(Server.MapPath(strFileUploadPath))
end if
set fso=nothing
%>