<% If Not request("inpCurrFolder")="" Then sFolder = request("inpCurrFolder") Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(sFolder) Then sDestination = fso.GetParentFolderName(sFolder) fso.DeleteFolder(sFolder) sMsq = "" Else sMsq = "" End If Set fso = Nothing End If %>

<%=sMsq%>