<% Response.Buffer = True %> <% Dim strPath,objFSO,objItem,objFolder,count strPath = "/ctrfiles/notes/" count = 1 Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) Response.Write("Agent Notes Without Supporting Folder
") For Each objItem In objFolder.Files If NOT objFSO.FolderExists(Server.MapPath("/images/" & Left(objItem.Name,Instr(1,objItem.Name, ".",1) - 1))) Then Response.Write(" " & count & " " & objItem.name & "
") count = count + 1 End if Next Set objFSO = Nothing %>