Ciao perchè non funziona? secondo voi dove sbaglio?

codice:
Dim newdir
Dim newdirs
Dim titolo
titolo = Request.Form("titolo")
newdir = "../../Newsupload/"&gal&"/"
newdirs = "../../Newsupload/"&gal&"/"&maker&""
newdirss = "../../Newsupload/"&gal&"/"&maker&"/"&titolo&""

Dim objFile
Set objFile = Server.CreateObject("Scripting.FileSystemObject")

if  not objFile.FolderExists(newdir) then 
objFile.CreateFolder Server.MapPath(newdir)
end if

if not objFile.FolderExists(newdirs) then 
objFile.CreateFolder Server.MapPath(newdirs)
End if

if not objFile.FolderExists(newdirss) then 
objFile.CreateFolder Server.MapPath(newdirss)
End if