<HTML><BODY> <B>Search Results for <%=Request("SearchText")%></B><BR> <% Const fsoForReading = 1 Dim strSearchText strSearchText = Request("SearchText") 'Now, we want to search all of the files Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim objFolder Set objFolder = objFSO.GetFolder(Server.MapPath("/")) Dim objFile, objTextStream, strFileContents, bolFileFound bolFileFound = False For Each objFile in objFolder.Files If Response.IsClientConnected then Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading) strFileContents = objTextStream.ReadAll If InStr(1,strFileContents,strSearchText,1) then Response.Write "<LI><A HREF=""/" & objFile.Name & _ """>" & objFile.Name & "</A><BR>" bolFileFound = True End If objTextStream.Close End If Next if Not bolFileFound then Response.Write "No matches found..." Set objTextStream = Nothing Set objFolder = Nothing Set objFSO = Nothing %> </BODY></HTML>