Current Notes:
<% Dim strPath,objFSO,objFolder,objItem,count count = 1 strPath = "../notes/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) For Each objItem In objFolder.Files If Right(UCase(objItem.Name),6) <> "OH.TXT" AND UCase(Trim(objItem.name)) <> "NOTES.ASP" Then If NOT objFSO.FolderExists(Server.MapPath("/images/" & Left(objItem.Name,Instr(1,objItem.Name, ".",1) - 1))) Then %> (<%=count%>)MLS# "><%=Left(objItem.Name,Instr(1,objItem.Name, ".",1) - 1)%> Added: <%=objItem.DateLastModified%> NO Supporting Folder!
<% Else %> (<%=count%>)MLS# "><%=Left(objItem.Name,Instr(1,objItem.Name, ".",1) - 1)%> Added: <%=objItem.DateLastModified%>
<% End if count = count + 1 End if Next Set objFolder = Nothing Set objFSO = Nothing %>