<% session.Timeout = 40 'debug = true if debug then Response.Write("session.Timeout=[" & session.Timeout & "]
") Response.Write("from info passed is;
") Response.Write(Replace(Request.Form,"&","
")) Response.Write("session id =[" & session("id") & "]
") end if session("name") = trim(Request.Form("mkdir_name")) session("mkdir_name") = server.URLEncode((session("name"))) 'some encode charcters are ok, check for them session("mkdir_name") = replace(session("mkdir_name"),"%5F","_") session("mkdir_name") = replace(session("mkdir_name"),"%2D","-") 'Response.Write("session(""mkdir_name"")=[" & session("mkdir_name") & "]
") dim error, error_msg error = false error_msg = "Some things need to be fixed before this level can be added - check out the details below

You can't have a blank folder name, fool!" & vblf end if if Instr(1,session("mkdir_name"),"+") then error = true error_msg = error_msg & "
You can't have space(s) in a folder name" & vblf end if if Instr(1,session("mkdir_name"),"%") then error = true error_msg = error_msg & "
You have invalid chacters in a folder name - the ones like %xx are invalid" & vblf end if Function ShowFolderList(byval dir_to_make) folderspec = server.MapPath("\lvl\levels\") 'Response.Write("folderspec=[" & folderspec & "]
") Dim fso, f, f1, fc, s, exist_allready exist_allready = false Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.SubFolders For Each f1 in fc if f1.name = dir_to_make then exist_allready = true error_msg = error_msg & "
" & session("name") & " already exists on the server" & vblf end if Next 'Response.Write("exist_allready=[" & exist_allready & "]
") ShowFolderList = exist_allready End Function Sub AddNewFolder(folderName) path = server.MapPath("\lvl\levels\") 'Response.Write("path=[" & path & "]
") Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(path) Set fc = f.SubFolders If folderName <> "" Then Set nf = fc.Add(folderName) Else Set nf = fc.Add("delete_this_folder") End If End Sub 'check for the folder now if (not ShowFolderList(session("mkdir_name"))) and (not error) then 'if its a new folder - add it :] AddNewFolder(session("mkdir_name")) else error = true end if %> <% 'is there a problem here? if error then error_msg = error_msg & "

" & vblf Response.Write(error_msg) %> <% else %> The folder <%=session("mkdir_name")%> has be created for the following files;

<%=session("mkdir_name")%>lg.jpg

<%=session("mkdir_name")%>sm.jpg

<%=session("mkdir_name")%>.txt

/">Do you want to upload them now? <% end if %>