non funziona perchè non mi fa il controllo di esistenza cartella
cerca di crearne una ma esiste già

ora ho corretto in questo modo

codice:
if objFile.FolderExists(newdir) and objFile.FolderExists(newdirs)
then objFile.CreateFolder Server.MapPath(newdirss)
else 
objFile.CreateFolder Server.MapPath(newdir)
objFile.CreateFolder Server.MapPath(newdirs)
objFile.CreateFolder Server.MapPath(newdirss)
End if
ma mi restituisce un errore su una condizione precedente: Errore di compilazione di Microsoft VBScript (0x800A03F9)
Previsto 'Then'

Questo script fa parte di questa procedura:

codice:
' PERCORSO DEL DATABASE 
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../../mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open url_DB

' CONTROLLA SE TUTTI I CAMPI SONO STATI COMPILATI
IF Len(Request("autore")) = 0 or Len(Request("titolo")) = 0 or Len(Request("contenuto")) = 0 then
' CAMPI NON COMPILATI!
%>
<hr>
<p align="center"><font face="Verdana" size="4">Campi non compilati!</font></p>
<hr>
<%
Else
' CAMPI COMPILATI

' RICEVE L'OPERAZIONE DA SVOLGERE (AGGIUNGERE/MODIFICARE NEWS)
operazione = Request.QueryString("tipo")

Set RecSet = Server.CreateObject("ADODB.Recordset")

IF operazione = "aggiungi" then
' DEVE AGGIUNGERE LA NEWS
SQL = "SELECT * FROM NEWS"
else
' DEVE MODIFICARE LA NEWS
SQL = "SELECT * FROM NEWS WHERE ID = " & Request.Querystring("id") &""
End IF
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic


IF operazione = "aggiungi" then
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 objFile.FolderExists(newdir) and objFile.FolderExists(newdirs)
then objFile.CreateFolder Server.MapPath(newdirss)
else 
objFile.CreateFolder Server.MapPath(newdir)
objFile.CreateFolder Server.MapPath(newdirs)
objFile.CreateFolder Server.MapPath(newdirss)
End if

'Response.Write "Directory creata"
RecSet.Addnew

' SE SI AGGIUNGE LA NEWS INSERISCE LA DATA CORRENTE
RecSet("data") = date()
End IF

RecSet("titolo") = Server.HTMLEncode(Replace(Request.Form("titolo"), "'", "′"))
RecSet("autore") = Server.HTMLEncode(Replace(Request.Form("autore"), "'", "′"))
RecSet("contenuto") = Server.HTMLEncode(Replace(Replace(Request.Form("contenuto"), chr(13), "
"), "'", "′"))
RecSet("gal") = Server.HTMLEncode(Replace(Request.Form("gal"), "'", "′"))


RecSet.Update
RecSet.Close
Set RecSet = Nothing
%>