If e then

[giovanni1975]

Ciao perchè non funziona? secondo voi dove sbaglio?

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

[yro]

non funziona vuol dire tutto e niente, da errori? se si, quali e dove?

[optime]

non funziona perché c'è qualcosa di sbagliato.

[yro]

Originariamente inviato da optime
non funziona perché c'è qualcosa di sbagliato.

una birra è pagata...

[optime]

Originariamente inviato da yro

una birra è pagata...

uviamenji

[giovanni1975]

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

ora ho corretto in questo modo

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:

' 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
%>

[optime]

ordine!

IF condizione THEN
   istruzioni
ELSE
   istruzioni
END IF

altri fantasiosi costrutti (del tipo...

IF condizione
THEN istruzione

)

daranno errore

[giovanni1975]

scusa ... ma scrivendo cosi non faccio come dici tu?

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

if = condizioni
then =esegue comando
else =altri comandi

[optime]

abbello, sai leggere? che te voi inventà come se scriveno i programmi?


dai, si scherza, correggi come ti ho detto

[giovanni1975]

fatto...

If objFile.FolderExists(newdir) Server.MapPath(newdir) AND objFile.FolderExists(newdirs) Server.MapPath(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 dice alla riga del IF:
Errore di compilazione di Microsoft VBScript (0x800A03F9)
Previsto 'Then'