<%
If Request.Cookies("Webmaster") <> "Validated" Then
Response.Redirect("/ctrfiles/stats/login.asp")
End if

Response.Buffer = True 
Dim strPath  
Dim objFSO    
Dim objFolder 
Dim objItem 
Dim deletename

strPath = Request.Querystring("PATH")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

For Each objItem In objFolder.SubFolders
if Request.Form(objItem.Name)="yes" then
deletename = objItem.Name
If objFSO.FolderExists(Server.MapPath(strPath) & "\" & deletename & "\") Then 
objFSO.deleteFolder(Server.MapPath(strPath) & "\" & deletename )
end if
If objFSO.FileExists(Server.MapPath("../ctrfiles/" & deletename & ".cnt")) Then 
objFSO.deletefile(Server.MapPath("../ctrfiles/" & deletename & ".cnt"))
end if
If objFSO.FileExists(Server.MapPath("../ctrfiles/notes/" & deletename & ".txt")) Then 
objFSO.deletefile(Server.MapPath("../ctrfiles/notes/" & deletename & ".txt"))
end if
end if
next
Response.Redirect "directory.asp?PATH=" & strpath 
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

Response.Redirect "directory.asp?PATH=" & strpath

%>