<% dim fs,f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.CreateFolder("c:\asp") set f=nothing set fs=nothing %>
<% dim fs set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FolderExists("c:\temp") then fs.DeleteFolder("c:\temp") end if set fs=nothing %>