Current Open Homes:
<% 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 %> (<%=count%>)MLS# "><%=Left(objItem.Name,Instr(1,objItem.Name, ".",1) - 3)%> Added: <%=objItem.DateLastModified%>
<% count = count + 1 End if Next Set objFolder = Nothing Set objFSO = Nothing %>