Salve, il mio problema di oggi è il seguente ho creato uno script per la creazione delle cartelle in un determinato path, ma il problema è che le cartelle non le crea, se gli metto dei response.write sembra non prendere neanche i dati in input potreste darmi una mano a capire perché? Grazie mille qui di seguito posto il sorgente
Codice:
<div align="center" class="small-screen align-center">
<div class="table grid">
<div class="tr">
<div class="td width-40">Inserire il nome per la nuova cartella : </div>
<div class="td width-40"><input type="text" name="Nome" id="Nome" ></div>
<div class="td width-20"><input type="submit" value="Crea" name="Crea"><br></div>
</div>
</div>
</div>
<br><br>
<%
Public Function crea()
Dim Nome, path, pNome
Dim CurrentDirectory
CurrentDirectory = fso.GetAbsolutePathName(".")
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")
on error resume next
'percorso
path = Server.MapPath(CurrentDirectory)
pNome = path + Nome
' crea la directory
FSO.CreateFolder pNome, true
if err.Number<>0 then
Response.write "<P>Directory creata!"
else
Response.write "<P>Errore: " &_
err.description
end if
set FSO = Nothing
end function
%>
